]> git.vpit.fr Git - perl/modules/Lexical-Types.git/commitdiff
Don't decrement the refcount of the default method name when a declaration is skipped
authorVincent Pit <vince@profvince.com>
Wed, 25 Feb 2009 15:55:54 +0000 (16:55 +0100)
committerVincent Pit <vince@profvince.com>
Wed, 25 Feb 2009 15:55:54 +0000 (16:55 +0100)
Types.xs

index 2e8bda47037bcbf9f595dc9f0ae72325831138ea..e29b97c494c7c2835c42441ba156d7608e383fa9 100644 (file)
--- 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;