Safe: safeutf8.t: Generalize for EBCDIC

Use a code point in the test that is equally valid on EBCDIC machines

1 files changed, 2 insertions, 2 deletions

diff --git a/dist/Safe/t/safeutf8.t b/dist/Safe/t/safeutf8.t
index c58f7e5ad1..07d70aa018 100644
--- a/dist/Safe/t/safeutf8.t
+++ b/dist/Safe/t/safeutf8.t
@@ -22,13 +22,13 @@ $safe->deny_only();
 # Fails with "Undefined subroutine PLPerl::utf8::SWASHNEW called"
 # if SWASHNEW is not shared, else returns true if unicode logic is working.
 # (For early Perls we don't take into account EBCDIC, so will fail there
-my $trigger = q{ my $a = pack('U',0xC4); $a =~ tr/\x{1234}//rd };
+my $trigger = q{ my $a = pack('U',0xB6); $a =~ tr/\x{1234}//rd };
 
 ok $safe->reval( $trigger ), 'trigger expression should return true';
 is $@, '', 'trigger expression should not die';
 
 # return a closure
-my $sub = $safe->reval(q{sub { warn pack('U',0xC4) }});
+my $sub = $safe->reval(q{sub { warn pack('U',0xB6) }});
 
 # define code outside Safe that'll be triggered from inside
 my @warns;