In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9e2bec029fb0c747ff8d682f110159537237714b?hp=8bae1a1ef1c5f80478c931b196ed236a1a222e3e>
- Log ----------------------------------------------------------------- commit 9e2bec029fb0c747ff8d682f110159537237714b Author: Craig A. Berry <[email protected]> Date: Fri Jul 2 19:04:35 2010 -0500 Plug more memory leaks in vms.c. In Perl_rename() we were allocating the same thing twice. In vms_fid_to_name() (used by realpath() and realname()), we had another flagrant omission of freeing local storage. ----------------------------------------------------------------------- Summary of changes: vms/vms.c | 7 ++----- 1 files changed, 2 insertions(+), 5 deletions(-) diff --git a/vms/vms.c b/vms/vms.c index e98c015..db686d2 100644 --- a/vms/vms.c +++ b/vms/vms.c @@ -5341,10 +5341,6 @@ Stat_t dst_st; } /* The source must be a file specification */ - vms_dir_file = PerlMem_malloc(VMS_MAXRSS); - if (vms_dir_file == NULL) - _ckvmssts_noperl(SS$_INSFMEM); - ret_str = do_fileify_dirspec(vms_dst, vms_dir_file, 0, NULL); if (ret_str == NULL) { PerlMem_free(vms_dst); @@ -14232,9 +14228,10 @@ struct statbuf_t { if (mode) { *mode = statbuf.old_st_mode; } - return 0; } } + PerlMem_free(temp_fspec); + PerlMem_free(fileified); return sts; } -- Perl5 Master Repository
