print "ok\n";
EOP
-TODO: {
- local $TODO = 'syntax errors in block evals segfault since 32e2a35d';
fresh_perl_is(<<'EOP', "ok\n", undef, 'segfault on syntax errors in block evals');
# localize the hits hash so the eval ends up with the pad offset of a copy of it in its targ
BEGIN { $^H |= 0x00020000 }
eval q{ eval { + } };
print "ok\n";
EOP
-}
+