use Set::Scalar comparison operator to compare sets. Addresses #24

diff --git a/analysis/lib/Text/Tradition/Analysis.pm b/analysis/lib/Text/Tradition/Analysis.pm
index 225cd2b..290b5cc 100644 (file)
--- a/analysis/lib/Text/Tradition/Analysis.pm
+++ b/analysis/lib/Text/Tradition/Analysis.pm
@@ -514,8 +514,8 @@ sub _check_transposed_consistency {
        if( @doubled == scalar keys %seen_wits ) {
                foreach my $rdg ( keys %$groupings ) {
                        if( !$thisrank{$rdg} ) {
-                               my $groupstr = wit_stringify( $groupings->{$rdg} );
-                               my ( $matched ) = grep { $groupstr eq wit_stringify( $groupings->{$_} ) }
+                               # Groupings are Set::Scalar objects so we can compare them outright.
+                               my ( $matched ) = grep { $groupings->{$rdg} == $groupings->{$_} }
                                        keys %thisrank;
                                delete $groupings->{$rdg};
                                # If we found a group match, assume there is a symmetry happening.