From 8c167e189c9d136496622da617ce1c42d3580a50 Mon Sep 17 00:00:00 2001 From: Tim Pope Date: Thu, 29 Sep 2005 17:56:20 +0000 Subject: [PATCH] Comments --- perl/relational-schema | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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); -- 2.30.2