From: Vincent Pit <vince@profvince.com>
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