Fix perlio for Encode/t/perlio.t's SKIPPED TODO tests,

[p5sagit/p5-mst-13.2.git] / ext / Encode / t / TW.t

diff --git a/ext/Encode/t/TW.t b/ext/Encode/t/TW.t
index a902d23..5ce2c41 100644 (file)
--- a/ext/Encode/t/TW.t
+++ b/ext/Encode/t/TW.t
@@ -1,15 +1,13 @@
 BEGIN {
-    chdir 't' if -d 't';
-    unshift @INC,  '../lib';
+    if ($ENV{'PERL_CORE'}){
+       chdir 't';
+       unshift @INC, '../lib';
+    }
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
-    unless (find PerlIO::Layer 'perlio') {
-       print "1..0 # Skip: PerlIO was not built\n";
-       exit 0;
-    }
     if (ord("A") == 193) {
        print "1..0 # Skip: EBCDIC\n";
        exit 0;