Change 32728: [PATCH] 64-bit fix for Time::Local

[Steve Peters]

Change 32728 by [EMAIL PROTECTED] on 2007/12/26 14:46:54

        Subject:  [PATCH] 64-bit fix for Time::Local
        From: "Jan Dubois" <[EMAIL PROTECTED]>
        Date: Thu, 20 Dec 2007 10:18:52 -0800
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/Time/Local.pm#43 edit

Differences ...

==== //depot/perl/lib/Time/Local.pm#43 (text) ====
Index: perl/lib/Time/Local.pm
--- perl/lib/Time/Local.pm#42~32211~    2007-11-02 03:04:34.000000000 -0700
+++ perl/lib/Time/Local.pm      2007-12-26 06:46:54.000000000 -0800
@@ -7,7 +7,7 @@
 use integer;
 
 use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
-$VERSION   = '1.18';
+$VERSION   = '1.18_01';
 
 @ISA       = qw( Exporter );
 @EXPORT    = qw( timegm timelocal );
@@ -29,15 +29,12 @@
 use constant SECS_PER_HOUR   => 3600;
 use constant SECS_PER_DAY    => 86400;
 
-my $MaxInt = ( ( 1 << ( 8 * $Config{intsize} - 2 ) ) -1 ) * 2 + 1;
+my $MaxInt = ( ( 1 << ( 8 * $Config{ivsize} - 2 ) ) - 1 ) * 2 + 1;
 my $MaxDay = int( ( $MaxInt - ( SECS_PER_DAY / 2 ) ) / SECS_PER_DAY ) - 1;
 
 if ( $^O eq 'MacOS' ) {
     # time_t is unsigned...
-    $MaxInt = ( 1 << ( 8 * $Config{intsize} ) ) - 1;
-}
-else {
-    $MaxInt = ( ( 1 << ( 8 * $Config{intsize} - 2 ) ) - 1 ) * 2 + 1;
+    $MaxInt = ( 1 << ( 8 * $Config{ivsize} ) ) - 1;
 }
 
 # Determine the EPOC day for this machine
End of Patch.