X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=Nary.xs;fp=Nary.xs;h=a64d6196ec7bbc66bc7c2d53fc367617e197c8ac;hp=66eced60f0e7e930024e74e4a3a8d453af9799c3;hb=ae9a21ef5300b492faf20fa5b98340b7783ca098;hpb=0d977814f2cfa71e2d4742d7db999976198180f8

diff --git a/Nary.xs b/Nary.xs
index 66eced6..a64d619 100644
--- a/Nary.xs
+++ b/Nary.xs
@@ -147,7 +147,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)) {