fix name escaping

diff --git a/memnodes.pl b/memnodes.pl
index d998f3b..4af0c34 100644 (file)
--- a/memnodes.pl
+++ b/memnodes.pl
@@ -50,11 +50,13 @@ if ($opt_db) {
 my @stack;
 my %seqn2node;
 
-    my $dotnode = sub {
-        my $name = shift;
-        $name =~ s/"/\\"/g;
-        return '"'.$name.'"';
-    };
+use HTML::Entities qw(encode_entities);;
+my $dotnode = sub {
+    my $name = encode_entities(shift);
+    $name =~ s/"/\\"/g;
+    #$name =~ s/</&lt;/g;
+    return '"'.$name.'"';
+};
 
 print "memnodes = [" if $opt_json;