diff --git a/lib/Test/TA.pm b/lib/Test/TA.pm
index 5eac3976faccbd0e8a5a347110ec0809c19d89e9..a6c9c77b5a548e47de4d6a0da89f2ae6f3047bed 100644
--- a/lib/Test/TA.pm
+++ b/lib/Test/TA.pm
@@ -38,7 +38,7 @@ sub is_testhost_available () {
         $searchpath->visit(
             sub {
                 my ($path) = @_;
-                $prog  = $path if $path =~ m/ta-tool.pl/;
+                $prog  = $path if $path =~ m/ta-tool\.pl$/;
             },
             { recurse => 1}
         );