1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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();
|
