we no longer use position; stop breaking relationship adding

[scpubgit/stemmatology.git] / lib / Text / Tradition / Parser / Self.pm

diff --git a/lib/Text/Tradition/Parser/Self.pm b/lib/Text/Tradition/Parser/Self.pm
index 895ca4d..a34c9f5 100644 (file)
--- a/lib/Text/Tradition/Parser/Self.pm
+++ b/lib/Text/Tradition/Parser/Self.pm
@@ -201,7 +201,10 @@ sub parse {
                $opts->{'non_independent'} = $e->{'non_independent'} 
                        if exists $e->{'non_independent'};
                warn "No relationship type for relationship edge!" unless $opts->{'type'};
-               $collation->add_relationship( $from->{$IDKEY}, $to->{$IDKEY}, $opts );
+               my( $ok, @result ) = $collation->add_relationship( $from->{$IDKEY}, $to->{$IDKEY}, $opts );
+               unless( $ok ) {
+                       warn "Did not add relationship: @result";
+               }
         } 
     }