Change 19702 by [EMAIL PROTECTED] on 2003/06/06 23:00:00 Upgrade to Time::Local 1.06, by Dave Rolsky
Affected files ... ... //depot/perl/lib/Time/Local.pm#28 edit ... //depot/perl/lib/Time/Local.t#6 edit Differences ... ==== //depot/perl/lib/Time/Local.pm#28 (text) ==== Index: perl/lib/Time/Local.pm --- perl/lib/Time/Local.pm#27~18497~ Thu Jan 16 12:40:58 2003 +++ perl/lib/Time/Local.pm Fri Jun 6 16:00:00 2003 @@ -1,15 +1,16 @@ package Time::Local; -use 5.006; + require Exporter; use Carp; use Config; use strict; use integer; -our $VERSION = '1.04'; -our @ISA = qw( Exporter ); -our @EXPORT = qw( timegm timelocal ); -our @EXPORT_OK = qw( timegm_nocheck timelocal_nocheck ); +use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK ); +$VERSION = '1.06'; [EMAIL PROTECTED] = qw( Exporter ); [EMAIL PROTECTED] = qw( timegm timelocal ); [EMAIL PROTECTED] = qw( timegm_nocheck timelocal_nocheck ); my @MonthDays = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); @@ -169,8 +170,11 @@ These routines are the inverse of built-in perl functions localtime() and gmtime(). They accept a date as a six-element array, and return -the corresponding time(2) value in seconds since the Epoch (Midnight, -January 1, 1970). This value can be positive or negative. +the corresponding time(2) value in seconds since the system epoch +(Midnight, January 1, 1970 UTC on Unix, for example). This value can +be positive or negative, though POSIX only requires support for +positive values, so dates before the system's epoch may not work on +all operating systems. It is worth drawing particular attention to the expected ranges for the values provided. The value for the day of the month is the actual day @@ -261,6 +265,25 @@ The whole scheme for interpreting two-digit years can be considered a bug. The proclivity to croak() is probably a bug. + +=head1 SUPPORT + +Support for this module is provided via the [EMAIL PROTECTED] +email list. See http://lists.perl.org/ for more details. + +Please submit bugs using the RT system at bugs.perl.org, the perlbug +script, or as a last resort, to the [EMAIL PROTECTED] list. + +=head1 AUTHOR + +This module is based on a Perl 4 library, timelocal.pl, that was +included with Perl 4.036, and was most likely written by Tom +Christiansen. + +The current version was written by Graham Barr. + +It is now being maintained separately from the Perl core by Dave +Rolsky, <[EMAIL PROTECTED]>. =cut ==== //depot/perl/lib/Time/Local.t#6 (xtext) ==== Index: perl/lib/Time/Local.t --- perl/lib/Time/Local.t#5~18497~ Thu Jan 16 12:40:58 2003 +++ perl/lib/Time/Local.t Fri Jun 6 16:00:00 2003 @@ -1,8 +1,10 @@ #!./perl BEGIN { - chdir 't' if -d 't'; - @INC = '../lib'; + if ($ENV{PERL_CORE}){ + chdir('t') if -d 't'; + @INC = ('.', '../lib'); + } } use Time::Local; @@ -28,7 +30,10 @@ # use vmsish 'time' makes for oddness around the Unix epoch if ($^O eq 'VMS') { $time[0][2]++ } -print "1..", @time * 2 + 6, "\n"; +my $tests = @time * 2 + 4; +$tests += 2 if $ENV{PERL_CORE}; + +print "1..$tests\n"; $count = 1; for (@time) { @@ -98,7 +103,6 @@ # 03:00:00. In this case, 02:00:00 is an invalid time, and should be # treated like 03:00:00 rather than 01:00:00 - negative zone offsets used # to do the latter - { my $hour = (localtime(timelocal(0, 0, 2, 7, 3, 102)))[2]; # testers in US/Pacific should get 3, @@ -107,12 +111,13 @@ print "ok ", $main::count++, "\n"; } +if ($ENV{PERL_CORE}) { + #print "Testing timelocal.pl module too...\n"; + package test; + require 'timelocal.pl'; + timegm(0,0,0,1,0,80) == main::timegm(0,0,0,1,0,80) or print "not "; + print "ok ", $main::count++, "\n"; -#print "Testing timelocal.pl module too...\n"; -package test; -require 'timelocal.pl'; -timegm(0,0,0,1,0,80) == main::timegm(0,0,0,1,0,80) or print "not "; -print "ok ", $main::count++, "\n"; - -timelocal(1,2,3,4,5,88) == main::timelocal(1,2,3,4,5,88) or print "not "; -print "ok ", $main::count++, "\n"; + timelocal(1,2,3,4,5,88) == main::timelocal(1,2,3,4,5,88) or print "not "; + print "ok ", $main::count++, "\n"; +} End of Patch.