Fix bad write in pp_trans

y/// has not been extending the stack for lexical $_, even since lex-
ical $_ was added.  $lexical =~ y/// has not been extending the stack
since v5.21.5-339-g05a502d.

1 files changed, 5 insertions, 3 deletions

diff --git a/pp.c b/pp.c
index 0e011b6446..671bb9b815 100644
--- a/pp.c
+++ b/pp.c
@@ -746,11 +746,13 @@ PP(pp_trans)
 
     if (PL_op->op_flags & OPf_STACKED)
 	sv = POPs;
-    else if (ARGTARG)
-	sv = GETTARGET;
     else {
-	sv = DEFSV;
 	EXTEND(SP,1);
+	if (ARGTARG)
+	    sv = GETTARGET;
+	else {
+	    sv = DEFSV;
+	}
     }
     if(PL_op->op_type == OP_TRANSR) {
 	STRLEN len;