X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Nary.xs;h=cd55073d179a4fa7706fd87f1f018e9e12955c63;hb=d54adefcf868ef04be54635a0ea4ab82167104ba;hp=7a78e938aaf92804a91840b40ca81b438617424c;hpb=622118ca9de1af186f318d89d9058399b589b4f4;p=perl%2Fmodules%2FSub-Nary.git

diff --git a/Nary.xs b/Nary.xs
index 7a78e93..cd55073 100644
--- a/Nary.xs
+++ b/Nary.xs
@@ -17,14 +17,12 @@ typedef struct {
 
 STATIC void sn_store(pTHX_ HV *tb, const char *key, I32 klen, SV *val, U32 hash) {
 #define sn_store(T, K, KL, V, H) sn_store(aTHX_ (T), (K), (KL), (V), (H))
- if (!hv_store(tb, key, klen, val, hash))
-  SvREFCNT_dec(val);
+ if (!hv_store(tb, key, klen, val, hash)) SvREFCNT_dec(val);
 }
 
 STATIC void sn_store_ent(pTHX_ HV *tb, SV *key, SV *val, U32 hash) {
 #define sn_store_ent(T, K, V, H) sn_store_ent(aTHX_ (T), (K), (V), (H))
- if (!hv_store_ent(tb, key, val, hash))
-  SvREFCNT_dec(val);
+ if (!hv_store_ent(tb, key, val, hash)) SvREFCNT_dec(val);
 }
 
 
@@ -142,7 +140,7 @@ CODE:
  } else {
   hv = (HV *) SvRV(sv);
   if (!hv_iterinit(hv)) {
-   sn_store(res, "0", 1, newSVnv(c), 0);
+   XSRETURN_UNDEF;
   } else {
    hv_iterinit(hv);
    while (key = hv_iternext(hv)) {
@@ -260,7 +258,7 @@ CODE:
  res[0] = res[1] = NULL;
  for (i = 0; i < items; ++i) {
   cur = ST(i);
-  if (!SvOK(cur)) 
+  if (!SvOK(cur))
    continue;
   if (!SvROK(cur)) {
    if (strEQ(SvPV_nolen(cur), "list")) {
@@ -374,7 +372,7 @@ CODE:
   XSRETURN_UNDEF;
  if (n == 1)
   SvREFCNT_dec(res[0]);
- else if (res[1]) 
+ else if (res[1])
   SvREFCNT_dec(res[1]);
  ST(0) = sv_2mortal(newRV_noinc((SV *) res[n]));
  XSRETURN(1);