blob: 489b1e3b07283485090d2a99b586ce0e2a56c4b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
# NOTE: Derived from POSIX.pm. Changes made here will be lost.
package POSIX;
sub wait {
usage "wait(statusvariable)", caller if @_ != 1;
local $result = wait();
$_[0] = $?;
$result;
}
1;
|