diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-06-29 17:37:14 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-06-29 17:37:14 -0500 |
commit | c8c8922e86d0371cb2ce501a635c5d8bfd3bc240 (patch) | |
tree | e8159320f25c95332cb216783750e42f4060be05 /lib | |
parent | 1386206cb27894af54557efc1ec5456d0a922adc (diff) | |
download | io-socket-telnet-halfduplex-c8c8922e86d0371cb2ce501a635c5d8bfd3bc240.tar.gz io-socket-telnet-halfduplex-c8c8922e86d0371cb2ce501a635c5d8bfd3bc240.zip |
make the negotiation callback private
Diffstat (limited to 'lib')
-rw-r--r-- | lib/IO/Socket/Telnet/HalfDuplex.pm | 4 |
1 files 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; |