if (strEQ(HvNAME(stash), name))
return &PL_sv_yes;
+ if (strEQ(name, "UNIVERSAL"))
+ return &PL_sv_yes;
+
if (level > 100)
Perl_croak(aTHX_ "Recursive inheritance detected in package '%s'",
HvNAME(stash));
(void)hv_store(hv,name,len,&PL_sv_no,0);
}
}
-
- return boolSV(strEQ(name, "UNIVERSAL"));
+ return &PL_sv_no;
}
/*
&& items) {
SV *val = hv_iterval(hv, entry);
- if (val == &PL_sv_undef) {
+ if (val == &PL_sv_placeholder) {
/* It seems that I have to go back in the front of the hash
API to delete a hash, even though I have a HE structure