From c8c8922e86d0371cb2ce501a635c5d8bfd3bc240 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 29 Jun 2009 17:37:14 -0500
Subject: make the negotiation callback private

---
 lib/IO/Socket/Telnet/HalfDuplex.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/IO/Socket/Telnet/HalfDuplex.pm b/lib/IO/Socket/Telnet/HalfDuplex.pm
index 3dfb899..4df4668 100644
--- a/lib/IO/Socket/Telnet/HalfDuplex.pm
+++ b/lib/IO/Socket/Telnet/HalfDuplex.pm
@@ -9,7 +9,7 @@ sub new {
     my $ping = delete $args{ping_option} || 99;
     my $self = $class->SUPER::new(@_);
     ${*{$self}}{ping_option} = $ping;
-    $self->IO::Socket::Telnet::telnet_simple_callback(\&telnet_negotiation);
+    $self->IO::Socket::Telnet::telnet_simple_callback(\&_telnet_negotiation);
     return $self;
 }
 
@@ -45,7 +45,7 @@ sub read {
     return $buffer;
 }
 
-sub telnet_negotiation {
+sub _telnet_negotiation {
     my $self = shift;
     my $option = shift;
 
-- 
cgit v1.2.3