t/op/subst_wamp.t

   1 #!./perl
   2
   3 $dummy = defined $&;            # Now we have it...
   4 for $file ('op/subst.t', 't/op/subst.t', ':op:subst.t') {
   5   if (-r $file) {
   6     do ($^O eq 'MacOS' ? $file : "./$file");
   7     exit;
   8   }
   9 }
  10 die "Cannot find op/subst.t or t/op/subst.t\n";
  11