X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=TestInit.pm;h=8513955ab73d4756d4f6da1a4dbbdf47d1165a5d;hb=9e5bbba0de25c01ae9355c7a97e237602a37e9f3;hp=73bd8cf1db627d3b2cc4e7eac21a5c2dce12a30e;hpb=25a883e141ef5022e3a9afb466f7bc525d011947;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/TestInit.pm b/TestInit.pm
index 73bd8cf..8513955 100644
--- a/TestInit.pm
+++ b/TestInit.pm
@@ -59,7 +59,7 @@ if (-f 't/TEST' && -f 'MANIFEST' && -d 'lib' && -d 'ext') {
     # 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);