OS/2 Shareware BBS: 10 Tools/10-Tools.zip/perl501m.zip/lib/auto/POSIX/waitpid.al

Text File | 1995-07-03 | 249b | 12 lines

# NOTE: Derived from lib/POSIX.pm.  Changes made here will be lost.
package POSIX;

sub waitpid {
    usage "waitpid(pid, statusvariable, options)" if @_ != 3;
    local $result = waitpid($_[0], $_[2]);
    $_[1] = $?;
    $result;
}

1;