diff --git a/.gitignore b/.gitignore index 590576e..aa47dcd 100644 --- a/.gitignore +++ b/.gitignore @@ -8,3 +8,4 @@ /libnet-3.11_repackaged.tar.gz /libnet-3.12.tar.gz /libnet-3.13.tar.gz +/libnet-3.15.tar.gz diff --git a/libnet-3.09-Normalize-Changes-encoding.patch b/libnet-3.09-Normalize-Changes-encoding.patch index a7b2441..8e45ae6 100644 --- a/libnet-3.09-Normalize-Changes-encoding.patch +++ b/libnet-3.09-Normalize-Changes-encoding.patch @@ -15,7 +15,7 @@ diff --git a/Changes b/Changes index 831e061..27fda24 100644 --- a/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 diff --git a/libnet-3.13-Upgrade-to-3.14.patch b/libnet-3.13-Upgrade-to-3.14.patch deleted file mode 100644 index 1e9bde1..0000000 --- a/libnet-3.13-Upgrade-to-3.14.patch +++ /dev/null @@ -1,911 +0,0 @@ -From b8cbf3b3789baeba499d2aa32f9dc56d50ab141b Mon Sep 17 00:00:00 2001 -From: Jitka Plesnikova -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 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 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 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 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 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 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 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 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 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 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 ; --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 - diff --git a/perl-libnet.spec b/perl-libnet.spec index 8f1a504..4c0d7cb 100644 --- a/perl-libnet.spec +++ b/perl-libnet.spec @@ -1,4 +1,4 @@ -%global base_version 3.13 +%global base_version 3.15 # Run optional test %if ! (0%{?rhel}) @@ -12,8 +12,8 @@ %bcond_without perl_libnet_enables_ssl Name: perl-libnet -Version: 3.14 -Release: 491%{?dist} +Version: 3.15 +Release: 1%{?dist} Summary: Perl clients for various network protocols License: GPL-1.0-or-later OR Artistic-1.0-Perl 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 # Do not create Net/libnet.cfg, bug #1238689 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 BuildRequires: coreutils BuildRequires: make @@ -105,7 +103,6 @@ protocols used in the internet community. %setup -q -n libnet-%{base_version} %patch0 -p1 %patch1 -p1 -%patch2 -p1 %build perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1 - 3.15-1 +- 3.15 bump + * Fri Jan 20 2023 Fedora Release Engineering - 3.14-491 - Rebuilt for https://fedoraproject.org/wiki/Fedora_38_Mass_Rebuild diff --git a/sources b/sources index dd3e088..65a0256 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -SHA512 (libnet-3.13.tar.gz) = 80d670a71f8793a4ca4bf781d800ee52ca3985795033be64e6ed12520d46da4813325d7534969c12125333d4f85e47fa497ea8687558f969b8eb3e7bfd3c1540 +SHA512 (libnet-3.15.tar.gz) = 8ae71a32e350b73d97eed87f51507e7c88fb37501b66a5c118cee894de664e6728444950dc32a3ca4b2c4e47974b8e90b5747cceff266fda46575fd995bedcf6