refine the analysis code; add alters_meaning attribute to relationships

[scpubgit/stemmatology.git] / lib / Text / Tradition / Stemma.pm

diff --git a/lib/Text/Tradition/Stemma.pm b/lib/Text/Tradition/Stemma.pm
index c711430..e7e3946 100644 (file)
--- a/lib/Text/Tradition/Stemma.pm
+++ b/lib/Text/Tradition/Stemma.pm
@@ -296,7 +296,7 @@ sub extend_graph {
        
        # Iterate through, adding a.c. witnesses
        my $actag = $self->collation->ac_label;
-       my $graph = $self->graph->copy;
+       my $graph = $self->graph->deep_copy;
        foreach my $lw ( @$layerwits ) {
                # Add the layered witness and set it with the same attributes as
                # its 'main' analogue