diff options
Diffstat (limited to 'ext/PerlIO/via/via.xs')
| -rw-r--r-- | ext/PerlIO/via/via.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/PerlIO/via/via.xs b/ext/PerlIO/via/via.xs index 36e739adf5..5670887e18 100644 --- a/ext/PerlIO/via/via.xs +++ b/ext/PerlIO/via/via.xs @@ -135,13 +135,13 @@ PerlIOVia_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, STRLEN pkglen = 0; const char *pkg = SvPV(arg, pkglen); s->obj = SvREFCNT_inc(arg); - s->stash = gv_stashpvn(pkg, pkglen, FALSE); + s->stash = gv_stashpvn(pkg, pkglen, 0); if (!s->stash) { SvREFCNT_dec(s->obj); s->obj = newSVpvn(Perl_form(aTHX_ "PerlIO::via::%s", pkg), pkglen + 13); - s->stash = gv_stashpvn(SvPVX_const(s->obj), pkglen + 13, FALSE); + s->stash = gv_stashpvn(SvPVX_const(s->obj), pkglen + 13, 0); } if (s->stash) { char lmode[8]; |