summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2002-12-11 20:40:48 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2002-12-11 20:40:48 +0000
commit61864a563fd02c5ec5f142d834cc97ffafc384e9 (patch)
tree39aa638d123ee39fa3003a70046e8e0958afe956
parente0c66e31224894674356ddaf6d46016c1abc994f (diff)
downloadirssi-61864a563fd02c5ec5f142d834cc97ffafc384e9.zip
Updated from scripts.irssi.org
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3059 dbcabf3a-b0e7-0310-adc4-f8d773084564
-rw-r--r--scripts/scriptassist.pl6
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";
}