projects
/
perl
/
modules
/
indirect.git
/ commitdiff
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
| inline |
side by side
(parent:
60f610d
)
Hide a very unlikely failure from coverage
author
Vincent Pit <vince@profvince.com>
Wed, 15 Oct 2008 20:47:03 +0000 (22:47 +0200)
committer
Vincent Pit <vince@profvince.com>
Wed, 15 Oct 2008 20:47:03 +0000 (22:47 +0200)
indirect.xs
patch
|
blob
|
history
diff --git
a/indirect.xs
b/indirect.xs
index 5a3dd986fdf4a4f401a67672c45a24ad2d3242ba..b7857c3a438c297db6ae2f360922c50cf45c395b 100644
(file)
--- 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) {