Changeset 3915 for lang/perl/Senna/trunk/senna-index.c

Timestamp:

01/01/08 02:44:08 (5 years ago)

Author:

daisuke

Message:

add record type

Files:

• lang/perl/Senna/trunk/senna-index.c (modified) (2 diffs)

lang/perl/Senna/trunk/senna-index.c

@@ -118 +118 @@
 }
 
-SV *
+void
 SennaPerl_Index_DESTROY(obj)
         SV *obj;
 {
-    return SennaPerl_Index_close(obj);
+    SennaPerl_Index *index;
+    index = XS_STATE(SennaPerl_Index *, obj);
+
+    SennaPerl_Index_close(obj);
+    Safefree(index);
 }
 
@@ -197 +201 @@
     string = SvPV(query, string_len);
 
-PerlIO_printf(PerlIO_stderr(), "string is %s, length %d\n", string, string_len);
-
     rc = sen_index_select(index->index, string, string_len, records, op, optarg);
+    if (rc != sen_success) {
+        sen_records_close(records);
+        croak("sen_index_select() failed");
+    }
 
     return SennaPerl_Records_new("Senna::Records", records);