Fix a (back)slash bug in a regex, added with the regex itself.

[perl5.git] / TestInit.pm

diff --git a/TestInit.pm b/TestInit.pm
index e7609da..814c99c 100644 (file)
--- a/TestInit.pm
+++ b/TestInit.pm
@@ -60,7 +60,7 @@ sub import {
            # 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|dist|cpan)[\\/][^\\/]+)[\//](.*\.t)$!$2!) {
+           if ($0 =~ s!^((?:ext|dist|cpan)[\\/][^\\/]+)[\\/](.*\.t)$!$2!) {
                # Looks like a test in ext.
                $chdir = $1;
                @INC = @up_2_t;