X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FParser%2FGraphML.pm;h=4e191a45d9ed34d706f76c444fb378d735140cb0;hb=f6066bac61bc5609c60d48df17aad924c8944177;hp=54a2c3222948ed58e12b6419629c8fa0e0c662cc;hpb=9463b0bff2afe6185d9bdfda49ce9c9cdc176049;p=scpubgit%2Fstemmatology.git diff --git a/lib/Text/Tradition/Parser/GraphML.pm b/lib/Text/Tradition/Parser/GraphML.pm index 54a2c32..4e191a4 100644 --- a/lib/Text/Tradition/Parser/GraphML.pm +++ b/lib/Text/Tradition/Parser/GraphML.pm @@ -75,7 +75,7 @@ sub parse { foreach my $dkey ( keys %$nodedata ) { my $keyname = $nodedata->{$dkey}; my $keyvalue = _lookup_node_data( $n, $dkey ); - $node_hash->{$keyname} = $keyvalue if $keyvalue; + $node_hash->{$keyname} = $keyvalue if defined $keyvalue; } $node_reg->{$n->getAttribute( 'id' )} = $node_hash; push( @{$graph_hash->{'nodes'}}, $node_hash );