cannot rely on Set::Scalar comparisons

diff --git a/lib/Text/Tradition/Analysis/Result.pm b/lib/Text/Tradition/Analysis/Result.pm
index ba5c60b..43c842b 100644 (file)
--- a/lib/Text/Tradition/Analysis/Result.pm
+++ b/lib/Text/Tradition/Analysis/Result.pm
@@ -179,7 +179,7 @@ sub record_grouping {
        # correct spot in our groupinglist.
        my $idx = 0;
        foreach my $set ( $self->sets ) {
-               if( $set->is_subset( $group ) ) {
+               if( _is_subset( $set, $group ) ) {
                        $self->_set_grouping( $idx, $group );
                        last;
                }
@@ -190,6 +190,17 @@ sub record_grouping {
        }
 }
 
+sub _is_subset {
+    # A replacement for the stupid Set::Scalar::is_subset
+    my( $set1, $set2 ) = @_;
+    my %all;
+    map { $all{$_} = 1 } $set2->members;
+    foreach my $m ( $set1->members ) {
+        return 0 unless $all{$m};
+    }
+    return 1;
+}
+
 # A request string is the graph followed by the groups, which should form a unique
 # key for the result.
 sub object_key {