Make destructors work

diff --git a/XS.xs b/XS.xs
index 182c51458164d6297b5df83887f5a9b83d697211..3e6c839e892099d38902dbf91c1c70fe5c8c522c 100644 (file)
--- a/XS.xs
+++ b/XS.xs
@@ -127,6 +127,8 @@ PROTOTYPES: ENABLE
 Algorithm::BIT::XS bit_create(IV len);
 
 void bit_free(Algorithm::BIT::XS b);
+ALIAS:
+    DESTROY = 1
 
 IV bit_query(Algorithm::BIT::XS b, IV idx);
 
@@ -141,6 +143,8 @@ PROTOTYPES: ENABLE
 Algorithm::BIT2D::XS bit2d_create(IV n, IV m);
 
 void bit2d_free(Algorithm::BIT2D::XS b);
+ALIAS:
+    DESTROY = 1
 
 IV bit2d_query(Algorithm::BIT2D::XS b, IV i1, IV i2);