Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@www.apache.org Received: (qmail 52819 invoked from network); 9 Sep 2004 23:00:23 -0000 Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199) by minotaur-2.apache.org with SMTP; 9 Sep 2004 23:00:23 -0000 Received: (qmail 72020 invoked by uid 500); 9 Sep 2004 23:00:22 -0000 Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 71958 invoked by uid 500); 9 Sep 2004 23:00:22 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@perl.apache.org Received: (qmail 71945 invoked by uid 500); 9 Sep 2004 23:00:21 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org X-ASF-Spam-Status: No, hits=-2.8 required=10.0 tests=ALL_TRUSTED,NO_REAL_NAME X-Spam-Check-By: apache.org Date: 9 Sep 2004 23:00:19 -0000 Message-ID: <20040909230019.52702.qmail@minotaur.apache.org> From: gozer@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/src/modules/perl modperl_util.c X-Virus-Checked: Checked X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N gozer 2004/09/09 16:00:19 Modified: src/modules/perl modperl_util.c Log: using SvREFCNT_dec() on a temporary SV * is overkill, sv_free() is a better choice. Revision Changes Path 1.81 +1 -1 modperl-2.0/src/modules/perl/modperl_util.c Index: modperl_util.c =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v retrieving revision 1.80 retrieving revision 1.81 diff -u -r1.80 -r1.81 --- modperl_util.c 9 Sep 2004 22:16:37 -0000 1.80 +++ modperl_util.c 9 Sep 2004 23:00:19 -0000 1.81 @@ -322,7 +322,7 @@ av_store(av, i, *av_fetch(tmpav, i, 0)); } - SvREFCNT_dec(tmpav); + sv_free((SV *)tmpav); } static void modperl_package_unload_dynamic(pTHX_ const char *package,