diff options
Diffstat (limited to 'scripts/scriptassist.pl')
-rw-r--r-- | scripts/scriptassist.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl index 2efe599a..e6afddfe 100644 --- a/scripts/scriptassist.pl +++ b/scripts/scriptassist.pl @@ -437,7 +437,7 @@ sub array2table { my (@array) = @_; my @width; foreach my $line (@array) { - for (0..scalar(@$line)) { + for (0..scalar(@$line)-1) { my $l = $line->[$_]; $l =~ s/%[^%]//g; $l =~ s/%%/%/g; @@ -446,12 +446,12 @@ sub array2table { } my $text; foreach my $line (@array) { - for (0..scalar(@$line)) { + for (0..scalar(@$line)-1) { my $l = $line->[$_]; $text .= $line->[$_]; $l =~ s/%[^%]//g; $l =~ s/%%/%/g; - $text .= " "x($width[$_]-length($l)+1); + $text .= " "x($width[$_]-length($l)+1) unless ($_ == scalar(@$line)-1); } $text .= "\n"; } |