Skip Menu |

This queue is for tickets about the Text-ASCIITable CPAN distribution.

Report information
The Basics
Id: 5741
Status: resolved
Worked: 1 min
Priority: 0/
Queue: Text-ASCIITable

People
Owner: haakon [...] _NOSPAM_loopback.no
Requestors:
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.13
Fixed in: 0.14



Subject: 0 is not being treated as a valid value
use strict; use warnings; use Text::ASCIITable; my $t = Text::ASCIITable::->new; $t->setCols('Nickname','Name'); $t->addRow('Foo','Bar'); $t->addRow('Zero','0'); $t->addRow('-','-'); $t->addRow('Zero',0); $t->addRow('-','-'); $t->addRow('Zero','0E0'); $t->addRow('-','-'); $t->addRow('Zero','0 '); die "$/$/$t$/"; __END__ yields .=---------+-----=. | Nickname | Name | |=---------+-----=| | Foo | Bar | | Zero | | | - | - | | Zero | | | - | - | | Zero | 0E0 | | - | - | | Zero | 0 | '=---------+-----=' but should yield .=---------+-----=. | Nickname | Name | |=---------+-----=| | Foo | Bar | | Zero | 0 | | - | - | | Zero | 0 | | - | - | | Zero | 0E0 | | - | - | | Zero | 0 | '=---------+-----='
[guest - Sun Mar 21 12:52:55 2004]: Show quoted text
> use strict; > use warnings; > use Text::ASCIITable; > my $t = Text::ASCIITable::->new; > $t->setCols('Nickname','Name'); > $t->addRow('Foo','Bar'); > $t->addRow('Zero','0'); > $t->addRow('-','-'); > $t->addRow('Zero',0); > $t->addRow('-','-'); > $t->addRow('Zero','0E0'); > $t->addRow('-','-'); > $t->addRow('Zero','0 '); > die "$/$/$t$/"; > > > __END__ > yields > > .=---------+-----=. > | Nickname | Name | > |=---------+-----=| > | Foo | Bar | > | Zero | | > | - | - | > | Zero | | > | - | - | > | Zero | 0E0 | > | - | - | > | Zero | 0 | > '=---------+-----=' > > but should yield > > .=---------+-----=. > | Nickname | Name | > |=---------+-----=| > | Foo | Bar | > | Zero | 0 | > | - | - | > | Zero | 0 | > | - | - | > | Zero | 0E0 | > | - | - | > | Zero | 0 | > '=---------+-----='
Thank you! I have now fixed this in the upcomming release, 0.14.