diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-11-15 17:54:47 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-16 04:40:19 +0000 |
| commit | 48b5a746f8286bc3e3fca47b620f46546fdc8434 (patch) | |
| tree | e6e2979ebdf65961baefae22ca3735dc129b1270 /vms/vmspipe.com | |
| parent | 8db1c9eef38d8afcb875490c3652c084c231100a (diff) | |
| download | perl-48b5a746f8286bc3e3fca47b620f46546fdc8434.tar.gz | |
subprocess command line size increase
Message-Id: <011115225352.2db1e@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@13038
Diffstat (limited to 'vms/vmspipe.com')
| -rw-r--r-- | vms/vmspipe.com | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/vms/vmspipe.com b/vms/vmspipe.com index 28caa745e7..30ce592e86 100644 --- a/vms/vmspipe.com +++ b/vms/vmspipe.com @@ -9,12 +9,20 @@ $! --- define i/o redirection (sys$output set by lib$spawn) $ 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 +$! --- build command line to get max possible length +$c=perl_popen_cmd0 +$c=c+perl_popen_cmd1 +$c=c+perl_popen_cmd2 +$x=perl_popen_cmd3 +$c=c+x $! --- get rid of global symbols +$ perl_del/symbol/global perl_popen_cmd0 +$ perl_del/symbol/global perl_popen_cmd1 +$ perl_del/symbol/global perl_popen_cmd2 +$ perl_del/symbol/global perl_popen_cmd3 $ perl_del/symbol/global perl_popen_in $ perl_del/symbol/global perl_popen_err $ perl_del/symbol/global perl_popen_out -$ perl_del/symbol/global perl_popen_cmd $ perl_on -$ 'cmd +$ 'c $ perl_exit '$STATUS' |