File: broken_pipe_on_bad_executable_name

package info (click to toggle)
libipc-run-perl 20231003.0-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 844 kB
  • sloc: perl: 6,255; makefile: 5
file content (12 lines) | stat: -rw-r--r-- 303 bytes parent folder | download | duplicates (4) 
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";