Home
last modified time | relevance | path

Searched refs:randcv (Results 1 – 1 of 1) sorted by relevance

/openbsd-src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/
H A DListUtil.xs222 static double MY_callrand(pTHX_ CV *randcv) in MY_callrand() argument
231 call_sv((SV *)randcv, G_SCALAR); in MY_callrand()
1256 CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ? in shuffle() local
1259 if(!randcv) in shuffle()
1264 (randcv ? MY_callrand(aTHX_ randcv) : Drand01()) * (double)(index--) in shuffle()
1282 CV * const randcv = randsv && SvROK(randsv) && SvTYPE(SvRV(randsv)) == SVt_PVCV ? in sample() local
1297 if(!randcv) in sample()
1305 (randcv ? MY_callrand(aTHX_ randcv) : Drand01()) * (double)(items - reti) in sample()