Commit | Line | Data |
93d6612c |
1 | $! 'f$verify(0) |
2 | $! --- protect against nonstandard definitions --- |
3 | $ perl_define = "define/nolog" |
4 | $ perl_on = "on error then exit $STATUS" |
5 | $ perl_exit = "exit" |
6 | $ perl_del = "delete" |
7 | $ pif = "if" |
8 | $! --- define i/o redirection (sys$output set by lib$spawn) |
9 | $ pif perl_popen_in .nes. "" then perl_define sys$input 'perl_popen_in' |
10 | $ pif perl_popen_err .nes. "" then perl_define sys$error 'perl_popen_err' |
11 | $ cmd = perl_popen_cmd |
12 | $! --- get rid of global symbols |
13 | $ perl_del/symbol/global perl_popen_in |
14 | $ perl_del/symbol/global perl_popen_err |
15 | $ perl_del/symbol/global perl_popen_cmd |
16 | $ perl_on |
17 | $ 'cmd |
18 | $ perl_exit '$STATUS' |