diff options
| author | Craig A. Berry <craigberry@mac.com> | 2000-08-29 13:43:26 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-29 23:51:20 +0000 |
| commit | 93d6612c1a533e775e2884e98da42e418edd3a83 (patch) | |
| tree | 7f9e12087dc0bd8fb5e58ca12efcdc4af70999f8 /vms/vmspipe.com | |
| parent | 022dc0897c96201d3aa1961e7ad1a6fd3238bda4 (diff) | |
| download | perl-93d6612c1a533e775e2884e98da42e418edd3a83.tar.gz | |
Chuck Lane's OpenVMS piping improvements
Message-Id: <4.3.2.7.2.20000829180705.01b005b8@exchi01>
p4raw-id: //depot/perl@6903
Diffstat (limited to 'vms/vmspipe.com')
| -rw-r--r-- | vms/vmspipe.com | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/vms/vmspipe.com b/vms/vmspipe.com new file mode 100644 index 0000000000..bbb4461c72 --- /dev/null +++ b/vms/vmspipe.com @@ -0,0 +1,18 @@ +$! 'f$verify(0) +$! --- protect against nonstandard definitions --- +$ perl_define = "define/nolog" +$ perl_on = "on error then exit $STATUS" +$ 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 sys$input 'perl_popen_in' +$ pif perl_popen_err .nes. "" then perl_define sys$error 'perl_popen_err' +$ cmd = perl_popen_cmd +$! --- get rid of global symbols +$ perl_del/symbol/global perl_popen_in +$ perl_del/symbol/global perl_popen_err +$ perl_del/symbol/global perl_popen_cmd +$ perl_on +$ 'cmd +$ perl_exit '$STATUS' |