[Bast-commits] r6368 - DBIx-Class/0.08/trunk/lib/DBIx/Class

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-22 06:09:05 +0000 (Fri, 22 May 2009)
New Revision: 6368

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/SQLAHacks.pm
Log:
fix limit for DB2

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/SQLAHacks.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/SQLAHacks.pm	2009-05-22 04:52:47 UTC (rev 6367)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/SQLAHacks.pm	2009-05-22 06:09:05 UTC (rev 6368)
@@ -76,7 +76,7 @@
   my ($self, $sql, $order, $rows, $offset ) = @_;
 
   $offset += 1;
-  my $last = $rows + $offset;
+  my $last = $rows + $offset - 1;
   my ( $order_by ) = $self->_order_by( $order );
 
   $sql = <<"SQL";