fix test failure

[scpubgit/stemmatology.git] / base / lib / Text / Tradition / Collation.pm

diff --git a/base/lib/Text/Tradition/Collation.pm b/base/lib/Text/Tradition/Collation.pm
index 095f331..ce46556 100644 (file)
--- a/base/lib/Text/Tradition/Collation.pm
+++ b/base/lib/Text/Tradition/Collation.pm
@@ -635,10 +635,8 @@ sub duplicate_reading {
        }
        throw( "Cannot duplicate a meta-reading" )
                if $r->is_meta;
-       my $ordered_req_wits = join( ',', sort @wits );
-       my $ordered_rdg_wits = join( ',', $r->witnesses );
        throw( "Cannot join all witnesses to the new reading" )
-               if $ordered_req_wits eq $ordered_rdg_wits;
+               if scalar( @wits ) == scalar( $r->witnesses );
 
        # Get all the reading attributes and duplicate them.    
        my $rmeta = Text::Tradition::Collation::Reading->meta;