Fix PAUSE indexing problem

Net::POP3::_SSLified and Net::SMTP::_SSLified are already used by
Net-SSLGlue.

3 files changed, 10 insertions, 9 deletions

diff --git a/Changes b/Changes
index 8f285be..1a4a4e6 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 libnet 1.29  -- TODO
 
-  * TODO
+  * Fix PAUSE indexing problem. Net::POP3::_SSLified and Net::SMTP::_SSLified
+    are already used by Net-SSLGlue.
 
 libnet 1.28  -- Wed Oct 08 2014
 
diff --git a/lib/Net/POP3.pm b/lib/Net/POP3.pm
index 772bf76..dff133f 100644
--- a/lib/Net/POP3.pm
+++ b/lib/Net/POP3.pm
@@ -19,7 +19,7 @@ use IO::Socket;
 use Net::Cmd;
 use Net::Config;
 
-our $VERSION = "2.32";
+our $VERSION = "2.33";
 
 # Code for detecting if we can use SSL
 my $ssl_class = eval {
@@ -85,7 +85,7 @@ sub new {
 
   ${*$obj}{'net_pop3_arg'} = \%arg;
   if ($arg{SSL}) {
-    Net::POP3::_SSLified->start_SSL($obj,
+    Net::POP3::SSL->start_SSL($obj,
       SSL_verifycn_name => $host,%arg
     ) or return;
   }
@@ -136,7 +136,7 @@ sub starttls {
   my $self = shift;
   $ssl_class or die $nossl_warn;
   $self->_STLS or return;
-  Net::POP3::_SSLified->start_SSL($self,
+  Net::POP3::SSL->start_SSL($self,
     %{ ${*$self}{'net_pop3_arg'} }, # (ssl) args given in new
     @_   # more (ssl) args
   ) or return;
@@ -570,7 +570,7 @@ sub banner {
 }
 
 {
-  package Net::POP3::_SSLified;
+  package Net::POP3::SSL;
   our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::POP3' );
   sub starttls { die "POP3 connection is already in SSL mode" }
   sub start_SSL {
diff --git a/lib/Net/SMTP.pm b/lib/Net/SMTP.pm
index 4e0c387..b8c6323 100644
--- a/lib/Net/SMTP.pm
+++ b/lib/Net/SMTP.pm
@@ -20,7 +20,7 @@ use Net::Cmd;
 use Net::Config;
 use Socket 1.3;
 
-our $VERSION = "2.35";
+our $VERSION = "2.36";
 
 # Code for detecting if we can use SSL
 my $ssl_class = eval {
@@ -87,7 +87,7 @@ sub new {
 
   ${*$obj}{'net_smtp_arg'} = \%arg;
   if ($arg{SSL}) {
-    Net::SMTP::_SSLified->start_SSL($obj,SSL_verifycn_name => $host,%arg)
+    Net::SMTP::SSL->start_SSL($obj,SSL_verifycn_name => $host,%arg)
       or return;
   }
 
@@ -254,7 +254,7 @@ sub starttls {
   my $self = shift;
   $ssl_class or die $nossl_warn;
   $self->_STARTTLS or return;
-  Net::SMTP::_SSLified->start_SSL($self,
+  Net::SMTP::SSL->start_SSL($self,
     %{ ${*$self}{'net_smtp_arg'} }, # (ssl) args given in new
     @_   # more (ssl) args
   ) or return;
@@ -603,7 +603,7 @@ sub _STARTTLS { shift->command("STARTTLS")->response() == CMD_OK }
 
 
 {
-  package Net::SMTP::_SSLified;
+  package Net::SMTP::SSL;
   our @ISA = ( $ssl_class ? ($ssl_class):(), 'Net::SMTP' );
   sub starttls { die "SMTP connection is already in SSL mode" }
   sub start_SSL {