From 599cee73f2261c5e09cde7ceba3f9a896989e117 Mon Sep 17 00:00:00 2001 From: Paul Marquess Date: Wed, 29 Jul 1998 10:28:45 +0100 Subject: lexical warnings; tweaks to places that didn't apply correctly Message-Id: <9807290828.AA26286@claudius.bfsec.bt.co.uk> Subject: lexical warnings patch for 5.005_50 p4raw-id: //depot/perl@1773 --- universal.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'universal.c') diff --git a/universal.c b/universal.c index bf03261db7..2707e46d89 100644 --- a/universal.c +++ b/universal.c @@ -53,8 +53,9 @@ 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", + if (ckWARN(WARN_MISC)) + warner(WARN_SYNTAX, + "Can't locate package %s for @%s::ISA", SvPVX(sv), HvNAME(stash)); continue; } -- cgit v1.2.1