diff options
| -rw-r--r-- | lib/Time/Local.pm | 2 | ||||
| -rwxr-xr-x | lib/Time/Local.t | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm index a0506d250d..73407c7c13 100644 --- a/lib/Time/Local.pm +++ b/lib/Time/Local.pm @@ -7,7 +7,7 @@ use strict; use integer; use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK ); -$VERSION = '1.09'; +$VERSION = '1.10'; $VERSION = eval $VERSION; @ISA = qw( Exporter ); @EXPORT = qw( timegm timelocal ); 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'; |