From: Tim Bunce <Tim.Bunce@pobox.com>
Date: Sat, 22 Sep 2012 15:02:20 +0000 (+0100)
Subject: fix name escaping
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7020702ac0b16cb15fc66c19f38368e9c45405b5;p=p5sagit%2FDevel-Size.git

fix name escaping
---

diff --git a/memnodes.pl b/memnodes.pl
index d998f3b..4af0c34 100644
--- 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;