From: Michael G. Schwern <schwern@pobox.com>
Date: Wed, 17 Oct 2001 04:04:13 +0000 (-0400)
Subject: Set PERL_CORE environment var
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=60e23f2ffd1cd9673f7e06415d666f29696b7d96;p=p5sagit%2Fp5-mst-13.2.git

Set PERL_CORE environment var
Message-ID: <20011017040413.C25550@blackrider>

p4raw-id: //depot/perl@12471
---

diff --git a/t/TEST b/t/TEST
index 57ac836..98fc8dc 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 d5ddb51..36ee4ce 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
diff --git a/vms/test.com b/vms/test.com
index ce98bff..6720dba 100644
--- a/vms/test.com
+++ b/vms/test.com
@@ -134,6 +134,10 @@ foreach $file (@exclist) { $skip{$file}++; }
 
 $| = 1;
 
+# Let tests know they're running in the perl core.  Useful for modules
+# which live dual lives on CPAN.
+$ENV{PERL_CORE} = 1;
+
 @ARGV = grep($_,@ARGV);  # remove empty elements due to "''p1'" syntax
 
 if (lc($ARGV[0]) eq '-v') {