Upgrade to Time::Local 1.10.

p4raw-id: //depot/perl@22908

diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm
index a0506d2..73407c7 100644 (file)
--- 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 06db37e..4401d3d 100755 (executable)
--- 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';