do not revisit seen references

gaal · Jul 7, 2011 · 11de4e8 · 11de4e8
1 parent 6ad9df3
commit 11de4e8
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/Class/Rebless.pm b/lib/Class/Rebless.pm
@@ -79,7 +79,10 @@ sub _recurse {
         #print ">>>> recurse " . Carp::longmess;
 
         my $refaddr = Scalar::Util::refaddr($who);
-        return if defined $refaddr and $state->{stack}{$refaddr};
+        if (defined $refaddr) {
+          return if $state->{stack}{$refaddr};
+          return if $state->{seen}{$refaddr}++ and ! $opts->{revisit};
+        }
 
         local $state->{level} = $state->{level} + 1;
         local $state->{stack}{ defined $refaddr ? $refaddr : '' } = 1;