1#!./perl 2 3$dummy = defined $&; # Now we have it... 4for $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} 10die "Cannot find op/subst.t or t/op/subst.t\n"; 11 12