From: Vincent Pit Date: Wed, 15 Oct 2008 20:47:03 +0000 (+0200) Subject: Hide a very unlikely failure from coverage X-Git-Tag: v0.07_02~2 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=34244fc361780dc3c2e189834b20ecf4dced6178;p=perl%2Fmodules%2Findirect.git Hide a very unlikely failure from coverage --- diff --git a/indirect.xs b/indirect.xs index 5a3dd98..b7857c3 100644 --- a/indirect.xs +++ b/indirect.xs @@ -66,8 +66,7 @@ STATIC void indirect_map_store(pTHX_ const OP *o, const char *src, SV *sv) { SvUVX(val) = PTR2UV(src); SvIOK_on(val); SvIsUV_on(val); - if (!hv_store(indirect_map, buf, OP2STR(o), val, 0)) - SvREFCNT_dec(val); + if (!hv_store(indirect_map, buf, OP2STR(o), val, 0)) SvREFCNT_dec(val); } STATIC const char *indirect_map_fetch(pTHX_ const OP *o, SV ** const name) {