diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2002-03-20 22:56:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-20 21:57:22 +0000 |
| commit | f98bc0c60b037c4df60741a875da49b98d04509c (patch) | |
| tree | 9764fb451b55c02c50d715d2df803b638010b23a /ext | |
| parent | a634c1702b9b72e0d5017b79d9c7d13ca05c52b9 (diff) | |
| download | perl-f98bc0c60b037c4df60741a875da49b98d04509c.tar.gz | |
From: "Paul Marquess" <paul_marquess@yahoo.co.uk>
Message-ID: <AIEAJICLCBDNAAOLLOKLEEEAEAAA.paul_marquess@yahoo.co.uk>
packWARN also for subdirs.
p4raw-id: //depot/perl@15378
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/Encode.xs | 4 | ||||
| -rw-r--r-- | ext/attrs/attrs.xs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs index 0ac0e0fed5..44e5e2243a 100644 --- a/ext/Encode/Encode.xs +++ b/ext/Encode/Encode.xs @@ -91,7 +91,7 @@ PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg) if (!SvROK(e->enc)) { e->enc = Nullsv; errno = EINVAL; - Perl_warner(aTHX_ WARN_IO, "Cannot find encoding \"%" SVf "\"", + Perl_warner(aTHX_ packWARN(WARN_IO), "Cannot find encoding \"%" SVf "\"", arg); code = -1; } @@ -541,7 +541,7 @@ encode_method(pTHX_ encode_t * enc, encpage_t * dir, SV * src, UV ch = utf8n_to_uvuni(s + slen, (SvCUR(src) - slen), &clen, 0); - Perl_warner(aTHX_ WARN_UTF8, + Perl_warner(aTHX_ packWARN(WARN_UTF8), "\"\\N{U+%" UVxf "}\" does not map to %s", ch, enc->name[0]); diff --git a/ext/attrs/attrs.xs b/ext/attrs/attrs.xs index 142f09aeb2..73f100decc 100644 --- a/ext/attrs/attrs.xs +++ b/ext/attrs/attrs.xs @@ -28,7 +28,7 @@ import(...) if (!PL_compcv || !(cv = CvOUTSIDE(PL_compcv))) croak("can't set attributes outside a subroutine scope"); if (ckWARN(WARN_DEPRECATED)) - Perl_warner(aTHX_ WARN_DEPRECATED, + Perl_warner(aTHX_ packWARN(WARN_DEPRECATED), "pragma \"attrs\" is deprecated, " "use \"sub NAME : ATTRS\" instead"); for (i = 1; i < items; i++) { |