[Bast-commits] r8624 - DBIx-Class/0.08/branches/chaining_fixes/lib/DBIx/Class

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-02-11 11:11:31 +0000 (Thu, 11 Feb 2010)
New Revision: 8624

Modified:
   DBIx-Class/0.08/branches/chaining_fixes/lib/DBIx/Class/ResultSet.pm
Log:
fix for search/select_chains

Modified: DBIx-Class/0.08/branches/chaining_fixes/lib/DBIx/Class/ResultSet.pm
===================================================================
--- DBIx-Class/0.08/branches/chaining_fixes/lib/DBIx/Class/ResultSet.pm	2010-02-11 11:00:59 UTC (rev 8623)
+++ DBIx-Class/0.08/branches/chaining_fixes/lib/DBIx/Class/ResultSet.pm	2010-02-11 11:11:31 UTC (rev 8624)
@@ -291,8 +291,8 @@
     $rows = $self->get_cache;
   }
 
-  if (List::Util::first { exists $attrs->{$_} } qw{select as columns}) {
-     delete $our_attrs->{$_} for (qw{+select +as +columns});
+  if (List::Util::first { exists $attrs->{$_} } qw{columns select as}) {
+     delete @{$our_attrs}{qw{select as columns +select +as +columns}};
   }
 
   my $new_attrs = { %{$our_attrs}, %{$attrs} };