1N/A# Expression that triggers require utf8 and call to SWASHNEW. 1N/A# Fails with "Undefined subroutine PLPerl::utf8::SWASHNEW called" 1N/A# if SWASHNEW is not shared, else returns true if unicode logic is working. 1N/Ais $@, '', 'trigger expression should not die'; 1N/A# define code outside Safe that'll be triggered from inside 1N/A # this regex requires a different SWASH digit data for \d) 1N/A # than the one used above and by the trigger code in Safe.pm 1N/A $msg =~ s/\(eval \d+\)/XXX/i; # uses IsDigit SWASH 1N/Ais eval { $sub->() }, 1, 'warn should return 1'; 1N/Ais $@, '', '__WARN__ hook should not die';