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

than a simple boolean, so passing FALSE or TRUE is bogus.

p4raw-id: //depot/perl@26415

1 files changed, 1 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index c81ecbda37..4015d17149 100644
--- a/doio.c
+++ b/doio.c
@@ -336,7 +336,7 @@ Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw,
 			}
 			else {
 			    GV *thatgv;
-			    thatgv = gv_fetchpv(type,FALSE,SVt_PVIO);
+			    thatgv = gv_fetchpv(type,0,SVt_PVIO);
 			    thatio = GvIO(thatgv);
 			}
 			if (!thatio) {