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/sv.c b/sv.c
index 1418cf78e9..4198a2b6c2 100644
--- a/sv.c
+++ b/sv.c
@@ -6704,7 +6704,7 @@ Perl_sv_2io(pTHX_ SV *sv)
 	    Perl_croak(aTHX_ PL_no_usym, "filehandle");
 	if (SvROK(sv))
 	    return sv_2io(SvRV(sv));
-	gv = gv_fetchsv(sv, FALSE, SVt_PVIO);
+	gv = gv_fetchsv(sv, 0, SVt_PVIO);
 	if (gv)
 	    io = GvIO(gv);
 	else