Two new versions in two days. Thanks to Devel::Cover pointing out where I hadn't tested adequately, I was able to find a number of bugs that my first set of tests missed.
The new version seems to work fine on OS X and on Linux, but there were some odd errors on Solaris. Anyone have a Solaris machine they'd be willing to try it out on and see if they can point out the bug?
Update: It's a bug in the 2.0 version of GraphViz itself; I'm still running with version 1.8, which doesn't have the bug. Patch appended for your dining and dancing pleasure:
--- /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}
The patch turns off the newly-added escaping of characters that dot treats as special. Since record shapes need these special characters, escapling them gives you nice oval nodes with names like <port1>1|<port2>2, and of course edges that are supposed to hook to those ports can't find them.