diff options
author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2017-01-17 17:37:56 +0000 |
---|---|---|
committer | Sawyer X <xsawyerx@cpan.org> | 2017-06-01 13:33:43 +0200 |
commit | 7e30e49f7461aeda1a5ab4539abfbe54f0f50e67 (patch) | |
tree | 9dcb2b86779d59f2b674b2930db01bd3b1ad7900 /pp_sys.c | |
parent | 6b57559b3d5389dc65364f9910d81b3e8b08e144 (diff) | |
download | perl-7e30e49f7461aeda1a5ab4539abfbe54f0f50e67.tar.gz |
Eliminate remaining uses of PL_statbuf
Give Perl_nextargv its own statbuf and pass a pointer to it into
Perl_do_open_raw and thence S_openn_cleanup when needed.
Also reduce the scope of the existing statbuf in Perl_nextargv to make
it clear it's distinct from the one populated by do_open_raw.
Fix perldelta entry for PL_statbuf removal
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1659,7 +1659,7 @@ PP(pp_sysopen) /* Need TIEHANDLE method ? */ const char * const tmps = SvPV_const(sv, len); - if (do_open_raw(gv, tmps, len, mode, perm)) { + if (do_open_raw(gv, tmps, len, mode, perm, NULL)) { IoLINES(GvIOp(gv)) = 0; PUSHs(&PL_sv_yes); } |