diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2006-03-26 09:32:30 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-03-26 21:58:49 +0000 |
| commit | 2623a4a6519439086d13385694a339254e052afe (patch) | |
| tree | 1b9492910b223fa6d78ba72e550587f7a5edeb41 /vms | |
| parent | fb922331c31f6f32208e6e42c889d32cdc6d03d9 (diff) | |
| download | perl-2623a4a6519439086d13385694a339254e052afe.tar.gz | |
[patch@27609] vms pool corruption fix for _NLA0:
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <4426EC4E.8030801@qsl.net>
p4raw-id: //depot/perl@27611
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -5000,11 +5000,13 @@ static char *mp_do_fileify_dirspec(pTHX_ const char *dir,char *buf,int ts) else { /* No; just work with potential name */ if (dirfab.fab$l_sts == RMS$_FNF) dirnam = savnam; else { + int fab_sts; + fab_sts = dirfab.fab$l_sts; + sts = rms_free_search_context(&dirfab); PerlMem_free(esa); PerlMem_free(trndir); PerlMem_free(vmsdir); - set_errno(EVMSERR); set_vaxc_errno(dirfab.fab$l_sts); - sts = rms_free_search_context(&dirfab); + set_errno(EVMSERR); set_vaxc_errno(fab_sts); return NULL; } } @@ -11543,7 +11545,7 @@ static int set_features } /* PCP mode requires creating /dev/null special device file */ - decc_bug_devnull = 1; + decc_bug_devnull = 0; status = sys_trnlnm("DECC_BUG_DEVNULL", val_str, sizeof(val_str)); if ($VMS_STATUS_SUCCESS(status)) { if ((val_str[0] == 'E') || (val_str[0] == '1') || (val_str[0] == 'T')) |