diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2002-03-25 13:01:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-25 14:10:20 +0000 |
| commit | 99ef548ba710eb2617804c989e4d5fdae1f04f37 (patch) | |
| tree | 8295e26e58493474c765534c211849219ab506c7 /ext/PerlIO/Via/Via.xs | |
| parent | 696235b60874be65fe029a39969f44a0133ec2f8 (diff) | |
| download | perl-99ef548ba710eb2617804c989e4d5fdae1f04f37.tar.gz | |
warnings for perlio + others
From: "Paul Marquess" <paul_marquess@yahoo.co.uk>
Message-ID: <AIEAJICLCBDNAAOLLOKLMEKNEAAA.paul_marquess@yahoo.co.uk>
p4raw-id: //depot/perl@15485
Diffstat (limited to 'ext/PerlIO/Via/Via.xs')
| -rw-r--r-- | ext/PerlIO/Via/Via.xs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/PerlIO/Via/Via.xs b/ext/PerlIO/Via/Via.xs index d1d4e644f0..af5f5ea00f 100644 --- a/ext/PerlIO/Via/Via.xs +++ b/ext/PerlIO/Via/Via.xs @@ -115,7 +115,8 @@ PerlIOVia_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg) PerlIOVia *s = PerlIOSelf(f,PerlIOVia); if (!arg) { - Perl_warn(aTHX_ "No package specified"); + if (ckWARN(WARN_LAYER)) + Perl_warner(aTHX_ packWARN(WARN_LAYER), "No package specified"); code = -1; } else @@ -145,7 +146,8 @@ PerlIOVia_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg) } else { - Perl_warn(aTHX_ "Cannot find package '%.*s'",(int) pkglen,pkg); + if (ckWARN(WARN_LAYER)) + Perl_warner(aTHX_ packWARN(WARN_LAYER), "Cannot find package '%.*s'",(int) pkglen,pkg); #ifdef ENOSYS errno = ENOSYS; #else |