Update libnet to version 3.02
authorSteve Hay <steve.m.hay@googlemail.com>
Fri, 10 Oct 2014 23:20:32 +0000 (00:20 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Fri, 10 Oct 2014 23:46:00 +0000 (00:46 +0100)
This skips the interactive prompt() from the Makefile.PL reported by bulk88
(and removes the t/external/*.t tests which will not be run as a result).

20 files changed:
MANIFEST
Porting/Maintainers.pl
cpan/libnet/Makefile.PL
cpan/libnet/lib/Net/Cmd.pm
cpan/libnet/lib/Net/Config.pm
cpan/libnet/lib/Net/Domain.pm
cpan/libnet/lib/Net/FTP.pm
cpan/libnet/lib/Net/FTP/A.pm
cpan/libnet/lib/Net/FTP/E.pm
cpan/libnet/lib/Net/FTP/I.pm
cpan/libnet/lib/Net/FTP/L.pm
cpan/libnet/lib/Net/FTP/dataconn.pm
cpan/libnet/lib/Net/NNTP.pm
cpan/libnet/lib/Net/Netrc.pm
cpan/libnet/lib/Net/POP3.pm
cpan/libnet/lib/Net/SMTP.pm
cpan/libnet/lib/Net/Time.pm
cpan/libnet/t/external/ftp-ssl.t [deleted file]
cpan/libnet/t/external/pop3-ssl.t [deleted file]
cpan/libnet/t/external/smtp-ssl.t [deleted file]

index 25705c1..917f2f9 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1437,9 +1437,6 @@ cpan/libnet/lib/Net/Time.pm
 cpan/libnet/Makefile.PL
 cpan/libnet/t/config.t         libnet
 cpan/libnet/t/datasend.t       libnet
-cpan/libnet/t/external/ftp-ssl.t
-cpan/libnet/t/external/pop3-ssl.t
-cpan/libnet/t/external/smtp-ssl.t
 cpan/libnet/t/ftp.t            libnet
 cpan/libnet/t/hostname.t       libnet
 cpan/libnet/t/libnet_t.pl      libnet
index 7ecfc68..03c2744 100755 (executable)
@@ -690,7 +690,7 @@ use File::Glob qw(:case);
     },
 
     'libnet' => {
-        'DISTRIBUTION' => 'SHAY/libnet-3.01.tar.gz',
+        'DISTRIBUTION' => 'SHAY/libnet-3.02.tar.gz',
         'FILES'        => q[cpan/libnet],
         'EXCLUDED'     => [
             qw( Configure
@@ -699,6 +699,7 @@ use File::Glob qw(:case);
                 t/pod_coverage.t
                 ),
             qr(^demos/),
+            qr(^t/external/),
         ],
     },
 
index 30bbd73..e6ac185 100644 (file)
@@ -47,7 +47,7 @@ MAIN: {
     $prereq_pms{'Convert::EBCDIC'} = '0.06' if $^O eq 'os390';
 
     my $xt = 'n';
-    if (not running_under_cpan()) {
+    if (not running_under_cpan() and not $ENV{PERL_CORE}) {
         $xt = prompt("Should I do external tests?\n" .
                      "These tests will fail if there is no internet" .
                      " connection or if a firewall\n" .
@@ -64,7 +64,7 @@ MAIN: {
         ABSTRACT => 'Collection of network protocol modules',
         AUTHOR   => 'Graham Barr <gbarr@pobox.com>, Steve Hay <shay@cpan.org>',
         LICENSE  => 'perl_5',
-        VERSION  => '3.01',
+        VERSION  => '3.02',
 
         META_MERGE => {
             'meta-spec' => {
index c71a789..486c520 100644 (file)
@@ -41,7 +41,7 @@ BEGIN {
   }
 }
 
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 our @ISA     = qw(Exporter);
 our @EXPORT  = qw(CMD_INFO CMD_OK CMD_MORE CMD_REJECT CMD_ERROR CMD_PENDING);
 
index cdb5956..ec5e759 100644 (file)
@@ -19,7 +19,7 @@ use Socket qw(inet_aton inet_ntoa);
 
 our @EXPORT  = qw(%NetConfig);
 our @ISA     = qw(Net::LocalCfg Exporter);
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 our($CONFIGURE, $LIBNET_CFG);
 
index df76e88..75da678 100644 (file)
@@ -20,7 +20,7 @@ use Net::Config;
 
 our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw(hostname hostdomain hostfqdn domainname);
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 my ($host, $domain, $fqdn) = (undef, undef, undef);
 
index 39e1e74..6afafaa 100644 (file)
@@ -24,7 +24,7 @@ use Net::Config;
 use Socket 1.3;
 use Time::Local;
 
-our $VERSION = '3.01';
+our $VERSION = '3.02';
 
 our $IOCLASS;
 BEGIN {
index 02574ee..559ff7b 100644 (file)
@@ -13,7 +13,7 @@ use Carp;
 use Net::FTP::dataconn;
 
 our @ISA     = qw(Net::FTP::dataconn);
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 our $buf;
 
index accfa08..65097b2 100644 (file)
@@ -8,6 +8,6 @@ use warnings;
 use Net::FTP::I;
 
 our @ISA = qw(Net::FTP::I);
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 1;
index 14be581..08e84e1 100644 (file)
@@ -13,7 +13,7 @@ use Carp;
 use Net::FTP::dataconn;
 
 our @ISA     = qw(Net::FTP::dataconn);
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 our $buf;
 
index 6c1b70e..c64769e 100644 (file)
@@ -8,6 +8,6 @@ use warnings;
 use Net::FTP::I;
 
 our @ISA = qw(Net::FTP::I);
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 1;
index bcb7df6..c2105b3 100644 (file)
@@ -13,7 +13,7 @@ use Carp;
 use Errno;
 use Net::Cmd;
 
-our $VERSION = '3.01';
+our $VERSION = '3.02';
 
 $Net::FTP::IOCLASS or die "please load Net::FTP before Net::FTP::dataconn";
 our @ISA = $Net::FTP::IOCLASS;
index 4df5b97..f68268e 100644 (file)
@@ -20,7 +20,7 @@ use Net::Cmd;
 use Net::Config;
 use Time::Local;
 
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 # Code for detecting if we can use SSL
 my $ssl_class = eval {
index 11fef3b..f70fc55 100644 (file)
@@ -17,7 +17,7 @@ use warnings;
 use Carp;
 use FileHandle;
 
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 our $TESTING;
 
index d568d94..1a52752 100644 (file)
@@ -19,7 +19,7 @@ use IO::Socket;
 use Net::Cmd;
 use Net::Config;
 
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 # Code for detecting if we can use SSL
 my $ssl_class = eval {
index 841373e..feeb1da 100644 (file)
@@ -20,7 +20,7 @@ use Net::Cmd;
 use Net::Config;
 use Socket 1.3;
 
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 # Code for detecting if we can use SSL
 my $ssl_class = eval {
@@ -193,8 +193,8 @@ sub auth {
         if $self->debug;
       $mechanisms =~ s/\b\Q$failed_mechanism\E\b//;
       last unless $mechanisms =~ /\S/;
+      $sasl->mechanism($mechanisms);
     }
-    $sasl->mechanism($mechanisms);
     
     # We should probably allow the user to pass the host, but I don't
     # currently know and SASL mechanisms that are used by smtp that need it
index 54ca52a..0ba369d 100644 (file)
@@ -23,7 +23,7 @@ use Net::Config;
 our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw(inet_time inet_daytime);
 
-our $VERSION = "3.01";
+our $VERSION = "3.02";
 
 our $TIMEOUT = 120;
 
diff --git a/cpan/libnet/t/external/ftp-ssl.t b/cpan/libnet/t/external/ftp-ssl.t
deleted file mode 100644 (file)
index 3036630..0000000
+++ /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/cpan/libnet/t/external/pop3-ssl.t b/cpan/libnet/t/external/pop3-ssl.t
deleted file mode 100644 (file)
index 554a8db..0000000
+++ /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/cpan/libnet/t/external/smtp-ssl.t b/cpan/libnet/t/external/smtp-ssl.t
deleted file mode 100644 (file)
index ccacbae..0000000
+++ /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);
-}