diff options
-rwxr-xr-x | tests/LightyTest.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/tests/LightyTest.pm b/tests/LightyTest.pm index 97e138e5..cd3fae48 100755 --- a/tests/LightyTest.pm +++ b/tests/LightyTest.pm @@ -40,15 +40,16 @@ sub new { sub listening_on { my $self = shift; - my $prog = shift; + my $port = shift; - open F, "netstat -an | grep :1026|" or return 0; - - my $foo = <F>; + my $remote = + IO::Socket::INET->new(Proto => "tcp", + PeerAddr => "127.0.0.1", + PeerPort => $port) or return 0; - close F; + close $remote; - return (defined $foo ? 1 : 0); + return 1; } sub stop_proc { |