File: broken_pipe_on_bad_executable_name

package info (click to toggle)
libipc-run-perl 0.80-2
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 452 kB
  • ctags: 186
  • sloc: perl: 5,317; makefile: 44
file content (12 lines) | stat: -rwxr-xr-x 305 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl -w

## Submitted by Dave Mitchell <davem@fdgroup.co.uk>

use IPC::Run qw(run timeout);

$IPC::Run::debug = 10 ;

warn "parent id=$$\n";
$res = run [ './nosuchfile', 0 ], \"foo", \$out, \$err ;
warn "running after 'run',
        pid=$$\n\$?=$?\nstderr=[[[[$err]]]]\nstdout=[[[[$out]]]]\n";