From: Vincent Pit Date: Sun, 7 Aug 2011 16:04:39 +0000 (+0200) Subject: Update vmg_opclass() for perl 5.15 X-Git-Tag: v0.47~29 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=f69627616fb6e9d8d20c636cc98b723aaaf7621a;p=perl%2Fmodules%2FVariable-Magic.git Update vmg_opclass() for perl 5.15 Even if magic is no longer called by the aelem(fast). --- diff --git a/Magic.xs b/Magic.xs index 6e08481..f8a4650 100644 --- a/Magic.xs +++ b/Magic.xs @@ -359,9 +359,11 @@ STATIC opclass vmg_opclass(const OP *o) { return ((o->op_private & OPpASSIGN_BACKWARDS) ? OPc_UNOP : OPc_BINOP); if (o->op_type == OP_AELEMFAST) { +#if PERL_VERSION <= 14 if (o->op_flags & OPf_SPECIAL) return OPc_BASEOP; else +#endif #ifdef USE_ITHREADS return OPc_PADOP; #else