From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 8 Jun 2004 18:23:54 +0000 (+0000)
Subject: Upgrade to Time::Local 1.10.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f6e7a6f2dbf5e70e74606e6c6b38830e00ad1420;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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';