diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-06-29 21:57:47 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-06-29 21:57:47 -0500 |
commit | 68dca4c9d58c798b3df17e8e638b7d9059fe6b61 (patch) | |
tree | d80ebb081b000e8965c98bb9ef91954139d28653 | |
parent | 88d95e03e7b05c3aaffded98a5945e280309b010 (diff) | |
download | io-socket-telnet-halfduplex-68dca4c9d58c798b3df17e8e638b7d9059fe6b61.tar.gz io-socket-telnet-halfduplex-68dca4c9d58c798b3df17e8e638b7d9059fe6b61.zip |
ping_option -> PingOption in constructor args
-rw-r--r-- | lib/IO/Socket/Telnet/HalfDuplex.pm | 2 | ||||
-rw-r--r-- | t/003-different-pong.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/IO/Socket/Telnet/HalfDuplex.pm b/lib/IO/Socket/Telnet/HalfDuplex.pm index d585dad..588de37 100644 --- a/lib/IO/Socket/Telnet/HalfDuplex.pm +++ b/lib/IO/Socket/Telnet/HalfDuplex.pm @@ -25,7 +25,7 @@ IO::Socket::Telnet::HalfDuplex - more reliable telnet communication sub new { my $class = shift; my %args = @_; - my $ping = delete $args{ping_option} || 99; + my $ping = delete $args{PingOption} || 99; my $self = $class->SUPER::new(@_); ${*{$self}}{ping_option} = $ping; $self->IO::Socket::Telnet::telnet_simple_callback(\&_telnet_negotiation); diff --git a/t/003-different-pong.t b/t/003-different-pong.t index 7ff6ff5..79c4386 100644 --- a/t/003-different-pong.t +++ b/t/003-different-pong.t @@ -51,7 +51,7 @@ my $pong = 0; my $client = IO::Socket::Telnet::HalfDuplex->new( PeerAddr => '127.0.0.1', PeerPort => $localport, - ping_option => ord($PONG), + PingOption => ord($PONG), ); $client->telnet_simple_callback(sub { my $self = shift; |