From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 2 Jul 2010 00:47:34 +0000 (-0500)
Subject: Fix nasty memory leak in vms.c:Perl_flex_stat_int().
X-Git-Tag: v5.13.3~213
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/acb491c0cd162b7c0c4e6a68f3c2ed83504d2261?hp=a80e93c2ac4ef033b7aff53be0a697746e09f7ea

Fix nasty memory leak in vms.c:Perl_flex_stat_int().

Thanks to Mark Berryman in

  Message-id: <52BFD39B-C4BA-4350-AA1F-C2E7F128EF21@theberrymans.com>

for the report and the fix.
---

diff --git a/vms/vms.c b/vms/vms.c
index a2552d7..e98c015 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -12911,6 +12911,8 @@ Perl_flex_stat_int(pTHX_ const char *fspec, Stat_t *statbufp, int lstat_flag)
     }
     /* If we were successful, leave errno where we found it */
     if (retval == 0) RESTORE_ERRNO;
+    PerlMem_free(temp_fspec);
+    PerlMem_free(fileified);
     return retval;
 
 }  /* end of flex_stat_int() */