From d8b46c1bb1e2856c8ae13cfa7f0b032537c8f918 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 19 Sep 1999 21:30:18 +0000 Subject: avoid clearing @_ at all for faster subroutine calls; fix bugs in passing around references to @_, eg C; add tests for the same p4raw-id: //depot/perl@4195 --- pp.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'pp.c') 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 { -- cgit v1.2.1