[patch@34995] vms.c - Memory freed from wrong pool
[email protected] ("John E. Malmberg")
| Newsgroups | perl.perl5.porters,perl.vmsperl |
|---|---|
| Message-ID | <[email protected]> |
In trim_unixpath, the wrong free routine was being used resulting in data corruption. -John [email protected] Personal Opinion Only
vms_c_badfree.gdiff
(text/plain, 474 B)
--- /rsync_root/perl/vms/vms.c Sun Nov 23 22:54:17 2008
+++ vms/vms.c Wed Dec 3 19:05:18 2008
@@ -9345,10 +9345,10 @@
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) {