In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/928e1fe927c71900e18cc53df7af320cbe4a2843?hp=ae533554a9c124f574bc4e6f57c895308d938681>
- Log -----------------------------------------------------------------
commit 928e1fe927c71900e18cc53df7af320cbe4a2843
Author: Jesse Vincent <je...@bestpractical.com>
Date: Fri Apr 2 15:22:22 2010 -0400
There's gonna be an RC3
M patchlevel.h
commit f678642fcc8925f8f3325d3ccc96b6ce794d0a79
Author: Jesse Vincent <je...@bestpractical.com>
Date: Fri Apr 2 15:22:01 2010 -0400
untodo the no-longer-failing todo test for rgs' patch
M t/op/eval.t
commit 4d193d44b8e7a55a6559c6d4307a78a879f11204
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date: Fri Apr 2 15:19:24 2010 -0400
For evals, op_targ carry hint flags, which are pretty high when you're
using feature or another (recent) pragma. And previously we had to care
only about entereval, but now we can compile to entertry too.
M op.c
-----------------------------------------------------------------------
Summary of changes:
op.c | 1 +
patchlevel.h | 2 +-
t/op/eval.t | 4 +---
3 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/op.c b/op.c
index 7754923..9c94cc8 100644
--- a/op.c
+++ b/op.c
@@ -562,6 +562,7 @@ Perl_op_clear(pTHX_ OP *o)
o->op_targ = 0;
goto retry;
}
+ case OP_ENTERTRY:
case OP_ENTEREVAL: /* Was holding hints. */
o->op_targ = 0;
break;
diff --git a/patchlevel.h b/patchlevel.h
index d29a1d4..0fcffba 100644
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -127,7 +127,7 @@ hunk.
# endif
static const char * const local_patches[] = {
NULL
- ,"RC2"
+ ,"RC3"
#ifdef PERL_GIT_UNCOMMITTED_CHANGES
,"uncommitted-changes"
#endif
diff --git a/t/op/eval.t b/t/op/eval.t
index 8220a45..98fbc1e 100644
--- a/t/op/eval.t
+++ b/t/op/eval.t
@@ -595,12 +595,10 @@ 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
-}
+
--
Perl5 Master Repository
