In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/2ba65d5fcc3ac0e8cf3fd24ff6b1082f772a8545?hp=a5addb167c102dc5dcd1ab886caf0cb4f554eb05>
- Log -----------------------------------------------------------------
commit 2ba65d5fcc3ac0e8cf3fd24ff6b1082f772a8545
Author: David Mitchell <da...@iabyn.com>
Date: Sun Oct 3 22:28:28 2010 +0100
eval_sv: followup fix to 4aca2f62ef
My original fix broke the 'goto redo_body' path. Not that
anything tests for this!
-----------------------------------------------------------------------
Summary of changes:
perl.c | 9 +++++----
1 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/perl.c b/perl.c
index ca5aea6..db950d5 100644
--- a/perl.c
+++ b/perl.c
@@ -2710,10 +2710,11 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags)
switch (ret) {
case 0:
redo_body:
- assert(PL_op == (OP*)(&myop));
- PL_op = PL_ppaddr[OP_ENTEREVAL](aTHX);
- if (!PL_op)
- goto fail; /* failed in compilation */
+ if (PL_op == (OP*)(&myop)) {
+ PL_op = PL_ppaddr[OP_ENTEREVAL](aTHX);
+ if (!PL_op)
+ goto fail; /* failed in compilation */
+ }
CALLRUNOPS(aTHX);
retval = PL_stack_sp - (PL_stack_base + oldmark);
if (!(flags & G_KEEPERR)) {
--
Perl5 Master Repository
