checkpoint, not sure what is here

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

diff --git a/lib/Text/Tradition/Parser/GraphML.pm b/lib/Text/Tradition/Parser/GraphML.pm
index 54a2c32..4e191a4 100644 (file)
--- 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 );