Merge branch 'master' of github.com:tla/stemmatology

diff --git a/lib/Text/Tradition/Analysis/Result.pm b/lib/Text/Tradition/Analysis/Result.pm
index 91c8a49..da1e123 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 );
                }
        }
 }