In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/c06ca716ce458b20140871c57c11565c66c5f710?hp=af61dbfdfb97af17b1150478d07da724cd530424>
- Log -----------------------------------------------------------------
commit c06ca716ce458b20140871c57c11565c66c5f710
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date: Fri Jan 15 17:39:46 2010 +0100
Bump version of PerlIO::encoding
M ext/PerlIO-encoding/encoding.pm
commit 1bb5f2059539b5573bb73de8c3a235284687220b
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date: Fri Jan 15 17:37:36 2010 +0100
The warnings emitted by PerlIO::encoding should be silenceable.
Make them mandatory warnings.
M ext/PerlIO-encoding/encoding.xs
-----------------------------------------------------------------------
Summary of changes:
ext/PerlIO-encoding/encoding.pm | 2 +-
ext/PerlIO-encoding/encoding.xs | 13 ++++++++-----
2 files changed, 9 insertions(+), 6 deletions(-)
diff --git a/ext/PerlIO-encoding/encoding.pm b/ext/PerlIO-encoding/encoding.pm
index f50c9c7..4b44670 100644
--- a/ext/PerlIO-encoding/encoding.pm
+++ b/ext/PerlIO-encoding/encoding.pm
@@ -1,7 +1,7 @@
package PerlIO::encoding;
use strict;
-our $VERSION = '0.11';
+our $VERSION = '0.12';
our $DEBUG = 0;
$DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
diff --git a/ext/PerlIO-encoding/encoding.xs b/ext/PerlIO-encoding/encoding.xs
index dc69819..2d515b6 100644
--- a/ext/PerlIO-encoding/encoding.xs
+++ b/ext/PerlIO-encoding/encoding.xs
@@ -108,8 +108,9 @@ PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV
* arg, PerlIO_funcs *
if (!SvROK(result) || !SvOBJECT(SvRV(result))) {
e->enc = Nullsv;
- Perl_warner(aTHX_ packWARN(WARN_IO), "Cannot find encoding \"%" SVf
"\"",
- arg);
+ if (ckWARN_d(WARN_IO))
+ Perl_warner(aTHX_ packWARN(WARN_IO), "Cannot find encoding \"%"
SVf "\"",
+ arg);
errno = EINVAL;
code = -1;
}
@@ -120,8 +121,9 @@ PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV
* arg, PerlIO_funcs *
XPUSHs(result);
PUTBACK;
if (call_method("renew",G_SCALAR|G_EVAL) != 1 || SvTRUE(ERRSV)) {
- Perl_warner(aTHX_ packWARN(WARN_IO), "\"%" SVf "\" does not support
renew method",
- arg);
+ if (ckWARN_d(WARN_IO))
+ Perl_warner(aTHX_ packWARN(WARN_IO), "\"%" SVf "\" does not
support renew method",
+ arg);
}
else {
SPAGAIN;
@@ -133,7 +135,8 @@ PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV
* arg, PerlIO_funcs *
XPUSHs(e->enc);
PUTBACK;
if (call_method("needs_lines",G_SCALAR|G_EVAL) != 1 || SvTRUE(ERRSV)) {
- Perl_warner(aTHX_ packWARN(WARN_IO), "\"%" SVf "\" does not support
needs_lines",
+ if (ckWARN_d(WARN_IO))
+ Perl_warner(aTHX_ packWARN(WARN_IO), "\"%" SVf "\" does not
support needs_lines",
arg);
}
else {
--
Perl5 Master Repository
