Call tests with executable name.

[wget] / tests / run-px

diff --git a/tests/run-px b/tests/run-px
index 50db5819f7b4792e7d413dbce855998af24284b9..60b848d100fd9c9356284bd581ea415097ddaa65 100755 (executable)
--- a/tests/run-px
+++ b/tests/run-px
@@ -1,5 +1,6 @@
 #!/usr/bin/env perl
 use warnings;
+use strict;
 
 die "Please specify the top source directory.\n" if (!@ARGV);
 my $top_srcdir = shift @ARGV;
@@ -51,7 +52,7 @@ my @results;
 
 for my $test (@tests) {
     print "Running $test\n\n";
-    system("$top_srcdir/tests/$test");
+    system("$^X $top_srcdir/tests/$test");
     push @results, $?;
 }