r67859 - in /branches/upstream/librose-datetime-perl/current: Changes META.yml lib/Rose/DateTime.pm lib/Rose/DateTime/Util.pm

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Tue Jan 25 21:23:23 2011
New Revision: 67859

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67859
Log:
[svn-upgrade] new version librose-datetime-perl (0.535)

Modified:
    branches/upstream/librose-datetime-perl/current/Changes
    branches/upstream/librose-datetime-perl/current/META.yml
    branches/upstream/librose-datetime-perl/current/lib/Rose/DateTime.pm
    branches/upstream/librose-datetime-perl/current/lib/Rose/DateTime/Util.pm

Modified: branches/upstream/librose-datetime-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-datetime-perl/current/Changes?rev=67859&op=diff
==============================================================================
--- branches/upstream/librose-datetime-perl/current/Changes (original)
+++ branches/upstream/librose-datetime-perl/current/Changes Tue Jan 25 21:23:23 2011
@@ -1,3 +1,7 @@
+0.535 (01.24.2010) - John Siracusa <siracusa at gmail.com>
+
+    * Handle pre-0.4 version of DateTime::Locale.  (RT 65070)
+
 0.534 (03.22.2010) - John Siracusa <siracusa at gmail.com>
 
     * Updated to avoid calling methods that were deprecated in

Modified: branches/upstream/librose-datetime-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-datetime-perl/current/META.yml?rev=67859&op=diff
==============================================================================
--- branches/upstream/librose-datetime-perl/current/META.yml (original)
+++ branches/upstream/librose-datetime-perl/current/META.yml Tue Jan 25 21:23:23 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Rose-DateTime
-version:            0.534
+version:            0.535
 abstract:           ~
 author:  []
 license:            unknown

Modified: branches/upstream/librose-datetime-perl/current/lib/Rose/DateTime.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-datetime-perl/current/lib/Rose/DateTime.pm?rev=67859&op=diff
==============================================================================
--- branches/upstream/librose-datetime-perl/current/lib/Rose/DateTime.pm (original)
+++ branches/upstream/librose-datetime-perl/current/lib/Rose/DateTime.pm Tue Jan 25 21:23:23 2011
@@ -2,7 +2,7 @@
 
 use strict; # ha
 
-our $VERSION = '0.534';
+our $VERSION = '0.535';
 
 1;
 

Modified: branches/upstream/librose-datetime-perl/current/lib/Rose/DateTime/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-datetime-perl/current/lib/Rose/DateTime/Util.pm?rev=67859&op=diff
==============================================================================
--- branches/upstream/librose-datetime-perl/current/lib/Rose/DateTime/Util.pm (original)
+++ branches/upstream/librose-datetime-perl/current/lib/Rose/DateTime/Util.pm Tue Jan 25 21:23:23 2011
@@ -57,8 +57,12 @@
 
   my $locale_class = DateTime::Locale->load(DateTime->DefaultLocale);
 
-  my $short = $locale_class->date_format_short;
-  
+  # Fall back to the older (pre-0.4) DateTime::Locale API
+  my $short = 
+    $locale_class->can('date_format_short') ?
+      $locale_class->date_format_short :
+      $locale_class->short_date_format;
+
   $short =~ tr{dmyDMY}{}cd;
   $short =~ tr{dmyDMY}{dmydmy}s;