summaryrefslogtreecommitdiff
path: root/scope.c
diff options
context:
space:
mode:
authorVincent Pit <vince@profvince.com>2011-08-02 12:17:47 +0200
committerVincent Pit <vince@profvince.com>2011-08-02 12:17:47 +0200
commit9bfbb6810ea8d096601214bae98434cdc8d85ff8 (patch)
tree54050cb32d5597af2cc3f80c20c4d1ebe272f76e /scope.c
parent83b32788f4e2799bb5cea7654fbc616d32f09598 (diff)
downloadperl-9bfbb6810ea8d096601214bae98434cdc8d85ff8.tar.gz
SvREFCNT_dec already checks if the SV is non-NULL
Diffstat (limited to 'scope.c')
-rw-r--r--scope.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/scope.c b/scope.c
index e0ba9a366a..9a43eb0ebb 100644
--- a/scope.c
+++ b/scope.c
@@ -740,8 +740,7 @@ Perl_leave_scope(pTHX_ I32 base)
SvSETMAGIC(value);
PL_localizing = 0;
SvREFCNT_dec(value);
- if (av) /* actually an av, hv or gv */
- SvREFCNT_dec(av);
+ SvREFCNT_dec(av); /* av may actually be an AV, HV or GV */
break;
case SAVEt_GENERIC_PVREF: /* generic pv */
ptr = SSPOPPTR;