one of the Net::Ping time-dependent tests fails sporadically

[perl5.git] / lib / strict.t

diff --git a/lib/strict.t b/lib/strict.t
index 37bb4b3..b153771 100644 (file)
--- a/lib/strict.t
+++ b/lib/strict.t
@@ -74,7 +74,7 @@ for (@prgs){
                      `perl -I../lib $switch $tmpfile 2>&1` :
                   $^O eq 'MacOS' ?
                      `$^X -I::lib -MMac::err=unix $switch $tmpfile` :
-                  `./perl $switch $tmpfile 2>&1`;
+                  `$^X $switch $tmpfile 2>&1`;
     my $status = $?;
     $results =~ s/\n+$//;
     # allow expected output to be written as if $prog is on STDIN