diff options
| author | Jan Dubois <jand@activestate.com> | 2007-12-20 02:18:52 -0800 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-12-26 14:46:54 +0000 |
| commit | d374f9c73e6118631558f80521fa3b0f1c61fb3a (patch) | |
| tree | 8159c9c48a3e8e6f72770e996f79998aa117a82b | |
| parent | 056749dc23d4abf0e88f273fa54d1f76a2202a64 (diff) | |
| download | perl-d374f9c73e6118631558f80521fa3b0f1c61fb3a.tar.gz | |
64-bit fix for Time::Local
From: "Jan Dubois" <jand@activestate.com>
Message-ID: <044301c84334$c6aa2960$53fe7c20$@com>
p4raw-id: //depot/perl@32728
| -rw-r--r-- | lib/Time/Local.pm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lib/Time/Local.pm b/lib/Time/Local.pm index 764e27e366..4044cd9c9a 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.18'; +$VERSION = '1.18_01'; @ISA = qw( Exporter ); @EXPORT = qw( timegm timelocal ); @@ -29,15 +29,12 @@ use constant SECS_PER_MINUTE => 60; 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 |