Set PERL_CORE environment var

Message-ID: <20011017040413.C25550@blackrider>

p4raw-id: //depot/perl@12471

2 files changed, 8 insertions, 0 deletions

diff --git a/t/TEST b/t/TEST
index 57ac836e1f..98fc8dcd17 100755
--- a/t/TEST
+++ b/t/TEST
@@ -5,6 +5,10 @@
 
 $| = 1;
 
+# Let tests know they're running in the perl core.  Useful for modules
+# which live dual lives on CPAN.
+$ENV{PERL_CORE} = 1;
+
 # Cheesy version of Getopt::Std.  Maybe we should replace it with that.
 if ($#ARGV >= 0) {
     foreach my $idx (0..$#ARGV) {
diff --git a/t/harness b/t/harness
index d5ddb51b9f..36ee4ce6da 100644
--- 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