avoid clearing @_ at all for faster subroutine calls; fix bugs

in passing around references to @_, eg C<sub foo { \@_ }>; add
tests for the same

p4raw-id: //depot/perl@4195

1 files changed, 6 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 07bb33d367..6746aa5994 100644
--- a/pp.c
+++ b/pp.c
@@ -530,6 +530,12 @@ S_refto(pTHX_ SV *sv)
 	else
 	    (void)SvREFCNT_inc(sv);
     }
+    else if (SvTYPE(sv) == SVt_PVAV) {
+	if (!AvREAL((AV*)sv) && AvREIFY((AV*)sv))
+	    av_reify((AV*)sv);
+	SvTEMP_off(sv);
+	(void)SvREFCNT_inc(sv);
+    }
     else if (SvPADTMP(sv))
 	sv = newSVsv(sv);
     else {