diff options
author | Adriano Ferreira <a.r.ferreira@gmail.com> | 2006-09-06 13:40:28 -0300 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-07 09:21:56 +0000 |
commit | 2ee1d506a4196713f289150bf6032f84ac5bb5fc (patch) | |
tree | fdb16aed26d935793be961bd0039985a3d1d7330 | |
parent | eb0f98c9231fa500029e4f3531ee246d1650a240 (diff) | |
download | perl-2ee1d506a4196713f289150bf6032f84ac5bb5fc.tar.gz |
Dual life for Exporter
From: "Adriano Ferreira" <a.r.ferreira@gmail.com>
Message-ID: <73ddeb6c0609061240g34f60d9fodaf7727575778d8e@mail.gmail.com>
p4raw-id: //depot/perl@28795
-rw-r--r-- | lib/Exporter.t | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Exporter.t b/lib/Exporter.t index c90a4608d9..2fbfcfa43b 100644 --- a/lib/Exporter.t +++ b/lib/Exporter.t @@ -1,8 +1,10 @@ -#!./perl -w +#!perl -w BEGIN { - chdir 't' if -d 't'; - @INC = '../lib'; + if( $ENV{PERL_CORE} ) { + chdir 't' if -d 't'; + @INC = '../lib'; + } } # Can't use Test::Simple/More, they depend on Exporter. |