X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=Types.xs;h=e29b97c494c7c2835c42441ba156d7608e383fa9;hp=2e8bda47037bcbf9f595dc9f0ae72325831138ea;hb=ca20ae2227f4d652532078d6e45d03d17fd625ab;hpb=fdc3417a965b0805f42a550f65e6ddfda45a18aa 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;