[Bast-commits] r6662 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-13 16:08:14 +0000 (Sat, 13 Jun 2009)
New Revision: 6662

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
Log:
local()ize sqla for in the right place

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-06-13 15:56:54 UTC (rev 6661)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-06-13 16:08:14 UTC (rev 6662)
@@ -1192,7 +1192,6 @@
 sub _select {
   my $self = shift;
   my $sql_maker = $self->sql_maker;
-  local $sql_maker->{for};
   return $self->_execute($self->_select_args(@_));
 }
 
@@ -1215,8 +1214,9 @@
 
   my $for = delete $attrs->{for};
   my $sql_maker = $self->sql_maker;
-  $sql_maker->{for} = $for;
 
+  local $sql_maker->{for} = $for;
+
   my $order = { map
     { $attrs->{$_} ? ( $_ => $attrs->{$_} ) : ()  }
     (qw/order_by group_by having _virtual_order_by/ )