From: Arthur Axel "fREW" Schmidt <frioux@gmail.com>
Date: Thu, 11 Feb 2010 11:11:31 +0000 (+0000)
Subject: fix for search/select_chains
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3da3dd38e6742da6637ea69e845d4e9d2ca75578;p=dbsrgits%2FDBIx-Class-Historic.git

fix for search/select_chains
---

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index 0ac9ae7..06ea0ff 100644
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -291,8 +291,8 @@ sub search_rs {
     $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} };