[patch@34995] vms.c - Memory freed from wrong pool
John E. Malmberg [Wed, 3 Dec 2008 19:38:04 +0000 (13:38 -0600)]
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <4937347C.70003@qsl.net>

Need PerlMem_free, not Safefree in trim_unixpath.

p4raw-id: //depot/perl@35010

vms/vms.c

index 08a7991..c66279d 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -9345,10 +9345,10 @@ Perl_trim_unixpath(pTHX_ char *fspec, const char *wildspec, int opts)
         char def[NAM$C_MAXRSS+1], *st;
 
         if (getcwd(def, sizeof def,0) == NULL) {
-           Safefree(unixified);
-           Safefree(unixwild);
-           Safefree(lcres);
-           Safefree(tpl);
+           PerlMem_free(unixified);
+           PerlMem_free(unixwild);
+           PerlMem_free(lcres);
+           PerlMem_free(tpl);
            return 0;
        }
        if (!decc_efs_case_preserve) {