From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 19 Apr 2007 14:53:36 +0000 (+0000)
Subject: Put the "Can't locate package..." warnings in the "syntax"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b0c482e323c9b6fa5590fdfb97e98a5b7645a046;p=p5sagit%2Fp5-mst-13.2.git

Put the "Can't locate package..." warnings in the "syntax"
category, as documented

p4raw-id: //depot/perl@30982
---

diff --git a/gv.c b/gv.c
index 53b25b6..fc61e8c 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 61dbad3..b6c4db8 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 d4aa97e..172b3d0 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);