From: tla <tla@mit.edu>
Date: Mon, 27 Aug 2012 22:36:46 +0000 (+0200)
Subject: sets should be cloned into initial groupings, not used directly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6724a13581afd50ce6a40074122549d035ea1758;p=scpubgit%2Fstemmatology.git

sets should be cloned into initial groupings, not used directly
---

diff --git a/lib/Text/Tradition/Analysis/Result.pm b/lib/Text/Tradition/Analysis/Result.pm
index d311ad2..1ef1232 100644
--- a/lib/Text/Tradition/Analysis/Result.pm
+++ b/lib/Text/Tradition/Analysis/Result.pm
@@ -289,7 +289,8 @@ sub BUILD {
 	my @sets = $self->sets;
 	foreach my $idx( 0 .. $#sets ) {
 		unless( $self->grouping( $idx ) ) {
-			$self->_set_grouping( $idx, $sets[$idx] );
+			my $g = $sets[$idx]->clone();
+			$self->_set_grouping( $idx, $g );
 		}
 	}
 }