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 (file)
--- 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 (file)
--- 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 (file)
--- 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);