X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FParser%2FSelf.pm;h=f574d37c76959d7a5f60aef007eeb60f662c965a;hb=f523c7a8be7249883c234d12e7b005c5b19c4837;hp=79621f1bb7d8dd7ec06488defc36d0942204b964;hpb=5f52ddcad7ea7dd5f8f07dbfd664b2f2faee7221;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Parser/Self.pm b/lib/Text/Tradition/Parser/Self.pm
index 79621f1..f574d37 100644
--- a/lib/Text/Tradition/Parser/Self.pm
+++ b/lib/Text/Tradition/Parser/Self.pm
@@ -208,7 +208,7 @@ sub parse {
     foreach my $e ( @{$graph_data->{'edges'}} ) {
         my $from = $e->{$SOURCE_KEY};
         my $to = $e->{$TARGET_KEY};
-        my $class = $e->{$CLASS_KEY};
+        my $class = $e->{$CLASS_KEY} || 'path';
 
         # We may have more information depending on the class.
         if( $class eq 'path' ) {