Message-Id: <
20020219230847.G66560@pobox.com>
p4raw-id: //depot/perl@14777
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 );
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 {