From 61864a563fd02c5ec5f142d834cc97ffafc384e9 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Wed, 11 Dec 2002 20:40:48 +0000
Subject: [PATCH] Updated from scripts.irssi.org

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3059 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 scripts/scriptassist.pl | 6 +++---
 1 file 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";
     }