diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-08 18:23:54 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-08 18:23:54 +0000 |
| commit | f6e7a6f2dbf5e70e74606e6c6b38830e00ad1420 (patch) | |
| tree | 684810cf19b46794b4c8598238dd169182e014fe /lib/Time | |
| parent | 42d29bacdf382e27adec405e14a6a255f0bd3149 (diff) | |
| download | perl-f6e7a6f2dbf5e70e74606e6c6b38830e00ad1420.tar.gz | |
Upgrade to Time::Local 1.10.
p4raw-id: //depot/perl@22908
Diffstat (limited to 'lib/Time')
| -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'; |