]> git.vpit.fr Git - perl/modules/indirect.git/commitdiff
Hide a very unlikely failure from coverage
authorVincent Pit <vince@profvince.com>
Wed, 15 Oct 2008 20:47:03 +0000 (22:47 +0200)
committerVincent Pit <vince@profvince.com>
Wed, 15 Oct 2008 20:47:03 +0000 (22:47 +0200)
indirect.xs

index 5a3dd986fdf4a4f401a67672c45a24ad2d3242ba..b7857c3a438c297db6ae2f360922c50cf45c395b 100644 (file)
@@ -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) {