summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-04-19 14:53:36 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-04-19 14:53:36 +0000
commitb0c482e323c9b6fa5590fdfb97e98a5b7645a046 (patch)
treec0ca979c12b8716b05f37869227cbf88f2029bca
parent14f97ce6b1baa27085a0b448ebaba39310e8ed92 (diff)
downloadperl-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.c4
-rw-r--r--mro.c4
-rw-r--r--universal.c2
3 files changed, 5 insertions, 5 deletions
diff --git a/gv.c b/gv.c
index 53b25b6615..fc61e8cd8b 100644
--- a/gv.c
+++ b/gv.c
@@ -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;
}
diff --git a/mro.c b/mro.c
index 61dbad3af9..b6c4db8ea5 100644
--- a/mro.c
+++ b/mro.c
@@ -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);