diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-13 06:39:52 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-05-15 20:46:03 +0000 |
| commit | 7248df0ae3121db86f7eace13b08195914a6b2a1 (patch) | |
| tree | 4519d28cc3e251baaa7537be849884699a710039 /ext/PerlIO | |
| parent | 70194bd699eee0388870aca35b7bdf42b89957da (diff) | |
| download | perl-7248df0ae3121db86f7eace13b08195914a6b2a1.tar.gz | |
Minor tweak to via
Message-ID: <20050513163952.GA20167@petdance.com>
from a bug report and patch by Matt Lawrence
p4raw-id: //depot/perl@24471
Diffstat (limited to 'ext/PerlIO')
| -rw-r--r-- | ext/PerlIO/via/via.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/PerlIO/via/via.xs b/ext/PerlIO/via/via.xs index ad27416b0f..fffa689a52 100644 --- a/ext/PerlIO/via/via.xs +++ b/ext/PerlIO/via/via.xs @@ -133,7 +133,7 @@ PerlIOVia_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, } else { STRLEN pkglen = 0; - char *pkg = SvPV(arg, pkglen); + const char *pkg = SvPV(arg, pkglen); s->obj = SvREFCNT_inc(arg); s->stash = gv_stashpvn(pkg, pkglen, FALSE); if (!s->stash) { @@ -169,7 +169,7 @@ PerlIOVia_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, ? &PL_sv_yes : &PL_sv_no; result = PerlIOVia_method(aTHX_ f, MYMethod(UTF8), G_SCALAR, modesv, Nullsv); if (result && SvTRUE(result)) { - PerlIOBase(f)->flags |= ~PERLIO_F_UTF8; + PerlIOBase(f)->flags |= PERLIO_F_UTF8; } else { PerlIOBase(f)->flags &= ~PERLIO_F_UTF8; @@ -247,7 +247,7 @@ PerlIOVia_open(pTHX_ PerlIO_funcs * self, PerlIO_list_t * layers, else { /* Required open method not present */ PerlIO_funcs *tab = NULL; - IV m = n - 1; + const IV m = n - 1; while (m >= 0) { PerlIO_funcs *t = PerlIO_layer_fetch(aTHX_ layers, m, NULL); @@ -456,7 +456,7 @@ PerlIOVia_fill(pTHX_ PerlIO * f) } if (result && SvOK(result)) { STRLEN len = 0; - char *p = SvPV(result, len); + const char *p = SvPV(result, len); s->var = newSVpvn(p, len); s->cnt = SvCUR(s->var); return 0; |