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