r51629 - in /trunk/librose-db-perl: Changes META.yml debian/changelog 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:43:30 2010
New Revision: 51629

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51629
Log:
New upstream release

Modified:
    trunk/librose-db-perl/Changes
    trunk/librose-db-perl/META.yml
    trunk/librose-db-perl/debian/changelog
    trunk/librose-db-perl/lib/Rose/DB.pm
    trunk/librose-db-perl/t/pg.t
    trunk/librose-db-perl/t/subclass-pg.t

Modified: trunk/librose-db-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/Changes?rev=51629&op=diff
==============================================================================
--- trunk/librose-db-perl/Changes (original)
+++ trunk/librose-db-perl/Changes Wed Jan 27 01:43:30 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: trunk/librose-db-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/META.yml?rev=51629&op=diff
==============================================================================
--- trunk/librose-db-perl/META.yml (original)
+++ trunk/librose-db-perl/META.yml Wed Jan 27 01:43:30 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Rose-DB
-version:            0.757
+version:            0.758
 abstract:           ~
 author:  []
 license:            perl

Modified: trunk/librose-db-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/debian/changelog?rev=51629&op=diff
==============================================================================
--- trunk/librose-db-perl/debian/changelog (original)
+++ trunk/librose-db-perl/debian/changelog Wed Jan 27 01:43:30 2010
@@ -1,3 +1,9 @@
+librose-db-perl (0.758-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Tue, 26 Jan 2010 20:52:53 -0500
+
 librose-db-perl (0.757-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/librose-db-perl/lib/Rose/DB.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/lib/Rose/DB.pm?rev=51629&op=diff
==============================================================================
--- trunk/librose-db-perl/lib/Rose/DB.pm (original)
+++ trunk/librose-db-perl/lib/Rose/DB.pm Wed Jan 27 01:43:30 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: trunk/librose-db-perl/t/pg.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/t/pg.t?rev=51629&op=diff
==============================================================================
--- trunk/librose-db-perl/t/pg.t (original)
+++ trunk/librose-db-perl/t/pg.t Wed Jan 27 01:43:30 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: trunk/librose-db-perl/t/subclass-pg.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/librose-db-perl/t/subclass-pg.t?rev=51629&op=diff
==============================================================================
--- trunk/librose-db-perl/t/subclass-pg.t (original)
+++ trunk/librose-db-perl/t/subclass-pg.t Wed Jan 27 01:43:30 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');