temporary fix for RT bug # 20879 (real fix + testcases later)
Brandon L Black [Tue, 8 Aug 2006 21:55:41 +0000 (21:55 +0000)]
lib/Algorithm/C3.pm

index d4c49e3..a18828a 100644 (file)
@@ -55,7 +55,9 @@ sub merge {
             # http://www.python.org/2.3/mro.html :)
 
             # Initial set
-            my @seqs = ([$current_root], @$recurse_mergeout, $current_parents);
+            my @deepcopy_recurse_mergeout;
+            push(@deepcopy_recurse_mergeout, [@$_]) for (@$recurse_mergeout);
+            my @seqs = ([$current_root], @deepcopy_recurse_mergeout, [@$current_parents]);
 
             # Construct the tail-checking hash
             my %tails;