Great tool, but I had to fix two bugs:
1. Compatibility to Perl 5.8
Unfortunately I am stuck on Perl 5.8 for the moment. That means the //= operator is not
available. I made the following change
-$scale //= 0.4;
+$scale = 0.4 unless defined $scale;
2. Scale parameter
When I tried to specify another scale I got the following error message
Option scale does not take an argument
/usr/local/bin/schema_diagram: Invalid usage
It turns out that the GetOpt argument looks like
'scale' => \$scale,
instead of
'scale=s' => \$scale,
Hope it helps.
Great tool!
Now I only need an assistent to do all the cutting and tape stuff. ;-)
Kind regards from Stockholm
/Ulrich
RT for rt.cpan.org