summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2010-07-01 19:47:34 -0500
committerCraig A. Berry <craigberry@mac.com>2010-07-01 19:47:34 -0500
commitacb491c0cd162b7c0c4e6a68f3c2ed83504d2261 (patch)
tree47c72528816b51fd51b9f02132cdcbbd80381d92 /vms
parenta80e93c2ac4ef033b7aff53be0a697746e09f7ea (diff)
downloadperl-acb491c0cd162b7c0c4e6a68f3c2ed83504d2261.tar.gz
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.
Diffstat (limited to 'vms')
-rw-r--r--vms/vms.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/vms/vms.c b/vms/vms.c
index a2552d787a..e98c01575c 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() */