diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-09-26 21:21:30 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-09-26 21:21:30 +0100 |
| commit | fe0fb48b9e1689ad6e74e0516047f20e411bc3b4 (patch) | |
| tree | 2eccb751888cc5e8873327edcd69cd217040ac3a /TestInit.pm | |
| parent | b3d3f340c96cb99839ea33b8b7e9dd55bdbdfeab (diff) | |
| download | perl-fe0fb48b9e1689ad6e74e0516047f20e411bc3b4.tar.gz | |
TestInit at the command line should treat tests in cpan/ the same as in ext/
Diffstat (limited to 'TestInit.pm')
| -rw-r--r-- | TestInit.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TestInit.pm b/TestInit.pm index 73bd8cf1db..7eec5b4710 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|cpan)[\\/][^\\/]+)[\//](.*\.t)$!$2!) { # Looks like a test in ext. chdir $1 or die "Can't chdir '$1': $!"; new_inc(@up_2_t); |