X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=Nary.xs;fp=Nary.xs;h=cd55073d179a4fa7706fd87f1f018e9e12955c63;hp=dc8e0890d3857907888a24b10925fad9ffe9138f;hb=f7d712bde30494bfb668c00310ba288f5d1daeed;hpb=960e6e080cdaf7460eca27b5545f616edaf0ef1f diff --git a/Nary.xs b/Nary.xs index dc8e089..cd55073 100644 --- a/Nary.xs +++ b/Nary.xs @@ -258,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")) { @@ -372,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);