[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

1 files changed, 4 insertions, 4 deletions

diff --git a/vms/vms.c b/vms/vms.c
index 08a799183c..c66279d56d 100644
--- 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) {