Changeset fbadb37 for perlglue.xs

Timestamp:

Sep 28, 2009, 4:48:21 PM (15 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

1a5db78

Parents:

9cb03bf

Message:

get_zephyr_variable: Actually, the strdup isn’t needed here at all.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -416 +416 @@
         }
 
-char *
+const char *
 get_zephyr_variable(name)
         const char *name;
-        PREINIT:
-                char *result;
-        CODE:
-                result = owl_strdup(owl_zephyr_get_variable(name));
-                RETVAL = result;
-        OUTPUT:
-                RETVAL
-        CLEANUP:
-                owl_free(result);
+        CODE:
+                RETVAL = owl_zephyr_get_variable(name);
+        OUTPUT:
+                RETVAL
 
 MODULE = BarnOwl                PACKAGE = BarnOwl::Internal