if (val) { /* local $x{$keysv} = $val; */
SvSetMagicSV(*svp, val);
} else { /* local $x{$keysv}; delete $x{$keysv}; */
- hv_delete_ent(hv, keysv, G_DISCARD, HeHASH(he));
+ (void)hv_delete_ent(hv, keysv, G_DISCARD, HeHASH(he));
}
}
* when the new sub scope will be created in call_sv. */
#if SU_HAS_PERL(5, 10, 0)
- if (dieing)
+ if (dieing) {
if (cxstack_ix < cxstack_max)
++cxstack_ix;
else
cxstack_ix = Perl_cxinc(aTHX);
+ }
#endif
call_sv(ud->cb, G_VOID);
SV **savesp = MY_CXT.savesp;
I32 mark;
+ PERL_UNUSED_VAR(ud_);
+
if (savesp)
PL_stack_sp = savesp;
CLONE(...)
PROTOTYPE: DISABLE
CODE:
+ PERL_UNUSED_VAR(items);
#if SU_THREADSAFE
MY_CXT_CLONE;
#endif /* SU_THREADSAFE */