pass \%seen along to recursive invocations

gaal · Mar 21, 2011 · b659faf · b659faf
1 parent 9c91054
commit b659faf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Class/Rebless.pm b/lib/Class/Rebless.pm
@@ -37,12 +37,12 @@ my %subs = (
 while (my($name, $editor) = each %subs) {
     my $code;           # yay for recursive closures!
     $code = sub {
-        my($proto, $obj, $namespace, $opts, $level) = @_;
+        my($proto, $obj, $namespace, $opts, $level, $seen) = @_;
         $opts ||= {};
         $opts->{code} = $code;
         $editor->($opts);
 
-        _recurse($proto, $obj, $namespace, $opts, $level);
+        _recurse($proto, $obj, $namespace, $opts, $level, $seen);
         #goto &recurse; # I wonder why this doesn't work?
     };
     no strict 'refs';