Commit | Line | Data |
---|---|---|
93d6612c CB |
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) | |
2d5e9e5d JH |
9 | $ pif perl_popen_in .nes. "" then perl_define/user/name_attributes=confine sys$input 'perl_popen_in' |
10 | $ pif perl_popen_err .nes. "" then perl_define/user/name_attributes=confine sys$error 'perl_popen_err' | |
d082dcd6 | 11 | $ pif perl_popen_out .nes. "" then perl_define sys$output 'perl_popen_out' |
48b5a746 CL |
12 | $! --- build command line to get max possible length |
13 | $c=perl_popen_cmd0 | |
14 | $c=c+perl_popen_cmd1 | |
15 | $c=c+perl_popen_cmd2 | |
16 | $x=perl_popen_cmd3 | |
17 | $c=c+x | |
93d6612c | 18 | $! --- get rid of global symbols |
48b5a746 CL |
19 | $ perl_del/symbol/global perl_popen_cmd0 |
20 | $ perl_del/symbol/global perl_popen_cmd1 | |
21 | $ perl_del/symbol/global perl_popen_cmd2 | |
22 | $ perl_del/symbol/global perl_popen_cmd3 | |
93d6612c CB |
23 | $ perl_del/symbol/global perl_popen_in |
24 | $ perl_del/symbol/global perl_popen_err | |
d082dcd6 | 25 | $ perl_del/symbol/global perl_popen_out |
93d6612c | 26 | $ perl_on |
48b5a746 | 27 | $ 'c |
93d6612c | 28 | $ perl_exit '$STATUS' |