Call tests with executable name.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 19270b6f62f95d545587cb48d519a5327053a80a..a401c297942c19de850a2e91158eba1ba5201b51 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-06  Steven Schubiger  <stsc@members.fsf.org>
+
+       * run-px: When executing test scripts, invoke them with the
+       current perl executable name as determined by env.
+
 2008-11-06  Micah Cowan  <micah@cowan.name>
 
        * run-px: Use strict (thanks Steven Schubiger!).

diff --git a/tests/run-px b/tests/run-px
index 05f6eda65de2d7555fcd9bef6f41738cf5bd9e70..60b848d100fd9c9356284bd581ea415097ddaa65 100755 (executable)
--- a/tests/run-px
+++ b/tests/run-px
@@ -52,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, $?;
 }