gv_fetchpv, gv_fetchpvn and gv_fetchsv take a bitmask of flags, rather

[p5sagit/p5-mst-13.2.git] / universal.c

diff --git a/universal.c b/universal.c
index 824a4d5..784fe53 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -851,7 +851,7 @@ XS(XS_PerlIO_get_layers)
             if (SvROK(sv) && isGV(SvRV(sv)))
                  gv = (GV*)SvRV(sv);
             else if (SvPOKp(sv))
-                 gv = gv_fetchsv(sv, FALSE, SVt_PVIO);
+                 gv = gv_fetchsv(sv, 0, SVt_PVIO);
        }
 
        if (gv && (io = GvIO(gv))) {