t/op/split.t: EBCDIC fixes

diff --git a/t/op/split.t b/t/op/split.t
index 5d5c19d..50579bf 100644 (file)
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -375,7 +375,7 @@ is($cnt, scalar(@ary));
 
 {
     # LATIN SMALL LETTER A WITH DIAERESIS, CYRILLIC SMALL LETTER I
-    for my $pattern ("\x{e4}", "\x{0437}") {
+    for my $pattern ("\N{U+E4}", "\x{0437}") {
         utf8::upgrade $pattern;
         my @res;
         for my $str ("a${pattern}b", "axb", "a${pattern}b") {
@@ -492,14 +492,16 @@ is($cnt, scalar(@ary));
     my @results;
     my $expr;
     $expr = ' a b c ';
-    @results = split "\x20", $expr;
+    @results = split "\x20", $expr if $::IS_ASCII;
+    @results = split "\x40", $expr if $::IS_EBCDIC;
     is @results, 3,
         "RT #116086: split on string of single hex-20: captured 3 elements";
     is $results[0], 'a',
         "RT #116086: split on string of single hex-20: first element is non-empty";
 
     $expr = " a \tb c ";
-    @results = split "\x20", $expr;
+    @results = split "\x20", $expr if $::IS_ASCII;
+    @results = split "\x40", $expr if $::IS_EBCDIC;
     is @results, 3,
         "RT #116086: split on string of single hex-20: captured 3 elements";
     is $results[0], 'a',