1 files changed, 4 insertions, 2 deletions
diff --git a/op.c b/op.c
index a2f4bf9fc5..92dc88a511 100644
--- a/op.c
+++ b/op.c
@@ -6365,13 +6365,15 @@ 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 *newop = newUNOP(type, 0, newDEFSVOP());
 	op_getmad(o,newop,'O');
+	return newop;
 #else
+	/* Ordering of these two is important to keep f_map.t passing.  */
 	op_free(o);
+	return newUNOP(type, 0, newDEFSVOP());
 #endif
-	return newop;
     }
 
     if (oa) {