diff options
author | Dave Mitchell <davem@fdisolutions.com> | 2008-12-09 22:53:03 +0000 |
---|---|---|
committer | Dave Mitchell <davem@fdisolutions.com> | 2008-12-09 22:53:03 +0000 |
commit | fae812e47f6b7e40fb494a3de6d19398610ccf23 (patch) | |
tree | 0bf1024f6a9c847b6788710e1deab807db10097b | |
parent | 322e88caed9df280e1f5a1ef8b5770ab615ece5b (diff) | |
download | perl-fae812e47f6b7e40fb494a3de6d19398610ccf23.tar.gz |
Integrate:
[ 34216]
Note that we have no test coverage for this particular warning.
[ 34217]
No, I didn't mean to commit the version *with* the abort(). It was
meant to be removed once I'd proved it by running the tests without
aborting. Oops. use more 'coffee';
p4raw-link: @34217 on //depot/perl: 5da8ab6323d17be276daf351faaf9b9ac9344406
p4raw-link: @34216 on //depot/perl: d28af146350e01a3243b7ab968ed1d539a06fb30
p4raw-id: //depot/maint-5.10/perl@35072
p4raw-integrated: from //depot/perl@34217 'edit in' universal.c
(@34216..)
-rw-r--r-- | universal.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/universal.c b/universal.c index 31666be8f5..476b13f5f9 100644 --- a/universal.c +++ b/universal.c @@ -66,6 +66,7 @@ S_isa_lookup(pTHX_ HV *stash, const char * const name) 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", |