diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2003-07-03 19:59:51 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-04 04:48:37 +0000 |
| commit | f9ecfa39b3c0ebc08fcafc5b1c5a334bffd755b6 (patch) | |
| tree | ffe21c59087952a4f1f818791bb1037b9c8d121a /vms/vmspipe.com | |
| parent | 98718de32ba9128d7c985a9043d61c025725d7fa (diff) | |
| download | perl-f9ecfa39b3c0ebc08fcafc5b1c5a334bffd755b6.tar.gz | |
switch vmspipe.com over to using local symbols instead of global
Message-ID: <OF4DF4AA68.1EF12116-ON85256D59.00120F5E-85256D59.0015F58D@factset.com>
p4raw-id: //depot/perl@19976
Diffstat (limited to 'vms/vmspipe.com')
| -rw-r--r-- | vms/vmspipe.com | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/vms/vmspipe.com b/vms/vmspipe.com index 30ce592e86..dd23bf986c 100644 --- a/vms/vmspipe.com +++ b/vms/vmspipe.com @@ -1,4 +1,4 @@ -$! 'f$verify(0) +$! 'f$verify(0)' $! --- protect against nonstandard definitions --- $ perl_define = "define/nolog" $ perl_on = "on error then exit $STATUS" @@ -15,14 +15,6 @@ $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_on -$ 'c +$ 'c' $ perl_exit '$STATUS' |