diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-08-22 09:13:30 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-08-22 09:13:30 +0000 |
| commit | d28af146350e01a3243b7ab968ed1d539a06fb30 (patch) | |
| tree | c7693172b22a5cb889355bcfe0df34a3291e3b80 /universal.c | |
| parent | f46ee2483d022839b174c58babe5076a34c0b367 (diff) | |
| download | perl-d28af146350e01a3243b7ab968ed1d539a06fb30.tar.gz | |
Note that we have no test coverage for this particular warning.
p4raw-id: //depot/perl@34216
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/universal.c b/universal.c index be58760099..378329decb 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", |