From 68dca4c9d58c798b3df17e8e638b7d9059fe6b61 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 29 Jun 2009 21:57:47 -0500
Subject: ping_option -> PingOption in constructor args

---
 lib/IO/Socket/Telnet/HalfDuplex.pm | 2 +-
 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;
-- 
cgit v1.2.3-54-g00ecf