Subject: | Warning raised when no minimum width |
Attached patch to set to 0 rather than undef, which cases warning in
addition.
This is reproducable with a table with header only, including a column
with "".
Subject: | minwidth.patch |
--- /usr/share/perl5/Text/FormatTable.pm 2008-03-02 17:25:48.000000000 +1300
+++ FormatTable.pm 2008-03-30 12:33:18.000000000 +1300
@@ -40,7 +40,7 @@
my $l = length $s;
$min = $l if not defined $min or $l > $min;
}
- return $min;
+ return $min ? $min : 0
}
# width of $1 if not word-wrapped