diff options
Diffstat (limited to 't/001-ping.t')
-rw-r--r-- | t/001-ping.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/001-ping.t b/t/001-ping.t index de4db7d..b6c1a08 100644 --- a/t/001-ping.t +++ b/t/001-ping.t @@ -59,7 +59,8 @@ my $client = IO::Socket::Telnet::HalfDuplex->new( $client->telnet_simple_callback(sub { my $self = shift; my ($msg) = @_; - $pong++ if $msg =~ /99$/; + my $ping = ord($PONG); + $pong++ if $msg =~ /$ping$/; return ''; }); $client->send('blah'); |