More UTF-8 test tweaks.

p4raw-id: //depot/perl@9075

3 files changed, 7 insertions, 5 deletions

diff --git a/t/op/pat.t b/t/op/pat.t
index 711f9f08e9..2d862732fe 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -1533,5 +1533,7 @@ print "ok 247\n";
 
 	print "not " unless $1 eq "\x{200}\x{300}" && length($1) == 2;
 	print "ok 580\n"; 
+    } else {
+	for (576..580) { print "not ok $_\n" }
     }
 }
diff --git a/t/op/split.t b/t/op/split.t
index ce8d64d947..3077909c92 100755
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -1,5 +1,10 @@
 #!./perl
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 print "1..44\n";
 
 $FS = ':';
diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 31d119137a..850470e0e8 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -3,11 +3,6 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
-    $ENV{PERL5LIB} = '../lib';
-    if ( ord("\t") != 9 ) { # skip on ebcdic platforms
-        print "1..0 # Skip utf8 tests on ebcdic platform.\n";
-        exit;
-    }
 }
 
 # NOTE!