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 (file)
--- 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 );
                }
        }
 }