summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--t/001-ping.t3
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');