From 010b61fd64de2c4d3803b3cc95189331c9b48de0 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 10 Jul 2021 17:13:41 -0600 Subject: [PATCH] Safe: safeutf8.t: Generalize for EBCDIC Use a code point in the test that is equally valid on EBCDIC machines --- dist/Safe/t/safeutf8.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dist/Safe/t/safeutf8.t b/dist/Safe/t/safeutf8.t index c58f7e5ad151..07d70aa01896 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;