a possible fix for infinite loops

diff --git a/lib/Algorithm/C3.pm b/lib/Algorithm/C3.pm
index 009bc10..00250c9 100644 (file)
--- a/lib/Algorithm/C3.pm
+++ b/lib/Algorithm/C3.pm
@@ -48,6 +48,7 @@ sub merge {
             $i = 0;
             next;
         }
+        %seen = ();
 
         my $mergeout = $cache->{merge}->{$current_root} ||= do {