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

Text File | 1995-07-03 | 190b | 11 lines

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

sub strerror {
    usage "strerror(errno)" if @_ != 1;
    local $! = $_[0];
    $! . "";
}

1;