From 929376192ac7efd9fad5c35f02e07ed884831481 Mon Sep 17 00:00:00 2001 From: Graham Barr Date: Sat, 26 Sep 1998 16:02:52 +0000 Subject: Net::POP3 - Fix bug in UIDL --- Net/POP3.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Net/POP3.pm b/Net/POP3.pm index 0ba25a6..f78e384 100644 --- a/Net/POP3.pm +++ b/Net/POP3.pm @@ -13,7 +13,7 @@ use Net::Cmd; use Carp; use Net::Config; -$VERSION = "2.16"; # $Id: //depot/libnet/Net/POP3.pm#10 $ +$VERSION = "2.17"; # $Id: //depot/libnet/Net/POP3.pm#11 $ @ISA = qw(Net::Cmd IO::Socket::INET); @@ -272,7 +272,7 @@ 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 _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 } -- cgit v1.2.3-24-ge0c7