diff options
| author | Nicholas Clark <nick@ccl4.org> | 2014-03-02 09:50:38 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2014-03-19 10:57:53 +0100 |
| commit | d5eb9a4687ba974ffd0d02aab53326c5aba6a9e0 (patch) | |
| tree | ac42edbd4daada8d4b122daa07c4700ad8169abd /pp_hot.c | |
| parent | 4b451737e0f77cc9e91b1336d04f21659d96b732 (diff) | |
| download | perl-d5eb9a4687ba974ffd0d02aab53326c5aba6a9e0.tar.gz | |
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.
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)); |