From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 2 Apr 2010 18:25:03 +0000 (+0200)
Subject: Add a TODO test for block evals segfaulting on syntax errors.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae533554a9c124f574bc4e6f57c895308d938681;p=p5sagit%2Fp5-mst-13.2.git

Add a TODO test for block evals segfaulting on syntax errors.
---

diff --git a/t/op/eval.t b/t/op/eval.t
index 305d7f3..8220a45 100644
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-print "1..105\n";
+print "1..106\n";
 
 eval 'print "ok 1\n";';
 
@@ -594,3 +594,13 @@ eval {
 };
 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
+}