diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-19 14:53:36 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-19 14:53:36 +0000 |
| commit | b0c482e323c9b6fa5590fdfb97e98a5b7645a046 (patch) | |
| tree | c0ca979c12b8716b05f37869227cbf88f2029bca /universal.c | |
| parent | 14f97ce6b1baa27085a0b448ebaba39310e8ed92 (diff) | |
| download | perl-b0c482e323c9b6fa5590fdfb97e98a5b7645a046.tar.gz | |
Put the "Can't locate package..." warnings in the "syntax"
category, as documented
p4raw-id: //depot/perl@30982
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 2 |
1 files changed, 1 insertions, 1 deletions
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); |