[patch@34995] vms.c - Memory freed from wrong pool

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

diff --git a/vms/vms.c b/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) {