diff options
| author | Graham Barr <gbarr@pobox.com> | 1998-02-24 01:27:46 +0000 |
|---|---|---|
| committer | Graham Barr <gbarr@pobox.com> | 1998-02-24 01:27:46 +0000 |
| commit | 8cedc2a310c9591e86c06352f6e7faac47479b83 (patch) | |
| tree | cdf369ad830203b544ddbc2c052f7553805200e8 | |
| parent | 93fc2ae682de13eedd29471d0e3f20d01d182647 (diff) | |
| download | perl-libnet-8cedc2a310c9591e86c06352f6e7faac47479b83.tar.gz | |
Net::POP3
- Remove use of map in a void context
| -rw-r--r-- | Net/POP3.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Net/POP3.pm b/Net/POP3.pm index 6a507a0..bf3e219 100644 --- a/Net/POP3.pm +++ b/Net/POP3.pm @@ -13,7 +13,7 @@ use Net::Cmd; use Carp; use Net::Config; -$VERSION = "2.13"; # $Id: //depot/libnet/Net/POP3.pm#7 $ +$VERSION = "2.14"; # $Id: //depot/libnet/Net/POP3.pm#8 $ @ISA = qw(Net::Cmd IO::Socket::INET); @@ -214,8 +214,7 @@ sub list my $info = $me->read_until_dot or return undef; - my %hash = (); - map { /(\d+)\D+(\d+)/; $hash{$1} = $2; } @$info; + my %hash = map { (/(\d+)\D+(\d+)/) } @$info; return \%hash; } |