From d5eb9a4687ba974ffd0d02aab53326c5aba6a9e0 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sun, 2 Mar 2014 09:50:38 +0100 Subject: Change core uses of Perl_do_openn() to Perl_do_open6() or Perl_do_open_raw(). Calls to Perl_do_openn() all have at least 2 unused arguments which clutter the code and hinder easy understanding. Perl_do_open6() and Perl_do_open_raw() each only do one job, so don't have the dead arguments. --- pp_hot.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index 3a19f527fe..c3637cd381 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -1562,7 +1562,7 @@ Perl_do_readline(pTHX) IoLINES(io) = 0; if (av_tindex(GvAVn(PL_last_in_gv)) < 0) { IoFLAGS(io) &= ~IOf_START; - do_open(PL_last_in_gv,"-",1,FALSE,O_RDONLY,0,NULL); + do_open6(PL_last_in_gv, "-", 1, NULL, NULL, 0); SvTAINTED_off(GvSVn(PL_last_in_gv)); /* previous tainting irrelevant */ sv_setpvs(GvSVn(PL_last_in_gv), "-"); SvSETMAGIC(GvSV(PL_last_in_gv)); -- cgit v1.2.1