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

[perl/modules/Lexical-Types.git] / Types.xs

diff --git a/Types.xs b/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;