From: John E. Malmberg <wb8tyw@qsl.net>
Date: Wed, 3 Dec 2008 19:38:04 +0000 (-0600)
Subject: [patch@34995] vms.c - Memory freed from wrong pool
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=827f156d0538416a3c0bae2e4b818b96c831d016;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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) {