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 6e0848128ce440659de00d1c4dcc55f97029c840..f8a465037948eafdf03535aa19f232a06c9ee786 100644 (file)
--- 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