From c3712cb3c02bc081941c9525b0f9ec96c53d9a65 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 29 Jun 2009 04:35:56 -0500
Subject: rename constructor parameter to "ping_option"

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

diff --git a/lib/IO/Socket/Telnet/HalfDuplex.pm b/lib/IO/Socket/Telnet/HalfDuplex.pm
index 61ae4a6..f4fbe0c 100644
--- a/lib/IO/Socket/Telnet/HalfDuplex.pm
+++ b/lib/IO/Socket/Telnet/HalfDuplex.pm
@@ -4,9 +4,9 @@ use base 'IO::Socket::Telnet';
 sub new {
     my $class = shift;
     my %args = @_;
-    my $code = delete $args{code} || 99;
+    my $ping = delete $args{ping_option} || 99;
     my $self = $class->SUPER::new(@_);
-    ${*{$self}}{code} = $code;
+    ${*{$self}}{ping_option} = $ping;
     $self->IO::Socket::Telnet::telnet_simple_callback(\&telnet_negotiation);
     return $self;
 }
@@ -21,7 +21,7 @@ sub read {
     my $self = shift;
     my $buffer;
 
-    $self->do(chr(${*{$self}}{code}));
+    $self->do(chr(${*{$self}}{ping_option}));
     ${*{$self}}{got_pong} = 0;
 
     eval {
@@ -48,8 +48,8 @@ sub telnet_negotiation {
     my $option = shift;
 
     my $external_callback = ${*{$self}}{halfduplex_simple_cb};
-    my $code = ${*{$self}}{code};
-    if ($option =~ / $code$/) {
+    my $ping = ${*{$self}}{ping_option};
+    if ($option =~ / $ping$/) {
         ${*{$self}}{got_pong} = 1;
         return '' unless $external_callback;
         return $self->$external_callback($option);
-- 
cgit v1.2.3-54-g00ecf