Skip Menu |
 

This queue is for tickets about the Mail-POP3Client CPAN distribution.

Report information
The Basics
Id: 20538
Status: new
Priority: 0/
Queue: Mail-POP3Client

People
Owner: Nobody in particular
Requestors: pjs [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 2.17
Fixed in: (no value)



Subject: Uidl() broken
MIME-Version: 1.0
X-Mailer: MIME-tools 5.418 (Entity 5.418)
Content-Type: text/plain; charset="utf8"
Content-Disposition: inline
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
Content-Length: 745
Download (untitled) / with headers
text/plain 745b
The behavior of Uidl() in scalar context and with a message number argument does not match its documentation. In both cases it returns the actual text returned, for which I cannot think of any use. Even if there were, there ought to be a way to get the UIDL of a particular message, and there isn't, except by getting them all: $uidl = ($pop->Uidl)[$i]; instead of ($uidl) = $pop->Uidl($i); Maybe someone wants the scalar context behavior for something, but the second line of code above should work. In which case change if ($num) { $line =~ s/^\+OK\s*//; return $line; } to (untested): if ($num) { $line =~ s/^\+OK\s*//; (undef, my $uidl) = split /\s+/, $line; return wantarray ? ($uidl) : $line; }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.