diff options
Diffstat (limited to 'lib/Time/Local.t')
| -rwxr-xr-x | lib/Time/Local.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Time/Local.t b/lib/Time/Local.t index 06db37e659..4401d3d361 100755 --- a/lib/Time/Local.t +++ b/lib/Time/Local.t @@ -100,7 +100,7 @@ ok(timegm(0,0,0, 1, 2, 80) - timegm(0,0,0, 1, 0, 80), 60 * 24 * 3600, # round trip was broken for edge cases if ($^O eq "aix" && $Config{osvers} =~ m/^4\.3\./) { - skip ("No fix expected for edge case test for $_ on AIX 4.3") for qw( timegm timelocal ); + skip( 1, "No fix expected for edge case test for $_ on AIX 4.3") for qw( timegm timelocal ); } else { ok(sprintf('%x', timegm(gmtime(0x7fffffff))), sprintf('%x', 0x7fffffff), '0x7fffffff round trip through gmtime then timegm'); @@ -112,7 +112,7 @@ if ($^O eq "aix" && $Config{osvers} =~ m/^4\.3\./) { if ($ENV{MAINTAINER}) { eval { require POSIX; POSIX::tzset() }; if ($@) { - skip("Cannot call POSIX::tzset() on this platform\n") for 1..3; + skip( 1, "Cannot call POSIX::tzset() on this platform\n" ) for 1..3; } else { local $ENV{TZ} = 'Europe/Vienna'; |