X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=Nary.xs;h=dc8e0890d3857907888a24b10925fad9ffe9138f;hp=285bfc39973766318639023337c2f0916e90fb0f;hb=3a17f1185ab1189e5e5cb87294974305467d2bec;hpb=9c114b45769d6880b8635884bb3734f00c2742c2

diff --git a/Nary.xs b/Nary.xs
index 285bfc3..dc8e089 100644
--- a/Nary.xs
+++ b/Nary.xs
@@ -140,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)) {