use Config;
use Test::More;
# This is placed in a separate file, as some 'requires' and 'uses' are known
# to cause it to not fail even with the bug it's testing still being
# broken. [perl #123503].
plan(skip_all => "POSIX is unavailable")
unless $Config{extensions} =~ /\bPOSIX\b/;
require POSIX;
$! = 1;
POSIX::strerror(1);
is (0+$!, 1, 'strerror doesn\'t destroy $!');
# [perl #126229] POSIX::strerror() clears $!
{
local $! = 29;
my $e = POSIX::strerror($!);
is (0+$!, 29);
}
done_testing();