diff options
Diffstat (limited to 'lib/IO/Socket/Telnet/HalfDuplex.pm')
-rw-r--r-- | lib/IO/Socket/Telnet/HalfDuplex.pm | 2 |
1 files changed, 1 insertions, 1 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); |