From 3df49e2a4049e3f68e6d15eb1e3b3a34e58c3670 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Tue, 27 Dec 2011 00:11:12 -0800 Subject: =?UTF-8?q?Don=E2=80=99t=20check=20for=20tied=20@DB'args=20when=20?= =?UTF-8?q?not=20REAL?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This should make things just a smidgen faster in the most common case. As of the previous commit, tied arrays are always AvREAL. --- perl.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl.c') diff --git a/perl.c b/perl.c index b064da691b..a24947c8f3 100644 --- a/perl.c +++ b/perl.c @@ -3889,9 +3889,9 @@ Perl_init_dbargs(pTHX) It might have entries, and if we just turn off AvREAL(), they will "leak" until global destruction. */ av_clear(args); + if (SvTIED_mg((const SV *)args, PERL_MAGIC_tied)) + sv_unmagic((const SV *)args, PERL_MAGIC_tied); } - if (SvTIED_mg((const SV *)args, PERL_MAGIC_tied)) - sv_unmagic((const SV *)args, PERL_MAGIC_tied); AvREIFY_only(PL_dbargs); } -- cgit v1.2.1