use strict;
use Safe;

my $SafeCompartment = new Safe;
$SafeCompartment->permit(qw(entertry));

my $evalbrace ='
 eval { 1 } ;
';

$SafeCompartment->reval($evalbrace, 1);
if ($@) {
  die "WARNING!: evalbrace failed: $@";
}

./testsafeexecute
WARNING!: evalbrace failed: eval "string" trapped by operation mask at (eval 2) line 2.