Updated from scripts.irssi.org

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3059 dbcabf3a-b0e7-0310-adc4-f8d773084564

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";
     }