| Subject: | GraphViz needs a "don't escape labels' call |
GraphViz::Data::Structure, as of 2.00, has changed the way it handles node labels. Previously, whatever was passed as a note label was respected. Now, GraphViz's add_node() routine *always* escapes the label (at line 411). This causes anything that calculates its own record labels to break (in particular, all of GraphViz::Data::Structure's complex structures stop working). The following patch will fix this:
--- /usr/local/lib/perl5/site_perl/5.8.3/GraphViz.pm Wed Sep 22 15:56:22 2004
+++ GraphViz.pm Wed Sep 22 15:55:46 2004
@@ -408,7 +408,7 @@
$node->{label} = $node->{name};
}
} else {
- $node->{label} =~ s#([|<>\[\]{}"])#\\$1#g;
+ $node->{label} =~ s#([|<>\[\]{}"])#\\$1#g unless $node->{shape} eq 'record';
}
delete $node->{cluster}