From: Adriano Ferreira <a.r.ferreira@gmail.com>
Date: Wed, 6 Sep 2006 16:40:28 +0000 (-0300)
Subject: Dual life for Exporter
X-Git-Tag: accepted/trunk/20130322.191538~17077
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2ee1d506a4196713f289150bf6032f84ac5bb5fc;p=platform%2Fupstream%2Fperl.git

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
--- 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.