diff options
author | Graham Barr <gbarr@pobox.com> | 1998-09-26 16:02:52 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 1998-09-26 16:02:52 +0000 |
commit | 929376192ac7efd9fad5c35f02e07ed884831481 (patch) | |
tree | 50fcbfa9a7b3a68f14bd1e8243c71fb10f0c30ae | |
parent | 4505ba413ae9b2d326abeb2bcf1d1ee1a7fe7dc0 (diff) | |
download | perl-libnet-929376192ac7efd9fad5c35f02e07ed884831481.tar.gz |
Net::POP3
- Fix bug in UIDL
-rw-r--r-- | Net/POP3.pm | 4 |
1 files 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 } |