Return a relation, not a reading, in the invalid list. Issue tla/stemmaweb#17

diff --git a/base/lib/Text/Tradition/Collation.pm b/base/lib/Text/Tradition/Collation.pm
index 58c4ec3..05cd397 100644 (file)
--- a/base/lib/Text/Tradition/Collation.pm
+++ b/base/lib/Text/Tradition/Collation.pm
@@ -579,7 +579,7 @@ sub duplicate_reading {
                        next unless @noncolo;
                        foreach my $nc ( @noncolo ) {
                                unless( $self->relations->verify_or_delete( $rdg, $nc ) ) {
-                                       push( @deleted_relations, $nc );
+                                       push( @deleted_relations, [ $rdg->id, $nc->id ] );
                                }
                        }
                }