From: Graham Barr <gbarr@pobox.com>
Date: Tue, 19 Feb 2002 23:08:47 +0000 (+0000)
Subject: Re: Cannot handle date (0, 0, 0, 2, 0, 1970)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7ec2331900cd22a50f48dd01fa18bd3026f6253;p=p5sagit%2Fp5-mst-13.2.git

Re: Cannot handle date (0, 0, 0, 2, 0, 1970)
   Message-Id: <20020219230847.G66560@pobox.com>

p4raw-id: //depot/perl@14777
---

diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm
index 126c365..686a3d8 100644
--- a/lib/Time/Local.pm
+++ b/lib/Time/Local.pm
@@ -2,10 +2,11 @@ package Time::Local;
 use 5.006;
 require Exporter;
 use Carp;
+use Config;
 use strict;
 use integer;
 
-our $VERSION    = '1.03';
+our $VERSION    = '1.04';
 our @ISA	= qw( Exporter );
 our @EXPORT	= qw( timegm timelocal );
 our @EXPORT_OK	= qw( timegm_nocheck timelocal_nocheck );
@@ -25,10 +26,8 @@ my (%Options, %Cheat);
 my $Epoc = 0; $Epoc = _daygm(gmtime(0));
 %Cheat=(); # clear the cache as epoc has changed
 
-my $MaxDay = do {
-  no integer;
-  int((~0>>1-43200)/86400)-1;
-};
+my $MaxInt = ((1<<(8 * $Config{intsize} - 2))-1)*2 + 1;
+my $MaxDay = int(($MaxInt-43200)/86400)-1;
 
 
 sub _daygm {