#endif
Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpvn(pkg,pkg_len),
NULL);
- if (!SvTRUE(ERRSV))
- sv_setsv(ERRSV, errsv_save);
+ {
+ SV * const errsv = ERRSV;
+ if (!SvTRUE_NN(errsv))
+ sv_setsv(errsv, errsv_save);
+ }
LEAVE;
}
SPAGAIN;
retval = *PL_stack_sp--;
SvREFCNT_inc(retval);
}
- if (!SvTRUE(ERRSV))
- sv_setsv(ERRSV, errsv_save);
+ {
+ SV * const errsv = ERRSV;
+ if (!SvTRUE_NN(errsv))
+ sv_setsv(errsv, errsv_save);
+ }
LEAVE;
POPSTACK;
if (IN_PERL_COMPILETIME) {