This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 9
[perl5.git] / lib / auto / POSIX / waitpid.al
1 # NOTE:  Derived from POSIX.pm.  Changes made here will be lost.
2 package POSIX;
3
4 sub waitpid {
5     usage "waitpid(pid, statusvariable, options)", caller if @_ != 3;
6     local $result = waitpid($_[0], $_[2]);
7     $_[1] = $?;
8     $result;
9 }
10
11 1;