The last MAD change to op.c changes the pad offsets of the test that

ext/B/t/f_map.t is using.

p4raw-id: //depot/perl@27425

1 files changed, 6 insertions, 1 deletions

diff --git a/op.c b/op.c
index cce6197071..618f06be3a 100644
--- a/op.c
+++ b/op.c
@@ -6358,8 +6358,13 @@ Perl_ck_fun(pTHX_ OP *o)
 	listkids(o);
     }
     else if (PL_opargs[type] & OA_DEFGV) {
+	OP *newop = newUNOP(type, 0, newDEFSVOP());
+#ifdef PERL_MAD
+	op_getmad(o,newop,'O');
+#else
 	op_free(o);
-	return newUNOP(type, 0, newDEFSVOP());
+#endif
+	return newop;
     }
 
     if (oa) {