File: real.t

package info (click to toggle)
libproc-fork-perl 0.807-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 136 kB
  • sloc: perl: 165; makefile: 2
file content (9 lines) | stat: -rw-r--r-- 221 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
 
use strict; use warnings;

use Proc::Fork;

print "1..2\n";

# waitpid ensures order of output
child  {                   print "ok 1 - child code runs\n"  }
parent { waitpid shift, 0; print "ok 2 - parent code runs\n" }