From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 5 Jun 2009 14:28:58 +0000 (+0000)
Subject: This was dumb - of course I want a copy
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9f1357ff2584d9cc89a3906a90a345f7e0a82b16;p=dbsrgits%2FDBIx-Class-Historic.git

This was dumb - of course I want a copy
Otherwise the next serach_related will work with a contaminated seen_joins
---

diff --git a/lib/DBIx/Class/ResultSet.pm b/lib/DBIx/Class/ResultSet.pm
index c17ca80..079edc6 100644
--- a/lib/DBIx/Class/ResultSet.pm
+++ b/lib/DBIx/Class/ResultSet.pm
@@ -2437,7 +2437,7 @@ sub _resolve_from {
   my $from = $attrs->{from}
     || [ { $attrs->{alias} => $source->from } ];
 
-  my $seen = $attrs->{seen_join} || {};
+  my $seen = { %{$attrs->{seen_join} || {} } };
 
   # we need to take the prefetch the attrs into account before we
   # ->_resolve_join as otherwise they get lost - captainL