use integer;
use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
-$VERSION = '1.15';
+$VERSION = '1.17';
@ISA = qw( Exporter );
@EXPORT = qw( timegm timelocal );
sub timegm {
my ( $sec, $min, $hour, $mday, $month, $year ) = @_;
- # Need to check leap year before altering the value
- my $leap_year = _is_leap_year($year)
-
if ( $year >= 1000 ) {
$year -= 1900;
}
my $md = $MonthDays[$month];
++$md
- if $month == 1 && $leap_year;
+ if $month == 1 && _is_leap_year( $year + 1900 );
croak "Day '$mday' out of range 1..$md" if $mday > $md or $mday < 1;
croak "Hour '$hour' out of range 0..23" if $hour > 23 or $hour < 0;