diff options
Diffstat (limited to 'universal.c')
-rw-r--r-- | universal.c | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/universal.c b/universal.c index 461eedfcb1..08dad15ab5 100644 --- a/universal.c +++ b/universal.c @@ -67,14 +67,6 @@ S_isa_lookup(pTHX_ HV *stash, const char * const name) while (items--) { SV* const basename_sv = *svp++; HV* const basestash = gv_stashsv(basename_sv, 0); - if (!basestash) { - /* We have no test coverage for this block, as of 2008/08. */ - if (ckWARN(WARN_SYNTAX)) - Perl_warner(aTHX_ packWARN(WARN_SYNTAX), - "Can't locate package %"SVf" for the parents of %s", - SVfARG(basename_sv), hvname); - continue; - } if(name_stash == basestash || strEQ(name, SvPVX(basename_sv))) return TRUE; } |