while (items--) {
SV* const basename_sv = *svp++;
HV* basestash = gv_stashsv(basename_sv, 0);
- if (!basestash || (HvMROMETA(basestash)->fake && !HvFILL(basestash))) {
+ if (!basestash) {
if (ckWARN(WARN_SYNTAX))
Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
"Can't locate package %"SVf" for the parents of %s",
}
{
if (SvPOK(sv) && re && re->paren_names) {
- bufs = CALLREG_NAMEDBUF(re,sv,all && SvTRUE(all));
+ bufs = CALLREG_NAMEDBUF_FETCH(re,sv,all && SvTRUE(all));
if (bufs) {
if (all && SvTRUE(all))
XPUSHs(newRV(bufs));