diff options
author | Lukas Mai <l.mai@web.de> | 2016-01-31 13:14:29 +0100 |
---|---|---|
committer | Lukas Mai <l.mai@web.de> | 2016-01-31 13:28:58 +0100 |
commit | 0bca550cf755b0872e05b868a2843e2035087f1a (patch) | |
tree | cd8f15b0539d873bd20174ce2d222c51c9308ab5 /ext/PerlIO-encoding | |
parent | 259f5e0bbc6277b397458cb905d37baaa68aaada (diff) | |
download | perl-0bca550cf755b0872e05b868a2843e2035087f1a.tar.gz |
PerlIO::encoding: explicitly cast char * to STDCHAR *
This should avoid the "pointer targets in assignment differ in
signedness" warning that pops up in some configurations.
Diffstat (limited to 'ext/PerlIO-encoding')
-rw-r--r-- | ext/PerlIO-encoding/encoding.pm | 2 | ||||
-rw-r--r-- | ext/PerlIO-encoding/encoding.xs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/PerlIO-encoding/encoding.pm b/ext/PerlIO-encoding/encoding.pm index 7bae036f52..13cb20b3bd 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.23'; +our $VERSION = '0.24'; 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 3e4645c0c8..ee0836ff73 100644 --- a/ext/PerlIO-encoding/encoding.xs +++ b/ext/PerlIO-encoding/encoding.xs @@ -462,8 +462,8 @@ PerlIOEncode_flush(pTHX_ PerlIO * f) if (!SvPOKp(e->bufsv) || SvTHINKFIRST(e->bufsv)) (void)SvPV_force_nolen(e->bufsv); if ((STDCHAR *)SvPVX(e->bufsv) != e->base.buf) { - e->base.ptr = SvEND(e->bufsv); - e->base.end = SvPVX(e->bufsv) + (e->base.end-e->base.buf); + e->base.ptr = (STDCHAR *)SvEND(e->bufsv); + e->base.end = (STDCHAR *)SvPVX(e->bufsv) + (e->base.end-e->base.buf); e->base.buf = (STDCHAR *)SvPVX(e->bufsv); } (void)PerlIOEncode_get_base(aTHX_ f); |