Comments

diff --git a/perl/relational-schema b/perl/relational-schema
index be914f806ab1d8b82817b6683f20e231b8e874c4..883d3420790e601bdbdf632548dd0f12b9f8d432 100755 (executable)
--- a/perl/relational-schema
+++ b/perl/relational-schema
@@ -16,10 +16,9 @@ use Image::Imlib2;
 use vars qw($font $maxwidth $pd $fh);
 $font = "Verdana/11";
 $maxwidth = 550;
 use vars qw($font $maxwidth $pd $fh);
 $font = "Verdana/11";
 $maxwidth = 550;

-$pd = 4;
+$pd = 4; # Padding

 
 my $out = shift or die "No output file specified.\n";
 
 my $out = shift or die "No output file specified.\n";

-

 my @rows = @ARGV;
 die "No rows.\n" unless (@rows);
 
 my @rows = @ARGV;
 die "No rows.\n" unless (@rows);