From: Vincent Pit <vince@profvince.com>
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/?p=perl%2Fmodules%2Findirect.git;a=commitdiff_plain;h=34244fc361780dc3c2e189834b20ecf4dced6178

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) {