+ $check->("$desc at eval STRING 1a");
+
+ local $@ = $local_out ? 'xxx' : undef;
+ eval {
+ my $x;
+ local $@ = 'yyy' if $local_in;
+ cast $x, $wiz;
+ };
+ $check->("$desc at eval BLOCK 1b");
+
+ local $@ = $local_out ? 'xxx' : undef;
+ eval q{
+ my $x;
+ local $@ = 'yyy' if $local_in;
+ cast $x, $wiz;
+ };
+ $check->("$desc at eval STRING 1b");