rpms/perl-libnet
7
0
Fork 0
Code Issues Pull Requests Releases Activity
79a96dfd81
perl-libnet/libnet-3.13-Upgrade-to-3.14.patch

912 lines
26 KiB
Diff
Raw Normal View History

Upgrade to 3.14 as provided in perl-5.35.11
2022-05-12 07:56:39 +00:00
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
Reference in New Issue Copy Permalink