From: Vincent Pit <vince@profvince.com>
Date: Wed, 25 Feb 2009 15:55:54 +0000 (+0100)
Subject: Don't decrement the refcount of the default method name when a declaration is skipped
X-Git-Tag: v0.02~1
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=ca20ae2227f4d652532078d6e45d03d17fd625ab

Don't decrement the refcount of the default method name when a declaration is skipped
---

diff --git a/Types.xs b/Types.xs
index 2e8bda4..e29b97c 100644
--- a/Types.xs
+++ b/Types.xs
@@ -202,7 +202,6 @@ STATIC OP *lt_ck_padany(pTHX_ OP *o) {
     croak(__PACKAGE__ " mangler should return zero, one or two scalars, but got %d", items);
    if (items == 0) {
     SvREFCNT_dec(orig_pkg);
-    SvREFCNT_dec(orig_meth);
     goto skip;
    } else {
     SV *rsv;