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