diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-21 00:46:14 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-21 00:46:14 +0000 |
| commit | 2d5e9e5d1dfda924cd025894f9c8781ba03c3c8c (patch) | |
| tree | 1a13ca1cdda52d63b3c96fa0314f77a006b95a58 /vms/vmspipe.com | |
| parent | a83e3d3ce76b34dfbf0c18f74b132c113d546c4a (diff) | |
| download | perl-2d5e9e5d1dfda924cd025894f9c8781ba03c3c8c.tar.gz | |
Integrate changes #9262,9264,9265,9266 from maintperl to mainline.
revert the leak fix in change#9142 (problem needs a more experimental
fix unsuitable for 5.6.1)
do alphabetical sorting by default (for csh compatibility)
cut-n-paste goof in change#9264
VMS piping fixes (from Charles Lane)
p4raw-link: @9266 on //depot/maint-5.6/perl: 72d1c956969523b19a71b5ffb5af9479f09d0e6a
p4raw-link: @9265 on //depot/maint-5.6/perl: 8549c3fc2da30e970df00a46a796a39e843777aa
p4raw-link: @9264 on //depot/maint-5.6/perl: 1086ad2319c3ee3e3873c478e76309ea4f03453b
p4raw-link: @9262 on //depot/maint-5.6/perl: a89eb504d1201e0dad09aaf86db07d000904f216
p4raw-link: @9142 on //depot/maint-5.6/perl: 26972843796e21c404c9d13ec5ee86e7b952a2bd
p4raw-id: //depot/perl@9269
p4raw-integrated: from //depot/maint-5.6/perl@9268 'copy in'
ext/File/Glob/Changes ext/File/Glob/bsd_glob.c
ext/File/Glob/bsd_glob.h (@5902..) ext/File/Glob/Glob.pm
(@7770..) vms/vmspipe.com (@8636..) vms/vms.c (@8986..) 'edit
in' ext/File/Glob/Glob.xs (@9264..) 'merge in' scope.c
(@9142..)
Diffstat (limited to 'vms/vmspipe.com')
| -rw-r--r-- | vms/vmspipe.com | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vms/vmspipe.com b/vms/vmspipe.com index 652783eec5..28caa745e7 100644 --- a/vms/vmspipe.com +++ b/vms/vmspipe.com @@ -6,8 +6,8 @@ $ perl_exit = "exit" $ perl_del = "delete" $ pif = "if" $! --- define i/o redirection (sys$output set by lib$spawn) -$ pif perl_popen_in .nes. "" then perl_define/user sys$input 'perl_popen_in' -$ pif perl_popen_err .nes. "" then perl_define/user sys$error 'perl_popen_err' +$ pif perl_popen_in .nes. "" then perl_define/user/name_attributes=confine sys$input 'perl_popen_in' +$ pif perl_popen_err .nes. "" then perl_define/user/name_attributes=confine sys$error 'perl_popen_err' $ pif perl_popen_out .nes. "" then perl_define sys$output 'perl_popen_out' $ cmd = perl_popen_cmd $! --- get rid of global symbols |