In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/acb491c0cd162b7c0c4e6a68f3c2ed83504d2261?hp=a80e93c2ac4ef033b7aff53be0a697746e09f7ea>
- Log ----------------------------------------------------------------- commit acb491c0cd162b7c0c4e6a68f3c2ed83504d2261 Author: Craig A. Berry <[email protected]> Date: Thu Jul 1 19:47:34 2010 -0500 Fix nasty memory leak in vms.c:Perl_flex_stat_int(). Thanks to Mark Berryman in Message-id: <[email protected]> for the report and the fix. ----------------------------------------------------------------------- Summary of changes: vms/vms.c | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) 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() */ -- Perl5 Master Repository
