# We're being run from the top level. Try to change directory, and set
# things up correctly. This is a 90% solution, but for hand-running tests,
# that's good enough
- if ($0 =~ s!(ext[\\/][^\\/]+)[\//](.*\.t)$!$2!) {
+ if ($0 =~ s!^((?:ext|dist|cpan)[\\/][^\\/]+)[\//](.*\.t)$!$2!) {
# Looks like a test in ext.
chdir $1 or die "Can't chdir '$1': $!";
new_inc(@up_2_t);
- $^X =~ s!^\./!../../perl!;
- $^X =~ s!^\.\\!..\\..\\perl!;
+ set_opt(@up_2_t);
+ $^X =~ s!^\./!../../!;
+ $^X =~ s!^\.\\!..\\..\\!;
} else {
chdir 't' or die "Can't chdir 't': $!";
new_inc('../lib');