Changes in perlglue.xs [3b8a563:f25df21]

File:

• perlglue.xs (modified) (5 diffs)

perlglue.xs

@@ -43 +43 @@
                         rv = owl_function_command(cmd);
                 } else {
-                        /* Ensure this is NULL-terminated. */
-                        argv = g_new0(const char *, items + 1);
+                        argv = g_new(const char *, items + 1);
                         argv[0] = cmd;
                         for(i = 1; i < items; i++) {
@@ -57 +56 @@
                 RETVAL
         CLEANUP:
-                g_free(rv);
+                if (rv) g_free(rv);
 
 SV *
@@ -114 +113 @@
                 RETVAL
         CLEANUP:
-                g_free(rv);
+                if (rv) g_free(rv);
 
 const utf8 *
@@ -141 +140 @@
                 RETVAL
     CLEANUP:
-                g_free(rv);
+                if (rv) g_free(rv);
 
 void
@@ -324 +323 @@
                 RETVAL
         CLEANUP:
-                g_free(rv);
+                if (rv)
+                        g_free(rv);
 
 void