[Rt-commit] r5016 - in DBIx-SearchBuilder/trunk: SearchBuilder/Handle

[alexmv at bestpractical.com]

Author: alexmv
Date: Tue Apr 11 14:33:38 2006
New Revision: 5016

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Pg.pm

Log:
 r12268 at zoq-fot-pik:  chmrr | 2006-04-11 14:33:14 -0400
  * Fix sequence to handle both 8.1 and 7.x


Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Pg.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Pg.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Pg.pm	Tue Apr 11 14:33:38 2006
@@ -102,7 +102,7 @@
         # Regexp from DBIx::Class's Pg handle. Thanks to Marcus Ramberg
         if ( defined $foo->{'COLUMN_DEF'}
             && $foo->{'COLUMN_DEF'}
-            =~ m!^nextval\(\('"?([^"']+)"?'::(?:text|regclass)\).*\)!i )
+            =~ m!^nextval\(+'"?([^"']+)"?'(::(?:text|regclass)\))+!i )
 
         {
             return $self->{'_sequences'}{$table} = $1;