diff options
-rw-r--r-- | Changes | 3 | ||||
-rw-r--r-- | lib/Net/FTP.pm | 3 | ||||
-rw-r--r-- | lib/Net/NNTP.pm | 3 | ||||
-rw-r--r-- | lib/Net/POP3.pm | 3 | ||||
-rw-r--r-- | lib/Net/SMTP.pm | 3 |
5 files changed, 15 insertions, 0 deletions
@@ -2,6 +2,9 @@ Revision history for Perl distribution libnet 3.03 Development + - Fixed "Argument ... isn't numeric in subroutine entry" warnings when using + older versions of Perl. [CPAN RT#100020] + - Added optional Changes testing (skipped unless AUTHOR_TESTING). - Reformatted Changes file as per CPAN::Changes::Spec. diff --git a/lib/Net/FTP.pm b/lib/Net/FTP.pm index b1fd255..8808685 100644 --- a/lib/Net/FTP.pm +++ b/lib/Net/FTP.pm @@ -32,6 +32,7 @@ BEGIN { my $ssl_class = eval { require IO::Socket::SSL; # first version with default CA on most platforms + no warnings 'numeric'; IO::Socket::SSL->VERSION(1.999); } && 'IO::Socket::SSL'; @@ -41,9 +42,11 @@ BEGIN { # Code for detecting if we can use IPv6 my $inet6_class = eval { require IO::Socket::IP; + no warnings 'numeric'; IO::Socket::IP->VERSION(0.20); } && 'IO::Socket::IP' || eval { require IO::Socket::INET6; + no warnings 'numeric'; IO::Socket::INET6->VERSION(2.62); } && 'IO::Socket::INET6'; diff --git a/lib/Net/NNTP.pm b/lib/Net/NNTP.pm index f89bc69..60f080f 100644 --- a/lib/Net/NNTP.pm +++ b/lib/Net/NNTP.pm @@ -26,6 +26,7 @@ our $VERSION = "3.03"; my $ssl_class = eval { require IO::Socket::SSL; # first version with default CA on most platforms + no warnings 'numeric'; IO::Socket::SSL->VERSION(1.999); } && 'IO::Socket::SSL'; @@ -35,9 +36,11 @@ my $nossl_warn = !$ssl_class && # Code for detecting if we can use IPv6 my $inet6_class = eval { require IO::Socket::IP; + no warnings 'numeric'; IO::Socket::IP->VERSION(0.20); } && 'IO::Socket::IP' || eval { require IO::Socket::INET6; + no warnings 'numeric'; IO::Socket::INET6->VERSION(2.62); } && 'IO::Socket::INET6'; diff --git a/lib/Net/POP3.pm b/lib/Net/POP3.pm index c859428..6109479 100644 --- a/lib/Net/POP3.pm +++ b/lib/Net/POP3.pm @@ -25,6 +25,7 @@ our $VERSION = "3.03"; my $ssl_class = eval { require IO::Socket::SSL; # first version with default CA on most platforms + no warnings 'numeric'; IO::Socket::SSL->VERSION(1.999); } && 'IO::Socket::SSL'; @@ -34,9 +35,11 @@ my $nossl_warn = !$ssl_class && # Code for detecting if we can use IPv6 my $inet6_class = eval { require IO::Socket::IP; + no warnings 'numeric'; IO::Socket::IP->VERSION(0.20); } && 'IO::Socket::IP' || eval { require IO::Socket::INET6; + no warnings 'numeric'; IO::Socket::INET6->VERSION(2.62); } && 'IO::Socket::INET6'; diff --git a/lib/Net/SMTP.pm b/lib/Net/SMTP.pm index 4470b3d..1348831 100644 --- a/lib/Net/SMTP.pm +++ b/lib/Net/SMTP.pm @@ -26,6 +26,7 @@ our $VERSION = "3.03"; my $ssl_class = eval { require IO::Socket::SSL; # first version with default CA on most platforms + no warnings 'numeric'; IO::Socket::SSL->VERSION(1.999); } && 'IO::Socket::SSL'; @@ -35,9 +36,11 @@ my $nossl_warn = !$ssl_class && # Code for detecting if we can use IPv6 my $inet6_class = eval { require IO::Socket::IP; + no warnings 'numeric'; IO::Socket::IP->VERSION(0.20); } && 'IO::Socket::IP' || eval { require IO::Socket::INET6; + no warnings 'numeric'; IO::Socket::INET6->VERSION(2.62); } && 'IO::Socket::INET6'; |