diff options
| author | Yves Orton <demerphq@gmail.com> | 2021-02-12 11:52:39 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2021-02-12 19:21:28 +0100 |
| commit | 02796811fc1c6df226e84718831dbe2354e4e181 (patch) | |
| tree | 22318a27190ce22a5140878c96abc0fbb602694f /ext/PerlIO-encoding | |
| parent | 4de2690c76c1d4569e6e698f0cf54b7ec8e183b9 (diff) | |
| download | perl-02796811fc1c6df226e84718831dbe2354e4e181.tar.gz | |
PerlIO-encoding - add parens to silence build warnings
Diffstat (limited to 'ext/PerlIO-encoding')
| -rw-r--r-- | ext/PerlIO-encoding/encoding.pm | 2 | ||||
| -rw-r--r-- | ext/PerlIO-encoding/encoding.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/PerlIO-encoding/encoding.pm b/ext/PerlIO-encoding/encoding.pm index c80a96e7a7..bd5553ffe6 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.29'; +our $VERSION = '0.30'; 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 9deb20bf26..27d6c9d0c7 100644 --- a/ext/PerlIO-encoding/encoding.xs +++ b/ext/PerlIO-encoding/encoding.xs @@ -172,7 +172,7 @@ PerlIOEncode_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, PerlIO_funcs * e->chk = newSVsv(get_sv("PerlIO::encoding::fallback", 0)); if (SvROK(e->chk)) Perl_croak(aTHX_ "PerlIO::encoding::fallback must be an integer"); - SvUV_set(e->chk, SvUV(e->chk) & ~encode_leave_src | encode_stop_at_partial); + SvUV_set(e->chk, ((SvUV(e->chk) & ~encode_leave_src) | encode_stop_at_partial)); e->inEncodeCall = 0; FREETMPS; |