Skip Menu |
 

This queue is for tickets about the libnet CPAN distribution.

Report information
The Basics
Id: 41947
Status: new
Priority: 0/
Queue: libnet

People
Owner: Nobody in particular
Requestors: avri.schneider [...] gmail.com
Cc:
AdminCc:

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



Subject: Bug in Net::POP3 Module Version: 2.29
Date: Thu, 25 Dec 2008 12:04:17 +0200
To: bug-libnet [...] rt.cpan.org
From: "Avraham Schneider" <avri.schneider [...] gmail.com>
Download (untitled) / with headers
text/plain 1.5k
Use of uninitialized value in numeric eq (==) at C:/Perl/lib/Net/POP3.pm line 316. at C:/Perl/lib/Net/POP3.pm line 316 Net::POP3::_QUIT('Net::POP3=GLOB(0x3c2dca4)') called at C:/Perl/lib/Net/POP3.pm line 335 sub response { my $cmd = shift; my $str = $cmd->getline() or return undef; <================ bug is here ==== response() may return undef Here the code assumes response() returns an integer: ======================================= unless ($obj->response() == CMD_OK) { sub _STAT { shift->command('STAT')->response() == CMD_OK } sub _LIST { shift->command('LIST', @_)->response() == CMD_OK } sub _RETR { shift->command('RETR', $_[0])->response() == CMD_OK } sub _DELE { shift->command('DELE', $_[0])->response() == CMD_OK } sub _NOOP { shift->command('NOOP')->response() == CMD_OK } sub _RSET { shift->command('RSET')->response() == CMD_OK } sub _QUIT { shift->command('QUIT')->response() == CMD_OK } sub _TOP { shift->command('TOP', @_)->response() == CMD_OK } sub _UIDL { shift->command('UIDL', @_)->response() == CMD_OK } sub _USER { shift->command('USER', $_[0])->response() == CMD_OK } sub _PASS { shift->command('PASS', $_[0])->response() == CMD_OK } sub _APOP { shift->command('APOP', @_)->response() == CMD_OK } sub _PING { shift->command('PING', $_[0])->response() == CMD_OK } sub _RPOP { shift->command('RPOP', $_[0])->response() == CMD_OK } sub _LAST { shift->command('LAST')->response() == CMD_OK } sub _CAPA { shift->command('CAPA')->response() == CMD_OK } if ($this->command('AUTH')->response() == CMD_OK) {
Subject: Re: [rt.cpan.org #41947] AutoReply: Bug in Net::POP3 Module Version: 2.29
Date: Thu, 25 Dec 2008 12:18:07 +0200
To: bug-libnet [...] rt.cpan.org
From: "Avraham Schneider" <avri.schneider [...] gmail.com>
Download (untitled) / with headers
text/plain 2.5k
Suggested fix: --------------------- my $str = $cmd->getline() or return CMD_ERROR; On Thu, Dec 25, 2008 at 12:04 PM, Bugs in libnet via RT <bug-libnet@rt.cpan.org> wrote: Show quoted text
> > Greetings, > > This message has been automatically generated in response to the > creation of a trouble ticket regarding: > "Bug in Net::POP3 Module Version: 2.29", > a summary of which appears below. > > There is no need to reply to this message right now. Your ticket has been > assigned an ID of [rt.cpan.org #41947]. Your ticket is accessible > on the web at: > > http://rt.cpan.org/Ticket/Display.html?id=41947 > > Please include the string: > > [rt.cpan.org #41947] > > in the subject line of all future correspondence about this issue. To do so, > you may reply to this message. > > Thank you, > bug-libnet@rt.cpan.org > > ------------------------------------------------------------------------- > Use of uninitialized value in numeric eq (==) at > C:/Perl/lib/Net/POP3.pm line 316. > at C:/Perl/lib/Net/POP3.pm line 316 > Net::POP3::_QUIT('Net::POP3=GLOB(0x3c2dca4)') called at > C:/Perl/lib/Net/POP3.pm line 335 > > sub response { > my $cmd = shift; > my $str = $cmd->getline() or return undef; <================ bug > is here ==== response() may return undef > > > > Here the code assumes response() returns an integer: > ======================================= > unless ($obj->response() == CMD_OK) { > sub _STAT { shift->command('STAT')->response() == CMD_OK } > sub _LIST { shift->command('LIST', @_)->response() == CMD_OK } > sub _RETR { shift->command('RETR', $_[0])->response() == CMD_OK } > sub _DELE { shift->command('DELE', $_[0])->response() == CMD_OK } > sub _NOOP { shift->command('NOOP')->response() == CMD_OK } > sub _RSET { shift->command('RSET')->response() == CMD_OK } > sub _QUIT { shift->command('QUIT')->response() == CMD_OK } > sub _TOP { shift->command('TOP', @_)->response() == CMD_OK } > sub _UIDL { shift->command('UIDL', @_)->response() == CMD_OK } > sub _USER { shift->command('USER', $_[0])->response() == CMD_OK } > sub _PASS { shift->command('PASS', $_[0])->response() == CMD_OK } > sub _APOP { shift->command('APOP', @_)->response() == CMD_OK } > sub _PING { shift->command('PING', $_[0])->response() == CMD_OK } > sub _RPOP { shift->command('RPOP', $_[0])->response() == CMD_OK } > sub _LAST { shift->command('LAST')->response() == CMD_OK } > sub _CAPA { shift->command('CAPA')->response() == CMD_OK } > if ($this->command('AUTH')->response() == CMD_OK) { > >


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.