| Subject: | Fix random crash under Perl 5.24 |
Hi,
under Perl 5.24 I have a random crash when running t/11load.t.
What happens is that, after
commit 619dadb5060276c23775f8ce53d155587c914dc5
Author: Father Chrysostomos <sprout@cpan.org>
Date: Thu Nov 20 17:57:44 2014 -0800
Make B use B::COP for nulled COPs
the check for B::class( $op ) eq 'COP' in Enbugger.pm is no longer
sufficient (this likely affects Perl 5.22 as well, but I could not
make it crash there).
The attached patch is one possible solution.
Cheers,
Mattia
| Subject: | fix-5.24.diff |
diff --git a/Enbugger.xs b/Enbugger.xs
index 3cbaee0..bc28814 100644
--- a/Enbugger.xs
+++ b/Enbugger.xs
@@ -90,6 +90,8 @@ alter_cop( pTHX_ SV *rv, I32 op_type )
* could be the result of a lookup function. It is allowed
*/
cop = INT2PTR( COP*, SvIV(sv) );
+ if (cop->op_type == OP_NULL)
+ return;
cop->op_type = op_type;
cop->op_ppaddr =
op_type == OP_DBSTATE ? Perl_pp_dbstate : Perl_pp_nextstate;