From: Vincent Pit Date: Fri, 23 Aug 2013 14:00:19 +0000 (-0300) Subject: Remove trailing whitespace X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=commitdiff_plain;h=f7d712bde30494bfb668c00310ba288f5d1daeed;hp=960e6e080cdaf7460eca27b5545f616edaf0ef1f Remove trailing whitespace --- 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); diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm index ec00eb1..a90787b 100644 --- a/lib/Sub/Nary.pm +++ b/lib/Sub/Nary.pm @@ -91,7 +91,7 @@ it is considered to return C<3> scalars with probability C<1/2>, C<2> with proba The total probability law for a given returning point is the convolution product of the probabilities of its list elements. -As such, +As such, sub notsosimple { return 1, simple(), 2