fixup for search w/no args and cache

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / ResultSet.pm

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);