Re: [ID 20020109.002] /(?m:...\s*$)/ is not backtracking properly

[p5sagit/p5-mst-13.2.git] / t / harness

diff --git a/t/harness b/t/harness
index d5ddb51..36ee4ce 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -14,6 +14,10 @@ use Test::Harness;
 $Test::Harness::switches = "";    # Too much noise otherwise
 $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
 
+# Let tests know they're running in the perl core.  Useful for modules
+# which live dual lives on CPAN.
+$ENV{PERL_CORE} = 1;
+
 #fudge DATA for now.
 %datahandle = qw(
                lib/bigint.t            1