Dual life for Exporter

From: "Adriano Ferreira" <a.r.ferreira@gmail.com>
Message-ID: <73ddeb6c0609061240g34f60d9fodaf7727575778d8e@mail.gmail.com>

p4raw-id: //depot/perl@28795

diff --git a/lib/Exporter.t b/lib/Exporter.t
index c90a460..2fbfcfa 100644 (file)
--- 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.