X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=universal.c;h=9bf3efcb6e398393b7a4ebbf7f79aa609cc673d3;hb=134ca994cfefe0f613d43505a885e4fc2100b05c;hp=bf03261db78fed6d07c33c54530ed7a59d0abd2f;hpb=3280af22f58e7b37514ed104858e2c2fc55ceeeb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/universal.c b/universal.c
index bf03261..9bf3efc 100644
--- a/universal.c
+++ b/universal.c
@@ -53,8 +53,10 @@ isa_lookup(HV *stash, char *name, int len, int level)
 		SV* sv = *svp++;
 		HV* basestash = gv_stashsv(sv, FALSE);
 		if (!basestash) {
-		    if (PL_dowarn)
-			warn("Can't locate package %s for @%s::ISA",
+		    dTHR;
+		    if (ckWARN(WARN_MISC))
+			warner(WARN_SYNTAX,
+		             "Can't locate package %s for @%s::ISA",
 			    SvPVX(sv), HvNAME(stash));
 		    continue;
 		}