if (!SvOK(cur))
continue;
if (!SvROK(cur)) {
- if (strEQ(SvPV_nolen(cur), "list")) {
- hv_clear(res);
- sn_store(res, "list", 4, newSVuv(1), sn_hash_list);
- break;
- } else {
- NV v = 1;
- if ((old = hv_fetch_ent(res, cur, 1, 0)) && SvOK(val = HeVAL(old)))
- v += SvNV(val);
- sn_store_ent(res, cur, newSVnv(v), 0);
- continue;
- }
+ NV v = 1;
+ if ((old = hv_fetch_ent(res, cur, 1, 0)) && SvOK(val = HeVAL(old)))
+ v += SvNV(val);
+ sn_store_ent(res, cur, newSVnv(v), 0);
+ continue;
}
cur = SvRV(cur);
hv_iterinit((HV *) cur);
sv = SvRV(sv);
if (!hv_iterinit((HV *) sv))
XSRETURN_UNDEF;
- c = 1;
- a = c0;
- for (; n > 0; n /= 2) {
- if (n % 2)
- c *= a;
- a *= a;
+ if (c0 == 1 || (SvIOK(csv) && SvIV(csv) == 1)) {
+ c = n;
+ } else {
+ c = 1;
+ a = c0;
+ for (; n > 0; n /= 2) {
+ if (n % 2)
+ c *= a;
+ a *= a;
+ }
+ c = (1 - c) / (1 - c0);
}
- c = (1 - c) / (1 - c0);
res = newHV();
while (key = hv_iternext((HV *) sv)) {
SV *k = HeSVKEY_force(key);