Commit upstream/1.2000 - libtimedate-perl

+6

-0

ChangeLog less more

	0	1.20 -- Sat Dec 12 06:38:14 CST 2009
	1
	2	* Typo => s/timezome/timezone/ [yanick]
	3	* RT#52387 Fix %s formating to use timelocal when no timezone is given
	4	* RT#51664 fix str2time('16 Oct 09') to not give a negative result
	5
0	6	1.19 -- Fri Sep 25 13:59:41 CDT 2009
1	7
2	8	* Replace Date::Language::Hungarian with version from CPAN by Lee Goddard

+1

-1

MANIFEST less more

35	35	lib/Date/Parse.pm
36	36	lib/Time/Zone.pm
37	37	Makefile.PL
38		MANIFEST
	38	MANIFEST This list of files
39	39	README
40	40	t/cpanrt.t
41	41	t/date.t

+1

-1

META.yml less more

0	0	--- #YAML:1.0
1	1	name: TimeDate
2		version: 1.19
	2	version: 1.20
3	3	abstract: ~
4	4	author:
5	5	- Graham Barr <gbarr@pobox.com>

+1

-1

Makefile.PL less more

8	8	WriteMakefile(
9	9	NAME => 'TimeDate',
10	10	AUTHOR => 'Graham Barr <gbarr@pobox.com>',
11		VERSION => '1.19',
	11	VERSION => '1.20',
12	12	(eval { ExtUtils::MakeMaker->VERSION(6.21) } ? (LICENSE => 'perl') : ()),
13	13	( eval { ExtUtils::MakeMaker->VERSION(6.46) } ? (
14	14	META_MERGE => {

+11

-11

SIGNATURE less more

13	13	-----BEGIN PGP SIGNED MESSAGE-----
14	14	Hash: SHA1
15	15
16		SHA1 1cfbd5694da3169c17b3648846c9f5e7223f4d26 ChangeLog
17		SHA1 205981f550ad232f94d59d8eb79c5e6ecbe8f48d MANIFEST
18		SHA1 8e0c2e200e666305e860ca20930ddf7f285825f3 META.yml
19		SHA1 6f6d8f3971192224df63d9864dc341078c15286d Makefile.PL
	16	SHA1 036da21b212a902ecb9d195565bbcd4c51bccecc ChangeLog
	17	SHA1 efb2a90cd095d97ec148e6263fb921f560cfffb5 MANIFEST
	18	SHA1 4efed966d43e74a6f53ef2bcdbfc4de05b92035f META.yml
	19	SHA1 e111caf8b7da35935fa7004a17045cab55278445 Makefile.PL
20	20	SHA1 80cff3b1f65e7df95eaa1a992b688c2c5e1d2b6e README
21		SHA1 6823bd5e2e3cac12b7b9870d9840f4606f3eb422 lib/Date/Format.pm
	21	SHA1 5ca10e18e888daf0883de553219f42ca2422763f lib/Date/Format.pm
22	22	SHA1 08342e72298e839f21236dff7555f2505f928d32 lib/Date/Language.pm
23	23	SHA1 50703aeade60a04398517416d30a2d8918c95578 lib/Date/Language/Afar.pm
24	24	SHA1 f9450ca0047510a4102c32cc4e20a435cdd85b31 lib/Date/Language/Amharic.pm

52	52	SHA1 20fc6beb32657ca147719f713ff816bbb696da20 lib/Date/Language/TigrinyaEritrean.pm
53	53	SHA1 30f77a43a000f2ce3d22b1b633261a20289025aa lib/Date/Language/TigrinyaEthiopian.pm
54	54	SHA1 54288741c52b09ee92b0487848df74a08cdc3b9e lib/Date/Language/Turkish.pm
55		SHA1 dbcc4a151b1c558b32ed61fa7ee98e0fb47b9d7f lib/Date/Parse.pm
	55	SHA1 b10ec48bd01b73638e4c6dce3f554e4c77267b6c lib/Date/Parse.pm
56	56	SHA1 394c7d372c25107ba5151ceca44c0599188907c7 lib/Time/Zone.pm
57		SHA1 62465108c0d5fc14e08ae41e2f963c4d9074b1d6 t/cpanrt.t
	57	SHA1 ee65cf5b634d907c4cc2d414e49c06175461e6ac t/cpanrt.t
58	58	SHA1 7b16580497a96a4bc551b87b8b97ec89331e81f8 t/date.t
59	59	SHA1 bf6f4a7c599485ab11779c99fc821378e547d26d t/format.t
60	60	SHA1 acef4dd152cd391a3e7a7945c8405a50d965f335 t/getdate.t
61	61	SHA1 501dcb487e33f6b2d4577ef2e6e5f67f038d3c04 t/lang.t
62	62	-----BEGIN PGP SIGNATURE-----
63		Version: GnuPG v1.4.9 (Darwin)
	63	Version: GnuPG v1.4.10 (Darwin)
64	64
65		iEYEARECAAYFAkq9E3QACgkQR0BL4gbYw3QQYACfQg56MxwRuw6XPWOfpumki+CN
66		CWAAn1WM3GKmUyJdxf9g95yvZl552Tg0
67		=2lbe
	65	iEYEARECAAYFAksjjt4ACgkQR0BL4gbYw3RCKgCePxf2QrH/3uvOofKewESV0zto
	66	t+sAnA5dGEi945ziAfAkLyFUhIMWnm7U
	67	=GqfE
68	68	-----END PGP SIGNATURE-----

+2

-2

lib/Date/Format.pm less more

7	7	use vars qw(@EXPORT @ISA $VERSION);
8	8	require Exporter;
9	9
10		$VERSION = "2.23";
	10	$VERSION = "2.24";
11	11	@ISA = qw(Exporter);
12	12	@EXPORT = qw(time2str strftime ctime asctime);
13	13

214	214	sub format_M { sprintf("%02d",$_[0]->[1]) }
215	215	sub format_q { sprintf("%01d",int($_[0]->[4] / 3) + 1) }
216	216	sub format_s {
217		$epoch = timegm(@{$_[0]}[0..5])
	217	$epoch = timelocal(@{$_[0]}[0..5])
218	218	unless defined $epoch;
219	219	sprintf("%d",$epoch)
220	220	}

+4

-4

lib/Date/Parse.pm less more

14	14	@ISA = qw(Exporter);
15	15	@EXPORT = qw(&strtotime &str2time &strptime);
16	16
17		$VERSION = "2.29";
	17	$VERSION = "2.30";
18	18
19	19	my %month = (
20	20	january => 0,

260	260	if (defined $zone) {
261	261	$result = eval {
262	262	local $SIG{__DIE__} = sub {}; # Ick!
263		timegm($ss,$mm,$hh,$day,$month,$year+1900);
	263	timegm($ss,$mm,$hh,$day,$month,$year);
264	264	};
265	265	return undef
266	266	if !defined $result

272	272	else {
273	273	$result = eval {
274	274	local $SIG{__DIE__} = sub {}; # Ick!
275		timelocal($ss,$mm,$hh,$day,$month,$year+1900);
	275	timelocal($ss,$mm,$hh,$day,$month,$year);
276	276	};
277	277	return undef
278	278	if !defined $result

311	311
312	312	C<str2time> parses C<DATE> and returns a unix time value, or undef upon failure.
313	313	C<ZONE>, if given, specifies the timezone to assume when parsing if the
314		date string does not specify a timezome.
	314	date string does not specify a timezone.
315	315
316	316	=item strptime(DATE [, ZONE])
317	317

+15

-3

t/cpanrt.t less more

0		use Date::Format qw(time2str);
1		use Date::Parse qw(strptime);
	0	use Date::Format qw(time2str strftime);
	1	use Date::Parse qw(strptime str2time);
2	2
3		print "1..5\n";
	3	print "1..8\n";
4	4
5	5	my $i = 1;
6	6

39	39	print "ok ", $i++, "\n";
40	40	}
41	41
	42	{ # [rt.cpan.org #52387] seconds since the Epoch, UCT
	43	my $time = time;
	44	my @lt = localtime(time);
	45	print "not " unless strftime("%s", @lt) eq $time;
	46	print "ok ", $i++, "\n";
	47	print "not " unless time2str("%s",$time) eq $time;
	48	print "ok ", $i++, "\n";
	49	}
42	50
	51	{ # [rt.cpan.org #51664] Change in str2time behaviour between 1.16 and 1.19
	52	print "not " if str2time('16 Oct 09') < 0;
	53	print "ok ", $i++, "\n";
	54	}