X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Magic.xs;h=f8a465037948eafdf03535aa19f232a06c9ee786;hb=f69627616fb6e9d8d20c636cc98b723aaaf7621a;hp=6e0848128ce440659de00d1c4dcc55f97029c840;hpb=cc99f7f4711b525f7d3b7c4480528b480eac0a48;p=perl%2Fmodules%2FVariable-Magic.git

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