Upgrade Safe.pm to 2.09 after CPAN backport.

[p5sagit/p5-mst-13.2.git] / ext / Safe / safe1.t

diff --git a/ext/Safe/safe1.t b/ext/Safe/safe1.t
index 27993d9..6a3b908 100755 (executable)
--- a/ext/Safe/safe1.t
+++ b/ext/Safe/safe1.t
@@ -1,13 +1,16 @@
 #!./perl -w
 $|=1;
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
+    if($ENV{PERL_CORE}) {
+       chdir 't' if -d 't';
+       @INC = '../lib';
+    }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bOpcode\b/ && $Config{'osname'} ne 'VMS') {
         print "1..0\n";
         exit 0;
     }
+
 }
 
 # Tests Todo: