Fix test added in change 23645 with an eval()

[p5sagit/p5-mst-13.2.git] / t / op / regexp_noamp.t

diff --git a/t/op/regexp_noamp.t b/t/op/regexp_noamp.t
index 088bd40..8a6dd28 100755 (executable)
--- a/t/op/regexp_noamp.t
+++ b/t/op/regexp_noamp.t
@@ -1,10 +1,10 @@
 #!./perl
 
 $skip_amp = 1;
-for $file ('op/regexp.t', 't/op/regexp.t') {
+for $file ('./op/regexp.t', './t/op/regexp.t', ':op:regexp.t') {
   if (-r $file) {
-    do "./$file";
+    do $file;
     exit;
   }
 }
-die "Cannot find op/regexp.t or t/op/regexp.t\n";
+die "Cannot find ./op/regexp.t or ./t/op/regexp.t\n";