fixup for search w/no args and cache

diff --git a/Changes b/Changes
index 73f8dd6..f7e9380 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for DBIx::Class
 
 0.06002
+        - fix to ->search without args to clone rs but maintain cache
         - grab $self->dbh once per function in Storage::DBI
         - nuke ResultSource caching of ->resultset for consistency reasons
         - fix for -and conditions when updating or deleting on a ResultSet

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index 6eca5fe..feb8232 100644 (file)
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -226,9 +226,11 @@ sub search {
 
   my $rs = (ref $self)->new($self->result_source, $attrs);
 
-  my $rows = $self->get_cache;
-  if( @{$rows} ) {
-    $rs->set_cache($rows);
+  unless (@_) { # no search, effectively just a clone
+    my $rows = $self->get_cache;
+    if( @{$rows} ) {
+      $rs->set_cache($rows);
+    }
   }
   
   return (wantarray ? $rs->all : $rs);