Don’t check for tied @DB'args when not REAL

This should make things just a smidgen faster in the most common case.

As of the previous commit, tied arrays are always AvREAL.

1 files changed, 2 insertions, 2 deletions

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);
 }