Dual life for Exporter
authorAdriano Ferreira <a.r.ferreira@gmail.com>
Wed, 6 Sep 2006 16:40:28 +0000 (13:40 -0300)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 7 Sep 2006 09:21:56 +0000 (09:21 +0000)
From: "Adriano Ferreira" <a.r.ferreira@gmail.com>
Message-ID: <73ddeb6c0609061240g34f60d9fodaf7727575778d8e@mail.gmail.com>

p4raw-id: //depot/perl@28795

lib/Exporter.t

index c90a460..2fbfcfa 100644 (file)
@@ -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.