3.15 bump
This commit is contained in:
Jitka Plesnikova
parent
7c4321d4ed
commit
3e62739092
1
.gitignore
vendored
1
.gitignore
vendored
@ -8,3 +8,4 @@
|
|||||||
/libnet-3.11_repackaged.tar.gz
|
/libnet-3.11_repackaged.tar.gz
|
||||||
/libnet-3.12.tar.gz
|
/libnet-3.12.tar.gz
|
||||||
/libnet-3.13.tar.gz
|
/libnet-3.13.tar.gz
|
||||||
|
/libnet-3.15.tar.gz
|
||||||
|
|||||||
@ -15,7 +15,7 @@ diff --git a/Changes b/Changes
|
|||||||
index 831e061..27fda24 100644
|
index 831e061..27fda24 100644
|
||||||
--- a/Changes
|
--- a/Changes
|
||||||
+++ b/Changes
|
+++ b/Changes
|
||||||
@@ -236,7 +236,7 @@ Revision history for Perl distribution libnet
|
@@ -299,7 +299,7 @@ Revision history for Perl distribution libnet
|
||||||
|
|
||||||
1.24 2014-01-06
|
1.24 2014-01-06
|
||||||
|
|
||||||
|
|||||||
@ -1,911 +0,0 @@
|
|||||||
From b8cbf3b3789baeba499d2aa32f9dc56d50ab141b Mon Sep 17 00:00:00 2001
|
|
||||||
From: Jitka Plesnikova <jplesnik@redhat.com>
|
|
||||||
Date: Thu, 12 May 2022 09:41:15 +0200
|
|
||||||
Subject: [PATCH] Upgrade to 3.14
|
|
||||||
|
|
||||||
---
|
|
||||||
Makefile.PL | 2 +-
|
|
||||||
lib/Net/Cmd.pm | 8 +-
|
|
||||||
lib/Net/Config.pm | 4 +-
|
|
||||||
lib/Net/Domain.pm | 4 +-
|
|
||||||
lib/Net/FTP.pm | 6 +-
|
|
||||||
lib/Net/FTP/A.pm | 2 +-
|
|
||||||
lib/Net/FTP/E.pm | 2 +-
|
|
||||||
lib/Net/FTP/I.pm | 2 +-
|
|
||||||
lib/Net/FTP/L.pm | 2 +-
|
|
||||||
lib/Net/FTP/dataconn.pm | 4 +-
|
|
||||||
lib/Net/NNTP.pm | 4 +-
|
|
||||||
lib/Net/Netrc.pm | 4 +-
|
|
||||||
lib/Net/POP3.pm | 4 +-
|
|
||||||
lib/Net/SMTP.pm | 4 +-
|
|
||||||
lib/Net/Time.pm | 4 +-
|
|
||||||
t/changes.t | 48 -----------
|
|
||||||
t/critic.t | 48 -----------
|
|
||||||
t/external/ftp-ssl.t | 173 ----------------------------------------
|
|
||||||
t/external/pop3-ssl.t | 58 --------------
|
|
||||||
t/external/smtp-ssl.t | 57 -------------
|
|
||||||
t/pod.t | 51 ------------
|
|
||||||
t/pod_coverage.t | 85 --------------------
|
|
||||||
22 files changed, 28 insertions(+), 548 deletions(-)
|
|
||||||
delete mode 100644 t/changes.t
|
|
||||||
delete mode 100644 t/critic.t
|
|
||||||
delete mode 100644 t/external/ftp-ssl.t
|
|
||||||
delete mode 100644 t/external/pop3-ssl.t
|
|
||||||
delete mode 100644 t/external/smtp-ssl.t
|
|
||||||
delete mode 100644 t/pod.t
|
|
||||||
delete mode 100644 t/pod_coverage.t
|
|
||||||
|
|
||||||
diff --git a/Makefile.PL b/Makefile.PL
|
|
||||||
index bca19b1..df52526 100644
|
|
||||||
--- a/Makefile.PL
|
|
||||||
+++ b/Makefile.PL
|
|
||||||
@@ -235,7 +235,7 @@ MAIN: {
|
|
||||||
sub MY::post_initialize {
|
|
||||||
my $self = shift;
|
|
||||||
|
|
||||||
- return '';
|
|
||||||
+ return '' if $self->{PERL_CORE};
|
|
||||||
|
|
||||||
if (not -f $CfgFile) {
|
|
||||||
my @args = qw(Configure);
|
|
||||||
diff --git a/lib/Net/Cmd.pm b/lib/Net/Cmd.pm
|
|
||||||
index 41df8a2..b8dc728 100644
|
|
||||||
--- a/lib/Net/Cmd.pm
|
|
||||||
+++ b/lib/Net/Cmd.pm
|
|
||||||
@@ -19,14 +19,14 @@ use Symbol 'gensym';
|
|
||||||
use Errno 'EINTR';
|
|
||||||
|
|
||||||
BEGIN {
|
|
||||||
- if ($^O eq 'os390') {
|
|
||||||
+ if (ord "A" == 193) {
|
|
||||||
require Convert::EBCDIC;
|
|
||||||
|
|
||||||
# Convert::EBCDIC->import;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
our @ISA = qw(Exporter);
|
|
||||||
our @EXPORT = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING);
|
|
||||||
|
|
||||||
@@ -41,7 +41,7 @@ use constant DEF_REPLY_CODE => 421;
|
|
||||||
|
|
||||||
my %debug = ();
|
|
||||||
|
|
||||||
-my $tr = $^O eq 'os390' ? Convert::EBCDIC->new() : undef;
|
|
||||||
+my $tr = ord "A" == 193 ? Convert::EBCDIC->new() : undef;
|
|
||||||
|
|
||||||
sub toebcdic {
|
|
||||||
my $cmd = shift;
|
|
||||||
@@ -897,7 +897,7 @@ License or the Artistic License, as specified in the F<LICENCE> file.
|
|
||||||
|
|
||||||
=head1 VERSION
|
|
||||||
|
|
||||||
-Version 3.13
|
|
||||||
+Version 3.14
|
|
||||||
|
|
||||||
=head1 DATE
|
|
||||||
|
|
||||||
diff --git a/lib/Net/Config.pm b/lib/Net/Config.pm
|
|
||||||
index 2f8417f..b9eb827 100644
|
|
||||||
--- a/lib/Net/Config.pm
|
|
||||||
+++ b/lib/Net/Config.pm
|
|
||||||
@@ -18,7 +18,7 @@ use Socket qw(inet_aton inet_ntoa);
|
|
||||||
|
|
||||||
our @EXPORT = qw(%NetConfig);
|
|
||||||
our @ISA = qw(Net::LocalCfg Exporter);
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
our($CONFIGURE, $LIBNET_CFG);
|
|
||||||
|
|
||||||
@@ -368,7 +368,7 @@ License or the Artistic License, as specified in the F<LICENCE> file.
|
|
||||||
|
|
||||||
=head1 VERSION
|
|
||||||
|
|
||||||
-Version 3.13
|
|
||||||
+Version 3.14
|
|
||||||
|
|
||||||
=head1 DATE
|
|
||||||
|
|
||||||
diff --git a/lib/Net/Domain.pm b/lib/Net/Domain.pm
|
|
||||||
index d69ac5b..7c017f2 100644
|
|
||||||
--- a/lib/Net/Domain.pm
|
|
||||||
+++ b/lib/Net/Domain.pm
|
|
||||||
@@ -19,7 +19,7 @@ use Net::Config;
|
|
||||||
|
|
||||||
our @ISA = qw(Exporter);
|
|
||||||
our @EXPORT_OK = qw(hostname hostdomain hostfqdn domainname);
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
my ($host, $domain, $fqdn) = (undef, undef, undef);
|
|
||||||
|
|
||||||
@@ -395,7 +395,7 @@ License or the Artistic License, as specified in the F<LICENCE> file.
|
|
||||||
|
|
||||||
=head1 VERSION
|
|
||||||
|
|
||||||
-Version 3.13
|
|
||||||
+Version 3.14
|
|
||||||
|
|
||||||
=head1 DATE
|
|
||||||
|
|
||||||
diff --git a/lib/Net/FTP.pm b/lib/Net/FTP.pm
|
|
||||||
index 37836bf..b6b220d 100644
|
|
||||||
--- a/lib/Net/FTP.pm
|
|
||||||
+++ b/lib/Net/FTP.pm
|
|
||||||
@@ -23,7 +23,7 @@ use Net::Config;
|
|
||||||
use Socket;
|
|
||||||
use Time::Local;
|
|
||||||
|
|
||||||
-our $VERSION = '3.13';
|
|
||||||
+our $VERSION = '3.14';
|
|
||||||
|
|
||||||
our $IOCLASS;
|
|
||||||
my $family_key;
|
|
||||||
@@ -66,7 +66,7 @@ use constant TELNET_IAC => 255;
|
|
||||||
use constant TELNET_IP => 244;
|
|
||||||
use constant TELNET_DM => 242;
|
|
||||||
|
|
||||||
-use constant EBCDIC => $^O eq 'os390';
|
|
||||||
+use constant EBCDIC => ord 'A' == 193;
|
|
||||||
|
|
||||||
sub new {
|
|
||||||
my $pkg = shift;
|
|
||||||
@@ -2044,7 +2044,7 @@ License or the Artistic License, as specified in the F<LICENCE> file.
|
|
||||||
|
|
||||||
=head1 VERSION
|
|
||||||
|
|
||||||
-Version 3.13
|
|
||||||
+Version 3.14
|
|
||||||
|
|
||||||
=head1 DATE
|
|
||||||
|
|
||||||
diff --git a/lib/Net/FTP/A.pm b/lib/Net/FTP/A.pm
|
|
||||||
index 5344638..1ea4831 100644
|
|
||||||
--- a/lib/Net/FTP/A.pm
|
|
||||||
+++ b/lib/Net/FTP/A.pm
|
|
||||||
@@ -13,7 +13,7 @@ use Carp;
|
|
||||||
use Net::FTP::dataconn;
|
|
||||||
|
|
||||||
our @ISA = qw(Net::FTP::dataconn);
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
our $buf;
|
|
||||||
|
|
||||||
diff --git a/lib/Net/FTP/E.pm b/lib/Net/FTP/E.pm
|
|
||||||
index 9b13707..7b8c2ea 100644
|
|
||||||
--- a/lib/Net/FTP/E.pm
|
|
||||||
+++ b/lib/Net/FTP/E.pm
|
|
||||||
@@ -8,6 +8,6 @@ use warnings;
|
|
||||||
use Net::FTP::I;
|
|
||||||
|
|
||||||
our @ISA = qw(Net::FTP::I);
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
1;
|
|
||||||
diff --git a/lib/Net/FTP/I.pm b/lib/Net/FTP/I.pm
|
|
||||||
index 726cba1..afcc51f 100644
|
|
||||||
--- a/lib/Net/FTP/I.pm
|
|
||||||
+++ b/lib/Net/FTP/I.pm
|
|
||||||
@@ -13,7 +13,7 @@ use Carp;
|
|
||||||
use Net::FTP::dataconn;
|
|
||||||
|
|
||||||
our @ISA = qw(Net::FTP::dataconn);
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
our $buf;
|
|
||||||
|
|
||||||
diff --git a/lib/Net/FTP/L.pm b/lib/Net/FTP/L.pm
|
|
||||||
index ac5e27e..9dfe491 100644
|
|
||||||
--- a/lib/Net/FTP/L.pm
|
|
||||||
+++ b/lib/Net/FTP/L.pm
|
|
||||||
@@ -8,6 +8,6 @@ use warnings;
|
|
||||||
use Net::FTP::I;
|
|
||||||
|
|
||||||
our @ISA = qw(Net::FTP::I);
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
1;
|
|
||||||
diff --git a/lib/Net/FTP/dataconn.pm b/lib/Net/FTP/dataconn.pm
|
|
||||||
index 5a257e6..979be7c 100644
|
|
||||||
--- a/lib/Net/FTP/dataconn.pm
|
|
||||||
+++ b/lib/Net/FTP/dataconn.pm
|
|
||||||
@@ -13,7 +13,7 @@ use Carp;
|
|
||||||
use Errno;
|
|
||||||
use Net::Cmd;
|
|
||||||
|
|
||||||
-our $VERSION = '3.13';
|
|
||||||
+our $VERSION = '3.14';
|
|
||||||
|
|
||||||
$Net::FTP::IOCLASS or die "please load Net::FTP before Net::FTP::dataconn";
|
|
||||||
our @ISA = $Net::FTP::IOCLASS;
|
|
||||||
@@ -224,7 +224,7 @@ License or the Artistic License, as specified in the F<LICENCE> file.
|
|
||||||
|
|
||||||
=head1 VERSION
|
|
||||||
|
|
||||||
-Version 3.13
|
|
||||||
+Version 3.14
|
|
||||||
|
|
||||||
=head1 DATE
|
|
||||||
|
|
||||||
diff --git a/lib/Net/NNTP.pm b/lib/Net/NNTP.pm
|
|
||||||
index 3187f51..bbdc884 100644
|
|
||||||
--- a/lib/Net/NNTP.pm
|
|
||||||
+++ b/lib/Net/NNTP.pm
|
|
||||||
@@ -19,7 +19,7 @@ use Net::Cmd;
|
|
||||||
use Net::Config;
|
|
||||||
use Time::Local;
|
|
||||||
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
# Code for detecting if we can use SSL
|
|
||||||
my $ssl_class = eval {
|
|
||||||
@@ -1308,7 +1308,7 @@ License or the Artistic License, as specified in the F<LICENCE> file.
|
|
||||||
|
|
||||||
=head1 VERSION
|
|
||||||
|
|
||||||
-Version 3.13
|
|
||||||
+Version 3.14
|
|
||||||
|
|
||||||
=head1 DATE
|
|
||||||
|
|
||||||
diff --git a/lib/Net/Netrc.pm b/lib/Net/Netrc.pm
|
|
||||||
index 50688ee..3dec11e 100644
|
|
||||||
--- a/lib/Net/Netrc.pm
|
|
||||||
+++ b/lib/Net/Netrc.pm
|
|
||||||
@@ -16,7 +16,7 @@ use warnings;
|
|
||||||
use Carp;
|
|
||||||
use FileHandle;
|
|
||||||
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
our $TESTING;
|
|
||||||
|
|
||||||
@@ -353,7 +353,7 @@ License or the Artistic License, as specified in the F<LICENCE> file.
|
|
||||||
|
|
||||||
=head1 VERSION
|
|
||||||
|
|
||||||
-Version 3.13
|
|
||||||
+Version 3.14
|
|
||||||
|
|
||||||
=head1 DATE
|
|
||||||
|
|
||||||
diff --git a/lib/Net/POP3.pm b/lib/Net/POP3.pm
|
|
||||||
index 55f7be1..a4ed8eb 100644
|
|
||||||
--- a/lib/Net/POP3.pm
|
|
||||||
+++ b/lib/Net/POP3.pm
|
|
||||||
@@ -18,7 +18,7 @@ use IO::Socket;
|
|
||||||
use Net::Cmd;
|
|
||||||
use Net::Config;
|
|
||||||
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
# Code for detecting if we can use SSL
|
|
||||||
my $ssl_class = eval {
|
|
||||||
@@ -869,7 +869,7 @@ License or the Artistic License, as specified in the F<LICENCE> file.
|
|
||||||
|
|
||||||
=head1 VERSION
|
|
||||||
|
|
||||||
-Version 3.13
|
|
||||||
+Version 3.14
|
|
||||||
|
|
||||||
=head1 DATE
|
|
||||||
|
|
||||||
diff --git a/lib/Net/SMTP.pm b/lib/Net/SMTP.pm
|
|
||||||
index 354ed8e..c04a362 100644
|
|
||||||
--- a/lib/Net/SMTP.pm
|
|
||||||
+++ b/lib/Net/SMTP.pm
|
|
||||||
@@ -19,7 +19,7 @@ use Net::Cmd;
|
|
||||||
use Net::Config;
|
|
||||||
use Socket;
|
|
||||||
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
# Code for detecting if we can use SSL
|
|
||||||
my $ssl_class = eval {
|
|
||||||
@@ -1052,7 +1052,7 @@ License or the Artistic License, as specified in the F<LICENCE> file.
|
|
||||||
|
|
||||||
=head1 VERSION
|
|
||||||
|
|
||||||
-Version 3.13
|
|
||||||
+Version 3.14
|
|
||||||
|
|
||||||
=head1 DATE
|
|
||||||
|
|
||||||
diff --git a/lib/Net/Time.pm b/lib/Net/Time.pm
|
|
||||||
index 7f0a724..7906c1a 100644
|
|
||||||
--- a/lib/Net/Time.pm
|
|
||||||
+++ b/lib/Net/Time.pm
|
|
||||||
@@ -22,7 +22,7 @@ use Net::Config;
|
|
||||||
our @ISA = qw(Exporter);
|
|
||||||
our @EXPORT_OK = qw(inet_time inet_daytime);
|
|
||||||
|
|
||||||
-our $VERSION = "3.13";
|
|
||||||
+our $VERSION = "3.14";
|
|
||||||
|
|
||||||
our $TIMEOUT = 120;
|
|
||||||
|
|
||||||
@@ -190,7 +190,7 @@ License or the Artistic License, as specified in the F<LICENCE> file.
|
|
||||||
|
|
||||||
=head1 VERSION
|
|
||||||
|
|
||||||
-Version 3.13
|
|
||||||
+Version 3.14
|
|
||||||
|
|
||||||
=head1 DATE
|
|
||||||
|
|
||||||
diff --git a/t/changes.t b/t/changes.t
|
|
||||||
deleted file mode 100644
|
|
||||||
index 8235c1b..0000000
|
|
||||||
--- a/t/changes.t
|
|
||||||
+++ /dev/null
|
|
||||||
@@ -1,48 +0,0 @@
|
|
||||||
-#!perl
|
|
||||||
-#===============================================================================
|
|
||||||
-#
|
|
||||||
-# t/changes.t
|
|
||||||
-#
|
|
||||||
-# DESCRIPTION
|
|
||||||
-# Test script to check CPAN::Changes conformance.
|
|
||||||
-#
|
|
||||||
-# COPYRIGHT
|
|
||||||
-# Copyright (C) 2014 Steve Hay. All rights reserved.
|
|
||||||
-#
|
|
||||||
-# LICENCE
|
|
||||||
-# This script is free software; you can redistribute it and/or modify it under
|
|
||||||
-# the same terms as Perl itself, i.e. under the terms of either the GNU
|
|
||||||
-# General Public License or the Artistic License, as specified in the LICENCE
|
|
||||||
-# file.
|
|
||||||
-#
|
|
||||||
-#===============================================================================
|
|
||||||
-
|
|
||||||
-use 5.008001;
|
|
||||||
-
|
|
||||||
-use strict;
|
|
||||||
-use warnings;
|
|
||||||
-
|
|
||||||
-use Test::More;
|
|
||||||
-
|
|
||||||
-#===============================================================================
|
|
||||||
-# MAIN PROGRAM
|
|
||||||
-#===============================================================================
|
|
||||||
-
|
|
||||||
-MAIN: {
|
|
||||||
- plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING};
|
|
||||||
-
|
|
||||||
- my $ok = eval {
|
|
||||||
- require Test::CPAN::Changes;
|
|
||||||
- Test::CPAN::Changes->import();
|
|
||||||
- 1;
|
|
||||||
- };
|
|
||||||
-
|
|
||||||
- if (not $ok) {
|
|
||||||
- plan skip_all => 'Test::CPAN::Changes required to test Changes';
|
|
||||||
- }
|
|
||||||
- else {
|
|
||||||
- changes_ok();
|
|
||||||
- }
|
|
||||||
-}
|
|
||||||
-
|
|
||||||
-#===============================================================================
|
|
||||||
diff --git a/t/critic.t b/t/critic.t
|
|
||||||
deleted file mode 100644
|
|
||||||
index 339dadb..0000000
|
|
||||||
--- a/t/critic.t
|
|
||||||
+++ /dev/null
|
|
||||||
@@ -1,48 +0,0 @@
|
|
||||||
-#!perl
|
|
||||||
-#===============================================================================
|
|
||||||
-#
|
|
||||||
-# t/critic.t
|
|
||||||
-#
|
|
||||||
-# DESCRIPTION
|
|
||||||
-# Test script to check Perl::Critic conformance.
|
|
||||||
-#
|
|
||||||
-# COPYRIGHT
|
|
||||||
-# Copyright (C) 2014 Steve Hay. All rights reserved.
|
|
||||||
-#
|
|
||||||
-# LICENCE
|
|
||||||
-# This script is free software; you can redistribute it and/or modify it under
|
|
||||||
-# the same terms as Perl itself, i.e. under the terms of either the GNU
|
|
||||||
-# General Public License or the Artistic License, as specified in the LICENCE
|
|
||||||
-# file.
|
|
||||||
-#
|
|
||||||
-#===============================================================================
|
|
||||||
-
|
|
||||||
-use 5.008001;
|
|
||||||
-
|
|
||||||
-use strict;
|
|
||||||
-use warnings;
|
|
||||||
-
|
|
||||||
-use Test::More;
|
|
||||||
-
|
|
||||||
-#===============================================================================
|
|
||||||
-# MAIN PROGRAM
|
|
||||||
-#===============================================================================
|
|
||||||
-
|
|
||||||
-MAIN: {
|
|
||||||
- plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING};
|
|
||||||
-
|
|
||||||
- my $ok = eval {
|
|
||||||
- require Test::Perl::Critic;
|
|
||||||
- Test::Perl::Critic->import(-profile => '');
|
|
||||||
- 1;
|
|
||||||
- };
|
|
||||||
-
|
|
||||||
- if (not $ok) {
|
|
||||||
- plan skip_all => 'Test::Perl::Critic required to test with Perl::Critic';
|
|
||||||
- }
|
|
||||||
- else {
|
|
||||||
- all_critic_ok('.');
|
|
||||||
- }
|
|
||||||
-}
|
|
||||||
-
|
|
||||||
-#===============================================================================
|
|
||||||
diff --git a/t/external/ftp-ssl.t b/t/external/ftp-ssl.t
|
|
||||||
deleted file mode 100644
|
|
||||||
index 28c038a..0000000
|
|
||||||
--- a/t/external/ftp-ssl.t
|
|
||||||
+++ /dev/null
|
|
||||||
@@ -1,173 +0,0 @@
|
|
||||||
-#!perl
|
|
||||||
-
|
|
||||||
-use 5.008001;
|
|
||||||
-
|
|
||||||
-use strict;
|
|
||||||
-use warnings;
|
|
||||||
-
|
|
||||||
-use Net::FTP;
|
|
||||||
-use Test::More;
|
|
||||||
-use File::Temp;
|
|
||||||
-use IO::Socket::INET;
|
|
||||||
-
|
|
||||||
-my $server = 'test.rebex.net';
|
|
||||||
-my $debug = 0;
|
|
||||||
-
|
|
||||||
-plan skip_all => "no SSL support" if ! Net::FTP->can_ssl;
|
|
||||||
-require IO::Socket::SSL;
|
|
||||||
-
|
|
||||||
-
|
|
||||||
-# first try to connect w/o ftp
|
|
||||||
-# plain
|
|
||||||
-diag( "connect inet to $server:21" );
|
|
||||||
-IO::Socket::INET->new( "$server:21" ) or do {
|
|
||||||
- plan skip_all => "$server:21 not reachable";
|
|
||||||
-};
|
|
||||||
-
|
|
||||||
-# ssl to the right host
|
|
||||||
-diag( "connect inet to $server:990" );
|
|
||||||
-my $sock = IO::Socket::INET->new( "$server:990") or do {
|
|
||||||
- plan skip_all => "$server:990 not reachable";
|
|
||||||
-};
|
|
||||||
-
|
|
||||||
-# now we need CAs
|
|
||||||
-my $cafh = File::Temp->new( UNLINK => 0, SUFFIX => '.crt' );
|
|
||||||
-my %sslargs = ( SSL_ca_file => $cafh->filename );
|
|
||||||
-print $cafh <DATA>;
|
|
||||||
-close($cafh);
|
|
||||||
-
|
|
||||||
-diag( "upgrade to ssl $server:990" );
|
|
||||||
-IO::Socket::SSL->start_SSL($sock,
|
|
||||||
- SSL_verify_mode => 1,
|
|
||||||
- SSL_verifycn_name => $server,
|
|
||||||
- SSL_verifycn_scheme => 'ftp',
|
|
||||||
- %sslargs,
|
|
||||||
-) or do {
|
|
||||||
- plan skip_all => "$server:990 not upgradable to SSL: ".
|
|
||||||
- $IO::Socket::SSL::SSL_ERROR;
|
|
||||||
-};
|
|
||||||
-
|
|
||||||
-plan tests => 9;
|
|
||||||
-
|
|
||||||
-# first direct SSL
|
|
||||||
-diag( "connect ftp over ssl to $server" );
|
|
||||||
-my $ftp = Net::FTP->new($server,
|
|
||||||
- SSL => 1,
|
|
||||||
- %sslargs,
|
|
||||||
- Debug => $debug,
|
|
||||||
- Passive => 1,
|
|
||||||
-);
|
|
||||||
-ok($ftp,"ftp ssl connect $server");
|
|
||||||
-$ftp->login("anonymous",'net-sslglue-ftp@test.perl')
|
|
||||||
- or die "login to $server failed";
|
|
||||||
-diag("logged in");
|
|
||||||
-# check that we can talk on connection
|
|
||||||
-ok(~~$ftp->ls,"directory listing protected");
|
|
||||||
-$ftp->prot('C');
|
|
||||||
-ok(~~$ftp->ls,"directory listing clear");
|
|
||||||
-
|
|
||||||
-# then TLS upgrade inside plain connection
|
|
||||||
-$ftp = Net::FTP->new($server,
|
|
||||||
- Passive => 1,
|
|
||||||
- Debug => $debug,
|
|
||||||
- %sslargs
|
|
||||||
-);
|
|
||||||
-ok($ftp,"ftp plain connect $server");
|
|
||||||
-my $ok = $ftp->starttls;
|
|
||||||
-ok($ok,"ssl upgrade");
|
|
||||||
-$ftp->login("anonymous",'net-sslglue-ftp@test.perl')
|
|
||||||
- or die "login to $server failed";
|
|
||||||
-diag("logged in");
|
|
||||||
-# check that we can talk on connection
|
|
||||||
-ok(~~$ftp->ls,"directory listing protected");
|
|
||||||
-$ftp->prot('C');
|
|
||||||
-ok(~~$ftp->ls,"directory listing clear");
|
|
||||||
-$ok = $ftp->stoptls;
|
|
||||||
-ok($ok,"ssl downgrade");
|
|
||||||
-ok(~~$ftp->ls,"directory listing after downgrade");
|
|
||||||
-
|
|
||||||
-
|
|
||||||
-__DATA__
|
|
||||||
-# Subject: C=IL, O=StartCom Ltd., OU=Secure Digital Certificate Signing, CN=StartCom Class 2 Primary Intermediate Server CA
|
|
||||||
-# Issuer: C=IL, O=StartCom Ltd., OU=Secure Digital Certificate Signing, CN=StartCom Certification Authority
|
|
||||||
------BEGIN CERTIFICATE-----
|
|
||||||
-MIIGNDCCBBygAwIBAgIBGjANBgkqhkiG9w0BAQUFADB9MQswCQYDVQQGEwJJTDEW
|
|
||||||
-MBQGA1UEChMNU3RhcnRDb20gTHRkLjErMCkGA1UECxMiU2VjdXJlIERpZ2l0YWwg
|
|
||||||
-Q2VydGlmaWNhdGUgU2lnbmluZzEpMCcGA1UEAxMgU3RhcnRDb20gQ2VydGlmaWNh
|
|
||||||
-dGlvbiBBdXRob3JpdHkwHhcNMDcxMDI0MjA1NzA5WhcNMTcxMDI0MjA1NzA5WjCB
|
|
||||||
-jDELMAkGA1UEBhMCSUwxFjAUBgNVBAoTDVN0YXJ0Q29tIEx0ZC4xKzApBgNVBAsT
|
|
||||||
-IlNlY3VyZSBEaWdpdGFsIENlcnRpZmljYXRlIFNpZ25pbmcxODA2BgNVBAMTL1N0
|
|
||||||
-YXJ0Q29tIENsYXNzIDIgUHJpbWFyeSBJbnRlcm1lZGlhdGUgU2VydmVyIENBMIIB
|
|
||||||
-IjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA4k85L6GMmoWtCA4IPlfyiAEh
|
|
||||||
-G5SpbOK426oZGEY6UqH1D/RujOqWjJaHeRNAUS8i8gyLhw9l33F0NENVsTUJm9m8
|
|
||||||
-H/rrQtCXQHK3Q5Y9upadXVACHJuRjZzArNe7LxfXyz6CnXPrB0KSss1ks3RVG7RL
|
|
||||||
-hiEs93iHMuAW5Nq9TJXqpAp+tgoNLorPVavD5d1Bik7mb2VsskDPF125w2oLJxGE
|
|
||||||
-d2H2wnztwI14FBiZgZl1Y7foU9O6YekO+qIw80aiuckfbIBaQKwn7UhHM7BUxkYa
|
|
||||||
-8zVhwQIpkFR+ZE3EMFICgtffziFuGJHXuKuMJxe18KMBL47SLoc6PbQpZ4rEAwID
|
|
||||||
-AQABo4IBrTCCAakwDwYDVR0TAQH/BAUwAwEB/zAOBgNVHQ8BAf8EBAMCAQYwHQYD
|
|
||||||
-VR0OBBYEFBHbI0X9VMxqcW+EigPXvvcBLyaGMB8GA1UdIwQYMBaAFE4L7xqkQFul
|
|
||||||
-F2mHMMo0aEPQQa7yMGYGCCsGAQUFBwEBBFowWDAnBggrBgEFBQcwAYYbaHR0cDov
|
|
||||||
-L29jc3Auc3RhcnRzc2wuY29tL2NhMC0GCCsGAQUFBzAChiFodHRwOi8vd3d3LnN0
|
|
||||||
-YXJ0c3NsLmNvbS9zZnNjYS5jcnQwWwYDVR0fBFQwUjAnoCWgI4YhaHR0cDovL3d3
|
|
||||||
-dy5zdGFydHNzbC5jb20vc2ZzY2EuY3JsMCegJaAjhiFodHRwOi8vY3JsLnN0YXJ0
|
|
||||||
-c3NsLmNvbS9zZnNjYS5jcmwwgYAGA1UdIAR5MHcwdQYLKwYBBAGBtTcBAgEwZjAu
|
|
||||||
-BggrBgEFBQcCARYiaHR0cDovL3d3dy5zdGFydHNzbC5jb20vcG9saWN5LnBkZjA0
|
|
||||||
-BggrBgEFBQcCARYoaHR0cDovL3d3dy5zdGFydHNzbC5jb20vaW50ZXJtZWRpYXRl
|
|
||||||
-LnBkZjANBgkqhkiG9w0BAQUFAAOCAgEAnQfh7pB2MWcWRXCMy4SLS1doRKWJwfJ+
|
|
||||||
-yyiL9edwd9W29AshYKWhdHMkIoDW2LqNomJdCTVCKfs5Y0ULpLA4Gmj0lRPM4EOU
|
|
||||||
-7Os5GuxXKdmZbfWEzY5zrsncavqenRZkkwjHHMKJVJ53gJD2uSl26xNnSFn4Ljox
|
|
||||||
-uMnTiOVfTtIZPUOO15L/zzi24VuKUx3OrLR2L9j3QGPV7mnzRX2gYsFhw3XtsntN
|
|
||||||
-rCEnME5ZRmqTF8rIOS0Bc2Vb6UGbERecyMhK76F2YC2uk/8M1TMTn08Tzt2G8fz4
|
|
||||||
-NVQVqFvnhX76Nwn/i7gxSZ4Nbt600hItuO3Iw/G2QqBMl3nf/sOjn6H0bSyEd6Si
|
|
||||||
-BeEX/zHdmvO4esNSwhERt1Axin/M51qJzPeGmmGSTy+UtpjHeOBiS0N9PN7WmrQQ
|
|
||||||
-oUCcSyrcuNDUnv3xhHgbDlePaVRCaHvqoO91DweijHOZq1X1BwnSrzgDapADDC+P
|
|
||||||
-4uhDwjHpb62H5Y29TiyJS1HmnExUdsASgVOb7KD8LJzaGJVuHjgmQid4YAjff20y
|
|
||||||
-6NjAbx/rJnWfk/x7G/41kNxTowemP4NVCitOYoIlzmYwXSzg+RkbdbmdmFamgyd6
|
|
||||||
-0Y+NWZP8P3PXLrQsldiL98l+x/ydrHIEH9LMF/TtNGCbnkqXBP7dcg5XVFEGcE3v
|
|
||||||
-qhykguAzx/Q=
|
|
||||||
------END CERTIFICATE-----
|
|
||||||
-# Subject: C=IL, O=StartCom Ltd., OU=Secure Digital Certificate Signing, CN=StartCom Certification Authority
|
|
||||||
-# Issuer: C=IL, O=StartCom Ltd., OU=Secure Digital Certificate Signing, CN=StartCom Certification Authority
|
|
||||||
------BEGIN CERTIFICATE-----
|
|
||||||
-MIIHhzCCBW+gAwIBAgIBLTANBgkqhkiG9w0BAQsFADB9MQswCQYDVQQGEwJJTDEW
|
|
||||||
-MBQGA1UEChMNU3RhcnRDb20gTHRkLjErMCkGA1UECxMiU2VjdXJlIERpZ2l0YWwg
|
|
||||||
-Q2VydGlmaWNhdGUgU2lnbmluZzEpMCcGA1UEAxMgU3RhcnRDb20gQ2VydGlmaWNh
|
|
||||||
-dGlvbiBBdXRob3JpdHkwHhcNMDYwOTE3MTk0NjM3WhcNMzYwOTE3MTk0NjM2WjB9
|
|
||||||
-MQswCQYDVQQGEwJJTDEWMBQGA1UEChMNU3RhcnRDb20gTHRkLjErMCkGA1UECxMi
|
|
||||||
-U2VjdXJlIERpZ2l0YWwgQ2VydGlmaWNhdGUgU2lnbmluZzEpMCcGA1UEAxMgU3Rh
|
|
||||||
-cnRDb20gQ2VydGlmaWNhdGlvbiBBdXRob3JpdHkwggIiMA0GCSqGSIb3DQEBAQUA
|
|
||||||
-A4ICDwAwggIKAoICAQDBiNsJvGxGfHiflXu1M5DycmLWwTYgIiRezul38kMKogZk
|
|
||||||
-pMyONvg45iPwbm2xPN1yo4UcodM9tDMr0y+v/uqwQVlntsQGfQqedIXWeUyAN3rf
|
|
||||||
-OQVSWff0G0ZDpNKFhdLDcfN1YjS6LIp/Ho/u7TTQEceWzVI9ujPW3U3eCztKS5/C
|
|
||||||
-Ji/6tRYccjV3yjxd5srhJosaNnZcAdt0FCX+7bWgiA/deMotHweXMAEtcnn6RtYT
|
|
||||||
-Kqi5pquDSR3l8u/d5AGOGAqPY1MWhWKpDhk6zLVmpsJrdAfkK+F2PrRt2PZE4XNi
|
|
||||||
-HzvEvqBTViVsUQn3qqvKv3b9bZvzndu/PWa8DFaqr5hIlTpL36dYUNk4dalb6kMM
|
|
||||||
-Av+Z6+hsTXBbKWWc3apdzK8BMewM69KN6Oqce+Zu9ydmDBpI125C4z/eIT574Q1w
|
|
||||||
-+2OqqGwaVLRcJXrJosmLFqa7LH4XXgVNWG4SHQHuEhANxjJ/GP/89PrNbpHoNkm+
|
|
||||||
-Gkhpi8KWTRoSsmkXwQqQ1vp5Iki/untp+HDH+no32NgN0nZPV/+Qt+OR0t3vwmC3
|
|
||||||
-Zzrd/qqc8NSLf3Iizsafl7b4r4qgEKjZ+xjGtrVcUjyJthkqcwEKDwOzEmDyei+B
|
|
||||||
-26Nu/yYwl/WL3YlXtq09s68rxbd2AvCl1iuahhQqcvbjM4xdCUsT37uMdBNSSwID
|
|
||||||
-AQABo4ICEDCCAgwwDwYDVR0TAQH/BAUwAwEB/zAOBgNVHQ8BAf8EBAMCAQYwHQYD
|
|
||||||
-VR0OBBYEFE4L7xqkQFulF2mHMMo0aEPQQa7yMB8GA1UdIwQYMBaAFE4L7xqkQFul
|
|
||||||
-F2mHMMo0aEPQQa7yMIIBWgYDVR0gBIIBUTCCAU0wggFJBgsrBgEEAYG1NwEBATCC
|
|
||||||
-ATgwLgYIKwYBBQUHAgEWImh0dHA6Ly93d3cuc3RhcnRzc2wuY29tL3BvbGljeS5w
|
|
||||||
-ZGYwNAYIKwYBBQUHAgEWKGh0dHA6Ly93d3cuc3RhcnRzc2wuY29tL2ludGVybWVk
|
|
||||||
-aWF0ZS5wZGYwgc8GCCsGAQUFBwICMIHCMCcWIFN0YXJ0IENvbW1lcmNpYWwgKFN0
|
|
||||||
-YXJ0Q29tKSBMdGQuMAMCAQEagZZMaW1pdGVkIExpYWJpbGl0eSwgcmVhZCB0aGUg
|
|
||||||
-c2VjdGlvbiAqTGVnYWwgTGltaXRhdGlvbnMqIG9mIHRoZSBTdGFydENvbSBDZXJ0
|
|
||||||
-aWZpY2F0aW9uIEF1dGhvcml0eSBQb2xpY3kgYXZhaWxhYmxlIGF0IGh0dHA6Ly93
|
|
||||||
-d3cuc3RhcnRzc2wuY29tL3BvbGljeS5wZGYwEQYJYIZIAYb4QgEBBAQDAgAHMDgG
|
|
||||||
-CWCGSAGG+EIBDQQrFilTdGFydENvbSBGcmVlIFNTTCBDZXJ0aWZpY2F0aW9uIEF1
|
|
||||||
-dGhvcml0eTANBgkqhkiG9w0BAQsFAAOCAgEAjo/n3JR5fPGFf59Jb2vKXfuM/gTF
|
|
||||||
-wWLRfUKKvFO3lANmMD+x5wqnUCBVJX92ehQN6wQOQOY+2IirByeDqXWmN3PH/UvS
|
|
||||||
-Ta0XQMhGvjt/UfzDtgUx3M2FIk5xt/JxXrAaxrqTi3iSSoX4eA+D/i+tLPfkpLst
|
|
||||||
-0OcNOrg+zvZ49q5HJMqjNTbOx8aHmNrs++myziebiMMEofYLWWivydsQD032ZGNc
|
|
||||||
-pRJvkrKTlMeIFw6Ttn5ii5B/q06f/ON1FE8qMt9bDeD1e5MNq6HPh+GlBEXoPBKl
|
|
||||||
-CcWw0bdT82AUuoVpaiF8H3VhFyAXe2w7QSlc4axa0c2Mm+tgHRns9+Ww2vl5GKVF
|
|
||||||
-P0lDV9LdJNUso/2RjSe15esUBppMeyG7Oq0wBhjA2MFrLH9ZXF2RsXAiV+uKa0hK
|
|
||||||
-1Q8p7MZAwC+ITGgBF3f0JBlPvfrhsiAhS90a2Cl9qrjeVOwhVYBsHvUwyKMQ5bLm
|
|
||||||
-KhQxw4UtjJixhlpPiVktucf3HMiKf8CdBUrmQk9io20ppB+Fq9vlgcitKj1MXVuE
|
|
||||||
-JnHEhV5xJMqlG2zYYdMa4FTbzrqpMrUi9nNBCV24F10OD5mQ1kfabwo6YigUZ4LZ
|
|
||||||
-8dCAWZvLMdibD4x3TrVoivJs9iQOLWxwxXPR3hTQcY+203sC9uO41Alua551hDnm
|
|
||||||
-fyWl8kgAwKQB2j8=
|
|
||||||
------END CERTIFICATE-----
|
|
||||||
diff --git a/t/external/pop3-ssl.t b/t/external/pop3-ssl.t
|
|
||||||
deleted file mode 100644
|
|
||||||
index 554a8db..0000000
|
|
||||||
--- a/t/external/pop3-ssl.t
|
|
||||||
+++ /dev/null
|
|
||||||
@@ -1,58 +0,0 @@
|
|
||||||
-#!perl
|
|
||||||
-
|
|
||||||
-use 5.008001;
|
|
||||||
-
|
|
||||||
-use strict;
|
|
||||||
-use warnings;
|
|
||||||
-
|
|
||||||
-use Net::POP3;
|
|
||||||
-use Test::More;
|
|
||||||
-
|
|
||||||
-my $host = 'pop.gmx.net';
|
|
||||||
-my $debug = 0;
|
|
||||||
-
|
|
||||||
-plan skip_all => "no SSL support" if ! Net::POP3->can_ssl;
|
|
||||||
-{
|
|
||||||
-no warnings 'once';
|
|
||||||
-plan skip_all => "no verified SSL connection to $host:995 - $@" if ! eval {
|
|
||||||
- IO::Socket::SSL->new(PeerAddr => "$host:995", Timeout => 10)
|
|
||||||
- || die($IO::Socket::SSL::SSL_ERROR||$!);
|
|
||||||
-};
|
|
||||||
-}
|
|
||||||
-
|
|
||||||
-plan tests => 2;
|
|
||||||
-
|
|
||||||
-SKIP: {
|
|
||||||
- diag( "connect inet to $host:110" );
|
|
||||||
- skip "no inet connect to $host:110",1
|
|
||||||
- if ! IO::Socket::INET->new(PeerAddr => "$host:110", Timeout => 10);
|
|
||||||
- my $pop3 = Net::POP3->new($host, Debug => $debug, Timeout => 10)
|
|
||||||
- or skip "normal POP3 failed: $@",1;
|
|
||||||
- skip "no STARTTLS support",1 if $pop3->message !~/STARTTLS/;
|
|
||||||
-
|
|
||||||
- if (!$pop3->starttls) {
|
|
||||||
- fail("starttls failed: ".$pop3->code." $@")
|
|
||||||
- } else {
|
|
||||||
- # we now should have access to SSL stuff
|
|
||||||
- my $cipher = eval { $pop3->get_cipher };
|
|
||||||
- if (!$cipher) {
|
|
||||||
- fail("after starttls: not an SSL object");
|
|
||||||
- } elsif ( $pop3->quit ) {
|
|
||||||
- pass("starttls + quit ok, cipher=$cipher");
|
|
||||||
- } else {
|
|
||||||
- fail("quit after starttls failed: ".$pop3->code);
|
|
||||||
- }
|
|
||||||
- }
|
|
||||||
-}
|
|
||||||
-
|
|
||||||
-
|
|
||||||
-my $pop3 = Net::POP3->new($host, SSL => 1, Timeout => 10, Debug => $debug);
|
|
||||||
-# we now should have access to SSL stuff
|
|
||||||
-my $cipher = eval { $pop3->get_cipher };
|
|
||||||
-if (!$cipher) {
|
|
||||||
- fail("after ssl connect: not an SSL object");
|
|
||||||
-} elsif ( $pop3->quit ) {
|
|
||||||
- pass("ssl connect ok, cipher=$cipher");
|
|
||||||
-} else {
|
|
||||||
- fail("quit after direct ssl failed: ".$pop3->code);
|
|
||||||
-}
|
|
||||||
diff --git a/t/external/smtp-ssl.t b/t/external/smtp-ssl.t
|
|
||||||
deleted file mode 100644
|
|
||||||
index ccacbae..0000000
|
|
||||||
--- a/t/external/smtp-ssl.t
|
|
||||||
+++ /dev/null
|
|
||||||
@@ -1,57 +0,0 @@
|
|
||||||
-#!perl
|
|
||||||
-
|
|
||||||
-use 5.008001;
|
|
||||||
-
|
|
||||||
-use strict;
|
|
||||||
-use warnings;
|
|
||||||
-
|
|
||||||
-use Net::SMTP;
|
|
||||||
-use Test::More;
|
|
||||||
-
|
|
||||||
-my $host = 'mail.gmx.net';
|
|
||||||
-my $debug = 0;
|
|
||||||
-
|
|
||||||
-plan skip_all => "no SSL support" if ! Net::SMTP->can_ssl;
|
|
||||||
-{
|
|
||||||
-no warnings 'once';
|
|
||||||
-plan skip_all => "no verified SSL connection to $host:465 - $@" if ! eval {
|
|
||||||
- IO::Socket::SSL->new("$host:465")
|
|
||||||
- || die($IO::Socket::SSL::SSL_ERROR||$!);
|
|
||||||
-};
|
|
||||||
-}
|
|
||||||
-
|
|
||||||
-plan tests => 2;
|
|
||||||
-
|
|
||||||
-SKIP: {
|
|
||||||
- diag( "connect inet to $host:25" );
|
|
||||||
- skip "no inet connect to $host:25",1 if ! IO::Socket::INET->new("$host:25");
|
|
||||||
- my $smtp = Net::SMTP->new($host, Debug => $debug)
|
|
||||||
- or skip "normal SMTP failed: $@",1;
|
|
||||||
- skip "no STARTTLS support",1 if $smtp->message !~/STARTTLS/;
|
|
||||||
-
|
|
||||||
- if (!$smtp->starttls) {
|
|
||||||
- fail("starttls failed: ".$smtp->code." $@")
|
|
||||||
- } else {
|
|
||||||
- # we now should have access to SSL stuff
|
|
||||||
- my $cipher = eval { $smtp->get_cipher };
|
|
||||||
- if (!$cipher) {
|
|
||||||
- fail("after starttls: not an SSL object");
|
|
||||||
- } elsif ( $smtp->quit ) {
|
|
||||||
- pass("starttls + quit ok, cipher=$cipher");
|
|
||||||
- } else {
|
|
||||||
- fail("quit after starttls failed: ".$smtp->code);
|
|
||||||
- }
|
|
||||||
- }
|
|
||||||
-}
|
|
||||||
-
|
|
||||||
-
|
|
||||||
-my $smtp = Net::SMTP->new($host, SSL => 1, Debug => $debug);
|
|
||||||
-# we now should have access to SSL stuff
|
|
||||||
-my $cipher = eval { $smtp->get_cipher };
|
|
||||||
-if (!$cipher) {
|
|
||||||
- fail("after ssl connect: not an SSL object");
|
|
||||||
-} elsif ( $smtp->quit ) {
|
|
||||||
- pass("ssl connect ok, cipher=$cipher");
|
|
||||||
-} else {
|
|
||||||
- fail("quit after direct ssl failed: ".$smtp->code);
|
|
||||||
-}
|
|
||||||
diff --git a/t/pod.t b/t/pod.t
|
|
||||||
deleted file mode 100644
|
|
||||||
index e31ecf3..0000000
|
|
||||||
--- a/t/pod.t
|
|
||||||
+++ /dev/null
|
|
||||||
@@ -1,51 +0,0 @@
|
|
||||||
-#!perl
|
|
||||||
-#===============================================================================
|
|
||||||
-#
|
|
||||||
-# t/pod.t
|
|
||||||
-#
|
|
||||||
-# DESCRIPTION
|
|
||||||
-# Test script to check POD.
|
|
||||||
-#
|
|
||||||
-# COPYRIGHT
|
|
||||||
-# Copyright (C) 2014 Steve Hay. All rights reserved.
|
|
||||||
-#
|
|
||||||
-# LICENCE
|
|
||||||
-# This script is free software; you can redistribute it and/or modify it under
|
|
||||||
-# the same terms as Perl itself, i.e. under the terms of either the GNU
|
|
||||||
-# General Public License or the Artistic License, as specified in the LICENCE
|
|
||||||
-# file.
|
|
||||||
-#
|
|
||||||
-#===============================================================================
|
|
||||||
-
|
|
||||||
-use 5.008001;
|
|
||||||
-
|
|
||||||
-use strict;
|
|
||||||
-use warnings;
|
|
||||||
-
|
|
||||||
-use Test::More;
|
|
||||||
-
|
|
||||||
-#===============================================================================
|
|
||||||
-# MAIN PROGRAM
|
|
||||||
-#===============================================================================
|
|
||||||
-
|
|
||||||
-MAIN: {
|
|
||||||
- plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING};
|
|
||||||
-
|
|
||||||
- my $ok = eval {
|
|
||||||
- require Test::Pod;
|
|
||||||
- Test::Pod->import();
|
|
||||||
- 1;
|
|
||||||
- };
|
|
||||||
-
|
|
||||||
- if (not $ok) {
|
|
||||||
- plan skip_all => 'Test::Pod required to test POD';
|
|
||||||
- }
|
|
||||||
- elsif ($Test::Pod::VERSION < 1.00) {
|
|
||||||
- plan skip_all => 'Test::Pod 1.00 or higher required to test POD';
|
|
||||||
- }
|
|
||||||
- else {
|
|
||||||
- all_pod_files_ok();
|
|
||||||
- }
|
|
||||||
-}
|
|
||||||
-
|
|
||||||
-#===============================================================================
|
|
||||||
diff --git a/t/pod_coverage.t b/t/pod_coverage.t
|
|
||||||
deleted file mode 100644
|
|
||||||
index d09c04e..0000000
|
|
||||||
--- a/t/pod_coverage.t
|
|
||||||
+++ /dev/null
|
|
||||||
@@ -1,85 +0,0 @@
|
|
||||||
-#!perl
|
|
||||||
-#===============================================================================
|
|
||||||
-#
|
|
||||||
-# t/pod_coverage.t
|
|
||||||
-#
|
|
||||||
-# DESCRIPTION
|
|
||||||
-# Test script to check POD coverage.
|
|
||||||
-#
|
|
||||||
-# COPYRIGHT
|
|
||||||
-# Copyright (C) 2014, 2015, 2020 Steve Hay. All rights reserved.
|
|
||||||
-#
|
|
||||||
-# LICENCE
|
|
||||||
-# This script is free software; you can redistribute it and/or modify it under
|
|
||||||
-# the same terms as Perl itself, i.e. under the terms of either the GNU
|
|
||||||
-# General Public License or the Artistic License, as specified in the LICENCE
|
|
||||||
-# file.
|
|
||||||
-#
|
|
||||||
-#===============================================================================
|
|
||||||
-
|
|
||||||
-use 5.008001;
|
|
||||||
-
|
|
||||||
-use strict;
|
|
||||||
-use warnings;
|
|
||||||
-
|
|
||||||
-use Test::More;
|
|
||||||
-
|
|
||||||
-#===============================================================================
|
|
||||||
-# MAIN PROGRAM
|
|
||||||
-#===============================================================================
|
|
||||||
-
|
|
||||||
-MAIN: {
|
|
||||||
- plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING};
|
|
||||||
-
|
|
||||||
- my $ok = eval {
|
|
||||||
- require Test::Pod::Coverage;
|
|
||||||
- Test::Pod::Coverage->import();
|
|
||||||
- 1;
|
|
||||||
- };
|
|
||||||
-
|
|
||||||
- if (not $ok) {
|
|
||||||
- plan skip_all => 'Test::Pod::Coverage required to test POD coverage';
|
|
||||||
- }
|
|
||||||
- elsif ($Test::Pod::Coverage::VERSION < 0.08) {
|
|
||||||
- plan skip_all => 'Test::Pod::Coverage 0.08 or higher required to test POD coverage';
|
|
||||||
- }
|
|
||||||
- elsif (!eval { require Socket }) {
|
|
||||||
- plan skip_all => 'no Socket';
|
|
||||||
- }
|
|
||||||
- elsif (ord('A') == 193 && !eval { require Convert::EBCDIC }) {
|
|
||||||
- plan skip_all => 'EBCDIC but no Convert::EBCDIC';
|
|
||||||
- }
|
|
||||||
- else {
|
|
||||||
- plan tests => 12;
|
|
||||||
- my $params = { coverage_class => qw(Pod::Coverage::CountParents) };
|
|
||||||
- pod_coverage_ok('Net::Cmd', {
|
|
||||||
- %$params,
|
|
||||||
- also_private => [qw(toascii toebcdic set_status)]
|
|
||||||
- });
|
|
||||||
- pod_coverage_ok('Net::Config', {
|
|
||||||
- %$params,
|
|
||||||
- also_private => [qw(is_external)]
|
|
||||||
- });
|
|
||||||
- pod_coverage_ok('Net::Domain', $params);
|
|
||||||
- pod_coverage_ok('Net::FTP', {
|
|
||||||
- %$params,
|
|
||||||
- also_private => [qw(authorise lsl ebcdic byte cmd)]
|
|
||||||
- });
|
|
||||||
- pod_coverage_ok('Net::Netrc', $params);
|
|
||||||
- pod_coverage_ok('Net::NNTP', $params);
|
|
||||||
- pod_coverage_ok('Net::POP3', $params);
|
|
||||||
- pod_coverage_ok('Net::SMTP', {
|
|
||||||
- %$params,
|
|
||||||
- also_private => [qw(datafh supports)]
|
|
||||||
- });
|
|
||||||
- pod_coverage_ok('Net::Time', $params);
|
|
||||||
- pod_coverage_ok('Net::FTP::A', $params);
|
|
||||||
- pod_coverage_ok('Net::FTP::dataconn', {
|
|
||||||
- %$params,
|
|
||||||
- also_private => [qw(can_read can_write cmd reading)]
|
|
||||||
- });
|
|
||||||
- pod_coverage_ok('Net::FTP::I', $params);
|
|
||||||
- }
|
|
||||||
-}
|
|
||||||
-
|
|
||||||
-#===============================================================================
|
|
||||||
--
|
|
||||||
2.34.3
|
|
||||||
|
|
||||||
@ -1,4 +1,4 @@
|
|||||||
%global base_version 3.13
|
%global base_version 3.15
|
||||||
|
|
||||||
# Run optional test
|
# Run optional test
|
||||||
%if ! (0%{?rhel})
|
%if ! (0%{?rhel})
|
||||||
@ -12,8 +12,8 @@
|
|||||||
%bcond_without perl_libnet_enables_ssl
|
%bcond_without perl_libnet_enables_ssl
|
||||||
|
|
||||||
Name: perl-libnet
|
Name: perl-libnet
|
||||||
Version: 3.14
|
Version: 3.15
|
||||||
Release: 491%{?dist}
|
Release: 1%{?dist}
|
||||||
Summary: Perl clients for various network protocols
|
Summary: Perl clients for various network protocols
|
||||||
License: GPL-1.0-or-later OR Artistic-1.0-Perl
|
License: GPL-1.0-or-later OR Artistic-1.0-Perl
|
||||||
URL: https://metacpan.org/release/libnet
|
URL: https://metacpan.org/release/libnet
|
||||||
@ -22,8 +22,6 @@ Source0: https://cpan.metacpan.org/authors/id/S/SH/SHAY/libnet-%{base_ver
|
|||||||
Patch0: libnet-3.09-Normalize-Changes-encoding.patch
|
Patch0: libnet-3.09-Normalize-Changes-encoding.patch
|
||||||
# Do not create Net/libnet.cfg, bug #1238689
|
# Do not create Net/libnet.cfg, bug #1238689
|
||||||
Patch1: libnet-3.08-Do-not-create-Net-libnet.cfg.patch
|
Patch1: libnet-3.08-Do-not-create-Net-libnet.cfg.patch
|
||||||
# Unbundled from perl 5.35.11
|
|
||||||
Patch2: libnet-3.13-Upgrade-to-3.14.patch
|
|
||||||
BuildArch: noarch
|
BuildArch: noarch
|
||||||
BuildRequires: coreutils
|
BuildRequires: coreutils
|
||||||
BuildRequires: make
|
BuildRequires: make
|
||||||
@ -105,7 +103,6 @@ protocols used in the internet community.
|
|||||||
%setup -q -n libnet-%{base_version}
|
%setup -q -n libnet-%{base_version}
|
||||||
%patch0 -p1
|
%patch0 -p1
|
||||||
%patch1 -p1
|
%patch1 -p1
|
||||||
%patch2 -p1
|
|
||||||
|
|
||||||
%build
|
%build
|
||||||
perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1 </dev/null
|
perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1 </dev/null
|
||||||
@ -125,6 +122,9 @@ make test
|
|||||||
%{_mandir}/man3/*
|
%{_mandir}/man3/*
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Tue Mar 21 2023 Jitka Plesnikova <jplesnik@redhat.com> - 3.15-1
|
||||||
|
- 3.15 bump
|
||||||
|
|
||||||
* Fri Jan 20 2023 Fedora Release Engineering <releng@fedoraproject.org> - 3.14-491
|
* Fri Jan 20 2023 Fedora Release Engineering <releng@fedoraproject.org> - 3.14-491
|
||||||
- Rebuilt for https://fedoraproject.org/wiki/Fedora_38_Mass_Rebuild
|
- Rebuilt for https://fedoraproject.org/wiki/Fedora_38_Mass_Rebuild
|
||||||
|
|
||||||
|
|||||||
2
sources
2
sources
@ -1 +1 @@
|
|||||||
SHA512 (libnet-3.13.tar.gz) = 80d670a71f8793a4ca4bf781d800ee52ca3985795033be64e6ed12520d46da4813325d7534969c12125333d4f85e47fa497ea8687558f969b8eb3e7bfd3c1540
|
SHA512 (libnet-3.15.tar.gz) = 8ae71a32e350b73d97eed87f51507e7c88fb37501b66a5c118cee894de664e6728444950dc32a3ca4b2c4e47974b8e90b5747cceff266fda46575fd995bedcf6
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user