| 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' |
projects / p5sagit/p5-mst-13.2.git / blame