summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2003-07-03 02:32:11 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2003-07-03 06:27:18 +0000
commitd99b02a1a9949639f16470065ea5568cd92f788d (patch)
treee36e1fadc2179e5b5bdfe14ee48c12ac2c0609f1 /mg.c
parent94467548464439e4d684189080f297305d981e5c (diff)
downloadperl-d99b02a1a9949639f16470065ea5568cd92f788d.tar.gz
Re: ext/List/Util/t/weak.t panic
Message-ID: <20030703003211.GB3747@fdgroup.com> p4raw-id: //depot/perl@19943
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/mg.c b/mg.c
index 1990b96250..b69da05403 100644
--- a/mg.c
+++ b/mg.c
@@ -1881,6 +1881,7 @@ Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg)
}
i--;
}
+ SvREFCNT_dec(av); /* remove extra count added by sv_add_backref() */
return 0;
}