diff -Nru libmail-box-pop3-perl-3.004/ChangeLog libmail-box-pop3-perl-3.005/ChangeLog --- libmail-box-pop3-perl-3.004/ChangeLog 2018-03-04 14:17:14.000000000 +0000 +++ libmail-box-pop3-perl-3.005/ChangeLog 2019-05-03 07:41:58.000000000 +0000 @@ -1,5 +1,14 @@ -===== ChangeLog of Mail::Box::POP3 version 3.* +===== history of distribution Mail-Box-POP3 + +version 3.005: Fri 3 May 09:41:53 CEST 2019 + + Fixes: + - wrong place to set default message type. + - transporter should differentiate between pop3 and pop3s in url(). + + Improvements: + - cleanup ::POP3 coding style. version 3.004: Sun Mar 4 15:17:07 CET 2018 diff -Nru libmail-box-pop3-perl-3.004/debian/changelog libmail-box-pop3-perl-3.005/debian/changelog --- libmail-box-pop3-perl-3.004/debian/changelog 2018-03-18 08:10:31.000000000 +0000 +++ libmail-box-pop3-perl-3.005/debian/changelog 2019-09-16 19:33:22.000000000 +0000 @@ -1,3 +1,11 @@ +libmail-box-pop3-perl (3.005-1) unstable; urgency=medium + + * New upstream version 3.005 + * update years of upstream copyright + * bump Policy compliance version to 4.4.0 (no changes needed) + + -- Damyan Ivanov Mon, 16 Sep 2019 19:33:22 +0000 + libmail-box-pop3-perl (3.004-1) unstable; urgency=medium [ Salvatore Bonaccorso ] diff -Nru libmail-box-pop3-perl-3.004/debian/control libmail-box-pop3-perl-3.005/debian/control --- libmail-box-pop3-perl-3.004/debian/control 2018-03-18 08:03:03.000000000 +0000 +++ libmail-box-pop3-perl-3.005/debian/control 2019-09-16 19:32:23.000000000 +0000 @@ -8,7 +8,7 @@ libmail-message-perl (>= 3), libmail-transport-perl (>= 3), perl -Standards-Version: 4.1.3 +Standards-Version: 4.4.0 Vcs-Browser: https://salsa.debian.org/perl-team/modules/packages/libmail-box-pop3-perl Vcs-Git: https://salsa.debian.org/perl-team/modules/packages/libmail-box-pop3-perl.git Homepage: https://metacpan.org/release/Mail-Box-POP3 diff -Nru libmail-box-pop3-perl-3.004/debian/copyright libmail-box-pop3-perl-3.005/debian/copyright --- libmail-box-pop3-perl-3.004/debian/copyright 2018-03-18 08:04:22.000000000 +0000 +++ libmail-box-pop3-perl-3.005/debian/copyright 2019-09-16 19:32:33.000000000 +0000 @@ -4,7 +4,7 @@ Upstream-Name: Mail-Box-POP3 Files: * -Copyright: 2001-2018, Mark Overmeer +Copyright: 2001-2019, Mark Overmeer License: Artistic or GPL-1+ Files: debian/* diff -Nru libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3/Message.pm libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3/Message.pm --- libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3/Message.pm 2018-03-04 14:17:14.000000000 +0000 +++ libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3/Message.pm 2019-05-03 07:42:28.000000000 +0000 @@ -1,4 +1,4 @@ -# Copyrights 2001-2018 by [Mark Overmeer]. +# Copyrights 2001-2019 by [Mark Overmeer]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -8,7 +8,7 @@ package Mail::Box::POP3::Message; use vars '$VERSION'; -$VERSION = '3.004'; +$VERSION = '3.005'; use base 'Mail::Box::Net::Message'; diff -Nru libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3/Message.pod libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3/Message.pod --- libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3/Message.pod 2018-03-04 14:17:15.000000000 +0000 +++ libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3/Message.pod 2019-05-03 07:42:29.000000000 +0000 @@ -618,12 +618,12 @@ =head1 SEE ALSO -This module is part of Mail-Box-POP3 distribution version 3.004, -built on March 04, 2018. Website: F +This module is part of Mail-Box-POP3 distribution version 3.005, +built on May 03, 2019. Website: F =head1 LICENSE -Copyrights 2001-2018 by [Mark Overmeer]. For other contributors see ChangeLog. +Copyrights 2001-2019 by [Mark Overmeer]. For other contributors see ChangeLog. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -Nru libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3/Test.pm libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3/Test.pm --- libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3/Test.pm 2018-03-04 14:17:14.000000000 +0000 +++ libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3/Test.pm 2019-05-03 07:42:28.000000000 +0000 @@ -1,4 +1,4 @@ -# Copyrights 2001-2018 by [Mark Overmeer]. +# Copyrights 2001-2019 by [Mark Overmeer]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -8,7 +8,7 @@ package Mail::Box::POP3::Test; use vars '$VERSION'; -$VERSION = '3.004'; +$VERSION = '3.005'; use base 'Exporter'; diff -Nru libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3.pm libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3.pm --- libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3.pm 2018-03-04 14:17:14.000000000 +0000 +++ libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3.pm 2019-05-03 07:42:28.000000000 +0000 @@ -1,4 +1,4 @@ -# Copyrights 2001-2018 by [Mark Overmeer]. +# Copyrights 2001-2019 by [Mark Overmeer]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -8,7 +8,7 @@ package Mail::Box::POP3; use vars '$VERSION'; -$VERSION = '3.004'; +$VERSION = '3.005'; use base 'Mail::Box::Net'; @@ -27,8 +27,9 @@ sub init($) { my ($self, $args) = @_; - $args->{server_port} ||= 110; - $args->{folder} ||= 'inbox'; + $args->{server_port} ||= 110; + $args->{folder} ||= 'inbox'; + $args->{message_type} ||= 'Mail::Box::POP3::Message'; $self->SUPER::init($args); diff -Nru libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3.pod libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3.pod --- libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3.pod 2018-03-04 14:17:15.000000000 +0000 +++ libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3.pod 2019-05-03 07:42:29.000000000 +0000 @@ -734,12 +734,12 @@ =head1 SEE ALSO -This module is part of Mail-Box-POP3 distribution version 3.004, -built on March 04, 2018. Website: F +This module is part of Mail-Box-POP3 distribution version 3.005, +built on May 03, 2019. Website: F =head1 LICENSE -Copyrights 2001-2018 by [Mark Overmeer]. For other contributors see ChangeLog. +Copyrights 2001-2019 by [Mark Overmeer]. For other contributors see ChangeLog. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -Nru libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3s.pm libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3s.pm --- libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3s.pm 2018-03-04 14:17:14.000000000 +0000 +++ libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3s.pm 2019-05-03 07:42:28.000000000 +0000 @@ -1,4 +1,4 @@ -# Copyrights 2001-2018 by [Mark Overmeer]. +# Copyrights 2001-2019 by [Mark Overmeer]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -8,7 +8,7 @@ package Mail::Box::POP3s; use vars '$VERSION'; -$VERSION = '3.004'; +$VERSION = '3.005'; use base 'Mail::Box::POP3'; @@ -19,7 +19,6 @@ sub init($) { my ($self, $args) = @_; $args->{server_port} ||= 995; - $args->{message_type} = 'Mail::Box::POP3::Message'; $self->SUPER::init($args); $self; } diff -Nru libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3s.pod libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3s.pod --- libmail-box-pop3-perl-3.004/lib/Mail/Box/POP3s.pod 2018-03-04 14:17:15.000000000 +0000 +++ libmail-box-pop3-perl-3.005/lib/Mail/Box/POP3s.pod 2019-05-03 07:42:29.000000000 +0000 @@ -597,12 +597,12 @@ =head1 SEE ALSO -This module is part of Mail-Box-POP3 distribution version 3.004, -built on March 04, 2018. Website: F +This module is part of Mail-Box-POP3 distribution version 3.005, +built on May 03, 2019. Website: F =head1 LICENSE -Copyrights 2001-2018 by [Mark Overmeer]. For other contributors see ChangeLog. +Copyrights 2001-2019 by [Mark Overmeer]. For other contributors see ChangeLog. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -Nru libmail-box-pop3-perl-3.004/lib/Mail/Transport/POP3.pm libmail-box-pop3-perl-3.005/lib/Mail/Transport/POP3.pm --- libmail-box-pop3-perl-3.004/lib/Mail/Transport/POP3.pm 2018-03-04 14:17:14.000000000 +0000 +++ libmail-box-pop3-perl-3.005/lib/Mail/Transport/POP3.pm 2019-05-03 07:42:28.000000000 +0000 @@ -1,4 +1,4 @@ -# Copyrights 2001-2018 by [Mark Overmeer]. +# Copyrights 2001-2019 by [Mark Overmeer]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. @@ -8,7 +8,7 @@ package Mail::Transport::POP3; use vars '$VERSION'; -$VERSION = '3.004'; +$VERSION = '3.005'; use base 'Mail::Transport::Receive'; @@ -17,9 +17,11 @@ use IO::Socket (); use Socket qw/$CRLF/; -use Digest::MD5 (); +use Digest::MD5 qw/md5_hex/; +sub _OK($) { substr(shift // '', 0, 3) eq '+OK' } + sub init($) { my ($self, $args) = @_; $args->{via} = 'pop3'; @@ -27,24 +29,25 @@ $self->SUPER::init($args) or return; - $self->{MTP_auth} = $args->{authenticate} || 'AUTO'; - $self->{MTP_ssl} = $args->{use_ssl}; - return unless $self->socket; # establish connection + $self->{MTP_auth} = $args->{authenticate} || 'AUTO'; + $self->{MTP_ssl} = $args->{use_ssl}; + $self->socket or return; # establish connection $self; } #------------------------------------------ +sub useSSL() { shift->{MTP_ssl} } + +#------------------------------------------ sub ids(;@) { my $self = shift; - return unless $self->socket; + $self->socket or return; wantarray ? @{$self->{MTP_n2uidl}} : $self->{MTP_n2uidl}; } -#------------------------------------------ - sub messages() { my $self = shift; @@ -56,7 +59,7 @@ } -sub folderSize() { shift->{MTP_total} } +sub folderSize() { shift->{MTP_folder_size} } sub header($;$) @@ -150,7 +153,7 @@ MTP_fetched ) }; - OK($quit); + _OK $quit; } @@ -166,9 +169,10 @@ #------------------------------------------ -sub socket(;$) +sub socket() { my $self = shift; + # Do we (still) have a working connection which accepts commands? my $socket = $self->_connection; return $socket if defined $socket; @@ -178,15 +182,14 @@ return; } - return unless $socket = $self->login; - return unless $self->status( $socket ); - -# Save socket in the object and return it - + # (Re-)establish the connection + $socket = $self->login or return; + $self->status($socket) or return; $self->{MTP_socket} = $socket; } + sub send($$) { my $self = shift; my $socket = shift; @@ -205,18 +208,15 @@ sub sendList($$) -{ my $self = shift; - my $socket = shift; - my $response = $self->send($socket, @_) or return; - - return unless OK($response); +{ my ($self, $socket) = (shift, shift); + my $response = $self->send($socket, @_); + $response && _OK $response or return; my @list; - local $_; - while(<$socket>) - { last if m#^\.\r?\n#s; - s#^\.##; - push @list, $_; + while(my $line = <$socket>) + { last if $line =~ m#^\.\r?\n#s; + $line =~ s#^\.##; + push @list, $line; } \@list; @@ -225,19 +225,17 @@ sub DESTROY() { my $self = shift; $self->SUPER::DESTROY; - $self->disconnect if $self->{MTP_socket}; # only do if not already done + $self->disconnect if $self->{MTP_socket}; # only when open } -sub OK($;$) { substr(shift || '', 0, 3) eq '+OK' } - -sub _connection(;$) +sub _connection() { my $self = shift; my $socket = $self->{MTP_socket}; - defined $socket or return undef; + defined $socket or return; # Check if we (still) got a connection - eval {print $socket "NOOP$CRLF"}; + eval { print $socket "NOOP$CRLF" }; if($@ || ! <$socket> ) { delete $self->{MTP_socket}; return undef; @@ -247,66 +245,63 @@ } + sub login(;$) { my $self = shift; -# Check if we can make a TCP/IP connection + # Check if we can make a connection - local $_; # make sure we don't spoil $_ for the outside world - my ($interval, $retries, $timeout) = $self->retry; my ($host, $port, $username, $password) = $self->remoteHost; unless($username && $password) { $self->log(ERROR => "POP3 requires a username and password."); return; } - my $net = $self->{MTP_ssl} ? 'IO::Socket::SSL' : 'IO::Socket::INET'; + my $net = $self->useSSL ? 'IO::Socket::SSL' : 'IO::Socket::INET'; eval "require $net" or die $@; - my $socket = eval {$net->new("$host:$port")}; + my $socket = eval { $net->new("$host:$port") }; unless($socket) { $self->log(ERROR => "Cannot connect to $host:$port for POP3: $!"); return; } -# Check if it looks like a POP server + # Check if it looks like a POP server my $connected; my $authenticate = $self->{MTP_auth}; - my $welcome = <$socket>; - unless(OK($welcome)) + my $welcome = <$socket>; + unless(_OK $welcome) { $self->log(ERROR => "Server at $host:$port does not seem to be talking POP3."); return; } -# Check APOP login if automatic or APOP specifically requested - + # Check APOP login if automatic or APOP specifically requested if($authenticate eq 'AUTO' || $authenticate eq 'APOP') { if($welcome =~ m#^\+OK .*(<\d+\.\d+\@[^>]+>)#) - { my $md5 = Digest::MD5::md5_hex($1.$password); + { my $md5 = md5_hex $1.$password; my $response = $self->send($socket, "APOP $username $md5$CRLF"); - $connected = OK($response) if $response; + $connected = _OK $response; } } -# Check USER/PASS login if automatic and failed or LOGIN specifically requested - + # Check USER/PASS login if automatic and failed or LOGIN specifically + # requested. unless($connected) { if($authenticate eq 'AUTO' || $authenticate eq 'LOGIN') { my $response = $self->send($socket, "USER $username$CRLF") or return; - if(OK($response)) - { $response = $self->send($socket, "PASS $password$CRLF") + if(_OK $response) + { my $response2 = $self->send($socket, "PASS $password$CRLF") or return; - $connected = OK($response); + $connected = _OK $response2; } } } -# If we're still not connected now, we have an error - + # If we're still not connected now, we have an error unless($connected) { $self->log(ERROR => $authenticate eq 'AUTO' ? "Could not authenticate using any login method" : @@ -317,39 +312,37 @@ $socket; } -#------------------------------------------ sub status($;$) -{ my ($self,$socket) = @_; +{ my ($self, $socket) = @_; -# Check if we can do a STAT + # Check if we can do a STAT my $stat = $self->send($socket, "STAT$CRLF") or return; - if($stat =~ m#^\+OK (\d+) (\d+)#) - { @$self{qw(MTP_messages MTP_total)} = ($1,$2); - } - else + if($stat !~ m#^\+OK (\d+) (\d+)#) { delete $self->{MTP_messages}; delete $self->{MTP_size}; $self->log(ERROR => "POP3 Could not do a STAT"); return; } + $self->{MTP_messages} = my $nr_msgs = $1; + $self->{MTP_folder_size} = $2; -# Check if we can do a UIDL + # Check if we can do a UIDL my $uidl = $self->send($socket, "UIDL$CRLF") or return; $self->{MTP_nouidl} = undef; - delete $self->{MTP_uidl2n}; # lose the reverse lookup: UIDL -> number - if(OK($uidl)) + delete $self->{MTP_uidl2n}; # drop the reverse lookup: UIDL -> number + + if(_OK $uidl) { my @n2uidl; - $n2uidl[$self->{MTP_messages}] = undef; # optimization, sets right size + $n2uidl[$nr_msgs] = undef; # pre-alloc - local $_; # protect global $_ - while(<$socket>) - { last if substr($_, 0, 1) eq '.'; - s#\r?\n$##; - $n2uidl[$1] = $2 if m#^(\d+) (.+)#; + while(my $line = <$socket>) + { last if substr($line, 0, 1) eq '.'; + $line =~ m#^(\d+) (.+?)\r?\n# or next; + $n2uidl[$1] = $2; } shift @n2uidl; # make message 1 into index 0 @@ -357,35 +350,31 @@ delete $self->{MTP_n2length}; delete $self->{MTP_nouidl}; } - -# We can't do UIDL, we need to fake it - else - { my $list = $self->send($socket, "LIST$CRLF") or return; - my @n2length; - my @n2uidl; - if(OK($list)) - { my $messages = $self->{MTP_messages}; - my ($host, $port) = $self->remoteHost; - $n2length[$messages] = $n2uidl[$messages] = undef; # optimization - while(<$socket>) - { last if substr($_, 0, 1) eq '.'; - m#^(\d+) (\d+)#; + { # We can't do UIDL, we need to fake it + my $list = $self->send($socket, "LIST$CRLF") or return; + my (@n2length, @n2uidl); + + if(_OK $list) + { $n2length[$nr_msgs] = $n2uidl[$nr_msgs] = undef; # alloc all + + my ($host, $port) = $self->remoteHost; + while(my $line = <$socket>) + { last if substr($line, 0, 1) eq '.'; + $line =~ m#^(\d+) (\d+)# or next; $n2length[$1] = $2; - $n2uidl[$1] = "$host:$port:$1"; # fake UIDL, for id only + $n2uidl[$1] = "$host:$port:$1"; # fake UIDL, for id only } shift @n2length; shift @n2uidl; # make 1st message in index 0 } $self->{MTP_n2length} = \@n2length; - $self->{MTP_n2uidl} = \@n2uidl; + $self->{MTP_n2uidl} = \@n2uidl; } my $i = 1; - my %uidl2n; - foreach(@{$self->{MTP_n2uidl}}) - { $uidl2n{$_} = $i++; - } + my %uidl2n = map +($_ => $i++), @{$self->{MTP_n2uidl}}; $self->{MTP_uidl2n} = \%uidl2n; + 1; } @@ -393,8 +382,10 @@ sub url(;$) -{ my ($host, $port, $user, $pwd) = shift->remoteHost; - "pop3://$user:$pwd\@$host:$port"; +{ my $self = shift; + my ($host, $port, $user, $pwd) = $self->remoteHost; + my $proto = $self->useSSL ? 'pop3s' : 'pop3'; + "$proto://$user:$pwd\@$host:$port"; } #------------------------------------------ diff -Nru libmail-box-pop3-perl-3.004/lib/Mail/Transport/POP3.pod libmail-box-pop3-perl-3.005/lib/Mail/Transport/POP3.pod --- libmail-box-pop3-perl-3.004/lib/Mail/Transport/POP3.pod 2018-03-04 14:17:15.000000000 +0000 +++ libmail-box-pop3-perl-3.005/lib/Mail/Transport/POP3.pod 2019-05-03 07:42:29.000000000 +0000 @@ -93,6 +93,10 @@ =item use_ssl => BOOLEAN +To set the SSL parameters, use IO::Socket::SSL subroutine set_defaults. Connections +will get restarted when they are lost: you have to keep the defaults in place +during POP actions. + =item username => STRING =item via => CLASS|NAME @@ -101,6 +105,16 @@ =back +=head2 Attributes + +=over 4 + +=item $obj-EB() + +Returns C when SSL must be used. + +=back + =head2 Receiving mail Extends L<"Receiving mail" in Mail::Transport::Receive|Mail::Transport::Receive/"Receiving mail">. @@ -414,12 +428,12 @@ =head1 SEE ALSO -This module is part of Mail-Box-POP3 distribution version 3.004, -built on March 04, 2018. Website: F +This module is part of Mail-Box-POP3 distribution version 3.005, +built on May 03, 2019. Website: F =head1 LICENSE -Copyrights 2001-2018 by [Mark Overmeer]. For other contributors see ChangeLog. +Copyrights 2001-2019 by [Mark Overmeer]. For other contributors see ChangeLog. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -Nru libmail-box-pop3-perl-3.004/Makefile.PL libmail-box-pop3-perl-3.005/Makefile.PL --- libmail-box-pop3-perl-3.004/Makefile.PL 2018-03-04 14:15:48.000000000 +0000 +++ libmail-box-pop3-perl-3.005/Makefile.PL 2019-05-03 07:41:58.000000000 +0000 @@ -4,7 +4,7 @@ use IO::Handle; -my $VERSION = '3.004'; +my $VERSION = '3.005'; my %prereq = ( Carp => 0 @@ -81,7 +81,7 @@ # for DIST RAWDIR = ../public_html/mail-box-pop3/raw DISTDIR = ../public_html/mail-box-pop3/source -EXTENDS = ../Mail-Message:../Mail-Transport:../../perl/MailBox4 +EXTENDS = ../Mail-Message:../Mail-Transport:../Mail-Box # for POD FIRST_YEAR = 2001 diff -Nru libmail-box-pop3-perl-3.004/META.json libmail-box-pop3-perl-3.005/META.json --- libmail-box-pop3-perl-3.004/META.json 2018-03-04 14:17:16.000000000 +0000 +++ libmail-box-pop3-perl-3.005/META.json 2019-05-03 07:42:30.000000000 +0000 @@ -61,6 +61,6 @@ "web" : "https://github.com/markov2/perl5-Mail-Box-POP3" } }, - "version" : "3.004", + "version" : "3.005", "x_serialization_backend" : "JSON::PP version 2.94" } diff -Nru libmail-box-pop3-perl-3.004/META.yml libmail-box-pop3-perl-3.005/META.yml --- libmail-box-pop3-perl-3.004/META.yml 2018-03-04 14:17:16.000000000 +0000 +++ libmail-box-pop3-perl-3.005/META.yml 2019-05-03 07:42:30.000000000 +0000 @@ -36,5 +36,5 @@ homepage: http://perl.overmeer.net/CPAN/ license: http://dev.perl.org/licenses/ repository: https://github.com/markov2/perl5-Mail-Box-POP3.git -version: '3.004' +version: '3.005' x_serialization_backend: 'CPAN::Meta::YAML version 0.011' diff -Nru libmail-box-pop3-perl-3.004/README libmail-box-pop3-perl-3.005/README --- libmail-box-pop3-perl-3.004/README 2018-03-04 14:15:49.000000000 +0000 +++ libmail-box-pop3-perl-3.005/README 2019-05-01 10:41:28.000000000 +0000 @@ -1,5 +1,5 @@ -=== README for Mail-Box-POP3 version 3.004 -= Generated on Sun Mar 4 15:15:49 2018 by OODoc 2.02 +=== README for Mail-Box-POP3 version 3.005 += Generated on Wed May 1 12:41:28 2019 by OODoc 2.02 There are various ways to install this module: @@ -9,16 +9,16 @@ (2) if you use Windows, have a look at http://ppm.activestate.com/ (3) if you have downloaded this module manually (as root/administrator) - gzip -d Mail-Box-POP3-3.004.tar.gz - tar -xf Mail-Box-POP3-3.004.tar - cd Mail-Box-POP3-3.004 + gzip -d Mail-Box-POP3-3.005.tar.gz + tar -xf Mail-Box-POP3-3.005.tar + cd Mail-Box-POP3-3.005 perl Makefile.PL make # optional make test # optional make install For usage, see the included manual-pages or - http://search.cpan.org/dist/Mail-Box-POP3-3.004/ + http://search.cpan.org/dist/Mail-Box-POP3-3.005/ Please report problems to http://rt.cpan.org/Dist/Display.html?Queue=Mail-Box-POP3