X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Frelational-schema;h=883d3420790e601bdbdf632548dd0f12b9f8d432;hp=be914f806ab1d8b82817b6683f20e231b8e874c4;hb=8c167e189c9d136496622da617ce1c42d3580a50;hpb=a7ec2cc08ad2359807825082ffc4b5150f4ffb97

diff --git a/perl/relational-schema b/perl/relational-schema
index be914f8..883d342 100755
--- 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;
-$pd = 4;
+$pd = 4; # Padding
 
 my $out = shift or die "No output file specified.\n";
-
 my @rows = @ARGV;
 die "No rows.\n" unless (@rows);