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) |
2d5e9e5d |
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 |
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 |
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 |
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' |