summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>2017-01-17 17:37:56 +0000
committerSawyer X <xsawyerx@cpan.org>2017-06-01 13:33:43 +0200
commit7e30e49f7461aeda1a5ab4539abfbe54f0f50e67 (patch)
tree9dcb2b86779d59f2b674b2930db01bd3b1ad7900 /pp_sys.c
parent6b57559b3d5389dc65364f9910d81b3e8b08e144 (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 7a5703515c..98f36453b2 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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);
}