From d28af146350e01a3243b7ab968ed1d539a06fb30 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Fri, 22 Aug 2008 09:13:30 +0000 Subject: [PATCH] Note that we have no test coverage for this particular warning. p4raw-id: //depot/perl@34216 --- universal.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/universal.c b/universal.c index be58760..378329d 100644 --- a/universal.c +++ b/universal.c @@ -67,6 +67,8 @@ S_isa_lookup(pTHX_ HV *stash, const char * const name, const HV* const name_stas 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. */ + abort(); if (ckWARN(WARN_SYNTAX)) Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Can't locate package %"SVf" for the parents of %s", -- 2.7.4