PerlIO::encoding:fallback.t: Don't use undefined sub

[perl5.git] / ext / PerlIO-encoding / t / fallback.t

diff --git a/ext/PerlIO-encoding/t/fallback.t b/ext/PerlIO-encoding/t/fallback.t
index 5842081..efa3988 100644 (file)
--- a/ext/PerlIO-encoding/t/fallback.t
+++ b/ext/PerlIO-encoding/t/fallback.t
@@ -1,11 +1,10 @@
 #!./perl
 
 BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-    push @INC, "::lib:$MacPerl::Architecture:" if $^O eq 'MacOS';
-    require "../t/test.pl";
-    skip_all("No perlio") unless (find PerlIO::Layer 'perlio');
+    unless (find PerlIO::Layer 'perlio') {
+       print "1..0 # No perlio\n";
+       exit 0;
+    }
     if (ord("A") == 193) {
        print "1..0 # Skip: EBCDIC\n";
        exit 0;
@@ -14,7 +13,7 @@ BEGIN {
        print "1..0 # Skip: No Encode\n";
        exit 0;
     }
-    plan (9);
+    use Test::More tests => 9;
     import Encode qw(:fallback_all);
 }