Changeset 3911 for lang/perl/Senna/trunk/senna-global.c

Timestamp:

01/01/08 01:39:05 (5 years ago)

Author:

daisuke

Message:

more code... (things are still broken)

Files:

• lang/perl/Senna/trunk/senna-global.c (modified) (1 diff)

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

@@ -76 +76 @@
         SV *sv;
 {
-    return (void *) "goo";
+    STRLEN len;
+    char *key = SvPV(sv, len);
+
+    return (void *) key;
 }