Commit | Line | Data |
---|---|---|
f9ecfa39 | 1 | $! 'f$verify(0)' |
93d6612c CB |
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 | $ perl_on |
f9ecfa39 | 19 | $ 'c' |
93d6612c | 20 | $ perl_exit '$STATUS' |