r51627 - in /branches/upstream/librose-db-perl/current: Changes META.yml lib/Rose/DB.pm t/pg.t t/subclass-pg.t

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

Author: jawnsy-guest
Date: Wed Jan 27 01:42:32 2010
New Revision: 51627

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51627
Log:
[svn-upgrade] Integrating new upstream version, librose-db-perl (0.758)

Modified:
    branches/upstream/librose-db-perl/current/Changes
    branches/upstream/librose-db-perl/current/META.yml
    branches/upstream/librose-db-perl/current/lib/Rose/DB.pm
    branches/upstream/librose-db-perl/current/t/pg.t
    branches/upstream/librose-db-perl/current/t/subclass-pg.t

Modified: branches/upstream/librose-db-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/Changes?rev=51627&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/Changes (original)
+++ branches/upstream/librose-db-perl/current/Changes Wed Jan 27 01:42:32 2010
@@ -1,3 +1,7 @@
+0.758 (01.26.2010) - John Siracusa <siracusa at gmail.com>
+
+    * Added workaround for DateTime::Duration bug (RT 53985) 
+
 0.757 (01.23.2010) - John Siracusa <siracusa at gmail.com>
 
     * Support for Rose::DB::Object 0.786.

Modified: branches/upstream/librose-db-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/META.yml?rev=51627&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/META.yml (original)
+++ branches/upstream/librose-db-perl/current/META.yml Wed Jan 27 01:42:32 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Rose-DB
-version:            0.757
+version:            0.758
 abstract:           ~
 author:  []
 license:            perl

Modified: branches/upstream/librose-db-perl/current/lib/Rose/DB.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/lib/Rose/DB.pm?rev=51627&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/lib/Rose/DB.pm (original)
+++ branches/upstream/librose-db-perl/current/lib/Rose/DB.pm Wed Jan 27 01:42:32 2010
@@ -20,7 +20,7 @@
 
 our $Error;
 
-our $VERSION = '0.757';
+our $VERSION = '0.758';
 
 our $Debug = 0;
 
@@ -2037,6 +2037,13 @@
     DateTime::Duration->new(%units)->inverse :
     DateTime::Duration->new(%units);
 
+  # XXX: Ugly hack workaround for DateTime::Duration bug (RT 53985)
+  if($is_ago && defined $end_of_month_mode && 
+     $dt_duration->end_of_month_mode ne $end_of_month_mode)
+  {
+    $dt_duration->{'end_of_month'} = $end_of_month_mode;
+  }
+
   return $dt_duration;
 }
 

Modified: branches/upstream/librose-db-perl/current/t/pg.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/t/pg.t?rev=51627&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/t/pg.t (original)
+++ branches/upstream/librose-db-perl/current/t/pg.t Wed Jan 27 01:42:32 2010
@@ -305,7 +305,8 @@
 
 while($i < @Intervals)
 {
-  my($val, $formatted) = ($Intervals[$i++], $Intervals[$i++]);
+  my($val, $formatted) = ($Intervals[$i], $Intervals[$i + 1]);
+  $i += 2;
 
   my $d = $db->parse_interval($val, 'preserve');
 

Modified: branches/upstream/librose-db-perl/current/t/subclass-pg.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librose-db-perl/current/t/subclass-pg.t?rev=51627&op=diff
==============================================================================
--- branches/upstream/librose-db-perl/current/t/subclass-pg.t (original)
+++ branches/upstream/librose-db-perl/current/t/subclass-pg.t Wed Jan 27 01:42:32 2010
@@ -305,7 +305,8 @@
 
 while($i < @Intervals)
 {
-  my($val, $formatted) = ($Intervals[$i++], $Intervals[$i++]);
+  my($val, $formatted) = ($Intervals[$i], $Intervals[$i + 1]);
+  $i += 2;
 
   my $d = $db->parse_interval($val, 'preserve');