r31351 - in /trunk/libdatetime-perl: Changes META.yml SIGNATURE debian/changelog lib/DateTime.pm t/41cldr_format.t
antonio-guest at users.alioth.debian.org
antonio-guest at users.alioth.debian.org
Tue Mar 3 23:46:58 UTC 2009
Author: antonio-guest
Date: Tue Mar 3 23:46:51 2009
New Revision: 31351
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31351
Log:
New upstream release
Modified:
trunk/libdatetime-perl/Changes
trunk/libdatetime-perl/META.yml
trunk/libdatetime-perl/SIGNATURE
trunk/libdatetime-perl/debian/changelog
trunk/libdatetime-perl/lib/DateTime.pm
trunk/libdatetime-perl/t/41cldr_format.t
Modified: trunk/libdatetime-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/Changes?rev=31351&op=diff
==============================================================================
--- trunk/libdatetime-perl/Changes (original)
+++ trunk/libdatetime-perl/Changes Tue Mar 3 23:46:51 2009
@@ -1,3 +1,13 @@
+0.47 2009-03-01
+
+- The handling of CLDR format 'j' and 'jj' was backwards, using 24
+ hour time for locales that wanted 12 hour, and vice versa. Reported
+ by Maros Kollar.
+
+- The CLDR formatting was missing support for lower-case "q"
+ patterns. Reported by Maros Kollar.
+
+
0.46 2009-02-28
- Added a duration_class method for the benefit of DateTime.pm
Modified: trunk/libdatetime-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/META.yml?rev=31351&op=diff
==============================================================================
--- trunk/libdatetime-perl/META.yml (original)
+++ trunk/libdatetime-perl/META.yml Tue Mar 3 23:46:51 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: DateTime
-version: 0.46
+version: 0.47
abstract: DateTime base objects
author:
- Dave Rolsky <autarch at urth.org>
Modified: trunk/libdatetime-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/SIGNATURE?rev=31351&op=diff
==============================================================================
--- trunk/libdatetime-perl/SIGNATURE (original)
+++ trunk/libdatetime-perl/SIGNATURE Tue Mar 3 23:46:51 2009
@@ -15,18 +15,18 @@
Hash: SHA1
SHA1 c951898b770a16da2897d908ab6f9f72057bd570 CREDITS
-SHA1 ef70e79df0315277893fbcc485cab6c2e1328ee9 Changes
+SHA1 88d8496a110f46fd04d3f14244a33b893a4635d0 Changes
SHA1 584d54b142ddaf04e432663d0028561cbe44d5a0 DateTime.xs
SHA1 f235ba4160673bcb7c9d58c2f09dbc7fc0efadea LICENSE
SHA1 8ecb0421940e2c011413cc577e3ffeafd070248b MANIFEST
SHA1 4e2c3ce93609615474a50e56299fb1cadcd2c6fa MANIFEST.SKIP
-SHA1 863e5b04b1c407a455b68f043f827ae40ce60e6c META.yml
+SHA1 5d21d1d784665b0eddc6b0e1a9ba4ae5c46f08af META.yml
SHA1 2e1f92628b4ac103434685b59a8f2507c08ee2fa Makefile.PL
SHA1 c9301a379ff7bb5bca2878ac0a2fe9fb1e74ae45 README
SHA1 bfc70fbe8fa29484452bea8c2ed4afd55218f2c2 TODO
SHA1 b67b906c9fbaab9ccac635d623cb4e6064feb8f0 leap_seconds.h
SHA1 ad083d04f765963b707dab9d566bf17e92fa51e9 leaptab.txt
-SHA1 c65274be754492a6d44216fcdea214e5798840a2 lib/DateTime.pm
+SHA1 a756363da9a4dca898b0c409a7c408b9a3381877 lib/DateTime.pm
SHA1 e17e7dc0ab84f1ac9a97854894757975c5f4de0f lib/DateTime/Duration.pm
SHA1 3166fafcd4b8121470e5395ef8e00564edd33af1 lib/DateTime/Helpers.pm
SHA1 6bfc8fc10b9ae01458ab00f23eb967b734f073f5 lib/DateTime/Infinite.pm
@@ -74,7 +74,7 @@
SHA1 69ad635c579d55e725ead71026f8367ab4dde37b t/38local-subtract.t
SHA1 5463926117414ec4f0f1d600aec03d24d2eb0e24 t/39no-so.t
SHA1 38c1cc264996e606146bead0c3c0520c74efa1b4 t/40leap-years.t
-SHA1 c855add95035cd338c731b32ae86b4bd1be9f4b8 t/41cldr_format.t
+SHA1 0ec6551d372d0965b6e9a6dae1a51c9483645378 t/41cldr_format.t
SHA1 e33a4df832d0b1acaee919cfda640ca094a81520 t/42duration_class.t
SHA1 25f497cf107c4135a293e54320c71c8da95ca64a t/pod-coverage.t
SHA1 37307177c8305132ecc2c9b0778f53fa48f1691e t/pod.t
@@ -82,7 +82,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (GNU/Linux)
-iEYEARECAAYFAkmpTJIACgkQ3Or3ZzQuifN73gCgy2w9E/uR0CypGm4oEGsOOFVD
-YnAAnjtcYmTE4fFjyTDXjICoB12XDq+D
-=gYWj
+iEYEARECAAYFAkmquB8ACgkQ3Or3ZzQuifNf5QCeJVImRJYsEJwaIInAdeGfa3a2
+IBgAoOGADSNUAWzSHOPDQluOB2HteU70
+=5oJB
-----END PGP SIGNATURE-----
Modified: trunk/libdatetime-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/debian/changelog?rev=31351&op=diff
==============================================================================
--- trunk/libdatetime-perl/debian/changelog (original)
+++ trunk/libdatetime-perl/debian/changelog Tue Mar 3 23:46:51 2009
@@ -1,3 +1,9 @@
+libdatetime-perl (2:0.4700-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Antonio Radici <antonio at dyne.org> Tue, 03 Mar 2009 23:41:02 +0000
+
libdatetime-perl (2:0.4600-2) unstable; urgency=low
* Remove build dependency on libdatetime-format-strptime-perl which was
Modified: trunk/libdatetime-perl/lib/DateTime.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/lib/DateTime.pm?rev=31351&op=diff
==============================================================================
--- trunk/libdatetime-perl/lib/DateTime.pm (original)
+++ trunk/libdatetime-perl/lib/DateTime.pm Tue Mar 3 23:46:51 2009
@@ -12,7 +12,7 @@
BEGIN
{
- $VERSION = '0.46';
+ $VERSION = '0.47';
my $loaded = 0;
unless ( $ENV{PERL_DATETIME_PP} )
@@ -1022,6 +1022,10 @@
qr/QQQ/ => 'quarter_abbr',
qr/(QQ?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->quarter() ) },
+ qr/qqqq/ => sub { $_[0]->{locale}->quarter_stand_alone_wide()->[ $_[0]->quarter_0() ] },
+ qr/qqq/ => sub { $_[0]->{locale}->quarter_stand_alone_abbreviated()->[ $_[0]->quarter_0() ] },
+ qr/(qq?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->quarter() ) },
+
qr/MMMMM/ => sub { $_[0]->{locale}->month_format_narrow->[ $_[0]->month_0() ] },
qr/MMMM/ => 'month_name',
qr/MMM/ => 'month_abbr',
@@ -1061,7 +1065,7 @@
qr/(HH?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->hour() ) },
qr/(KK?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->hour_12_0() ) },
qr/(kk?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->hour_1() ) },
- qr/(jj?)/ => sub { my $h = $_[0]->{locale}->prefers_24_hour_time() ? $_[0]->hour_12() : $_[0]->hour();
+ qr/(jj?)/ => sub { my $h = $_[0]->{locale}->prefers_24_hour_time() ? $_[0]->hour() : $_[0]->hour_12();
$_[0]->_zero_padded_number( $1, $h ) },
qr/(mm?)/ => sub { $_[0]->_zero_padded_number( $1, $_[0]->minute() ) },
Modified: trunk/libdatetime-perl/t/41cldr_format.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-perl/t/41cldr_format.t?rev=31351&op=diff
==============================================================================
--- trunk/libdatetime-perl/t/41cldr_format.t (original)
+++ trunk/libdatetime-perl/t/41cldr_format.t Tue Mar 3 23:46:51 2009
@@ -2,7 +2,7 @@
use warnings;
use utf8;
-use Test::More tests => 91;
+use Test::More tests => 97;
use DateTime;
@@ -59,6 +59,11 @@
'QQQ' => 'Q4',
'QQ' => '04',
'Q' => '4',
+
+ 'qqqq' => '4th quarter',
+ 'qqq' => 'Q4',
+ 'qq' => '04',
+ 'q' => '4',
'MMMMM' => 'O',
'MMMM' => 'October',
@@ -115,8 +120,8 @@
'K' => '6',
'kk' => '18',
'kk' => '18',
- 'jj' => '18',
- 'j' => '18',
+ 'j' => '6',
+ 'jj' => '06',
'mm' => '34',
'm' => '34',
@@ -167,3 +172,35 @@
is( $dt->format_cldr('yy'), '08',
'format_cldr for yy in 2008 should be 08' );
}
+
+{
+ my $dt = DateTime->new( year => 2008,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 1_000_000,
+ locale => 'en_US',
+ time_zone => 'America/Chicago',
+ );
+
+ is( $dt->format_cldr('j'), '6',
+ 'format_cldr for j in en_US should be 6 (at 18:34)' );
+}
+
+{
+ my $dt = DateTime->new( year => 2008,
+ month => 10,
+ day => 20,
+ hour => 18,
+ minute => 34,
+ second => 55,
+ nanosecond => 1_000_000,
+ locale => 'fr',
+ time_zone => 'America/Chicago',
+ );
+
+ is( $dt->format_cldr('j'), '18',
+ 'format_cldr for j in fr should be 18 (at 18:34)' );
+}
More information about the Pkg-perl-cvs-commits
mailing list