| Date: | Fri, 17 Oct 2003 13:01:10 +0200 |
| From: | Peter Heimann <peter.heimann [...] montrada.de> |
| To: | bug-Mail-IMAPClient [...] rt.cpan.org |
| Subject: | test.txt parsing in basic.t |
Encountered in Mail::IMAPClient 2.2.8 and 2.2.9:
Test login fails if the password in "test.txt" contains a "=".
Fix: add a limit value to the split() call in t/basic.t:
*** t/basic.t.orig Thu Jun 12 23:38:35 2003
--- t/basic.t Thu Oct 16 12:45:45 2003
***************
*** 553,559 ****
if (open TST,"./test.txt" ) {
while (defined(my $l = <TST>)) {
chomp $l;
! my($p,$v)=split(/=/,$l);
for($p,$v) { s/(?:^\s+)|(?:\s+$)//g; }
$parms{$p}=$v if $v;
}
--- 553,559 ----
if (open TST,"./test.txt" ) {
while (defined(my $l = <TST>)) {
chomp $l;
! my($p,$v)=split(/=/,$l,2);
for($p,$v) { s/(?:^\s+)|(?:\s+$)//g; }
$parms{$p}=$v if $v;
}
--
Regards
Peter Heimann, montrada GmbH