| Line | |
|---|
| 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/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'
|
|---|
| 11 | $ pif perl_popen_out .nes. "" then perl_define sys$output 'perl_popen_out'
|
|---|
| 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
|
|---|
| 18 | $ perl_on
|
|---|
| 19 | $ 'c'
|
|---|
| 20 | $ perl_exit '$STATUS'
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
