diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-19 14:53:36 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-19 14:53:36 +0000 |
| commit | b0c482e323c9b6fa5590fdfb97e98a5b7645a046 (patch) | |
| tree | c0ca979c12b8716b05f37869227cbf88f2029bca | |
| parent | 14f97ce6b1baa27085a0b448ebaba39310e8ed92 (diff) | |
| download | perl-b0c482e323c9b6fa5590fdfb97e98a5b7645a046.tar.gz | |
Put the "Can't locate package..." warnings in the "syntax"
category, as documented
p4raw-id: //depot/perl@30982
| -rw-r--r-- | gv.c | 4 | ||||
| -rw-r--r-- | mro.c | 4 | ||||
| -rw-r--r-- | universal.c | 2 |
3 files changed, 5 insertions, 5 deletions
@@ -416,8 +416,8 @@ Perl_gv_fetchmeth(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) yet we still need to issue this warning when appropriate. */ if (!cstash || (HvMROMETA(cstash)->fake && !HvFILL(cstash))) { - if (ckWARN(WARN_MISC)) - Perl_warner(aTHX_ packWARN(WARN_MISC), "Can't locate package %"SVf" for @%s::ISA", + if (ckWARN(WARN_SYNTAX)) + Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Can't locate package %"SVf" for @%s::ISA", SVfARG(linear_sv), hvname); continue; } @@ -651,8 +651,8 @@ __nextcan(pTHX_ SV* self, I32 throw_nomethod) curstash = gv_stashsv(linear_sv, FALSE); if (!curstash || (HvMROMETA(curstash)->fake && !HvFILL(curstash))) { - if (ckWARN(WARN_MISC)) - Perl_warner(aTHX_ packWARN(WARN_MISC), "Can't locate package %"SVf" for @%s::ISA", + if (ckWARN(WARN_SYNTAX)) + Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Can't locate package %"SVf" for @%s::ISA", (void*)linear_sv, hvname); continue; } diff --git a/universal.c b/universal.c index d4aa97e65c..172b3d0f8a 100644 --- a/universal.c +++ b/universal.c @@ -63,7 +63,7 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, const HV* const name_stash, SV* const basename_sv = *svp++; HV* basestash = gv_stashsv(basename_sv, 0); if (!basestash) { - if (ckWARN(WARN_MISC)) + if (ckWARN(WARN_SYNTAX)) Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Can't locate package %"SVf" for the parents of %s", SVfARG(basename_sv), hvname); |