From d50541e1f2ca48a36decdc63a6f00b99befb153f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= Date: Sun, 17 Jan 2016 15:52:30 +0000 Subject: [perl #121351] Remove non-doio.c uses of PL_statbuf These are the last remaining uses outside the interwoven mess in S_openn_cleanup, openn_setup, and their callers in doio.c. --- os2/os2.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'os2') diff --git a/os2/os2.c b/os2/os2.c index 8c5e941b48..a4f5015fb1 100644 --- a/os2/os2.c +++ b/os2/os2.c @@ -1140,6 +1140,7 @@ do_spawn_ve(pTHX_ SV *really, U32 flag, U32 execf, char *inicmd, U32 addflag) if (!buf) buf = ""; /* XXX Needed? */ if (!buf[0]) { /* Empty... */ + struct stat statbuf; PerlIO_close(file); /* Special case: maybe from -Zexe build, so there is an executable around (contrary to @@ -1148,8 +1149,8 @@ do_spawn_ve(pTHX_ SV *really, U32 flag, U32 execf, char *inicmd, U32 addflag) reached this place). */ sv_catpv(scrsv, ".exe"); PL_Argv[0] = scr = SvPV(scrsv, n_a); /* Reload */ - if (PerlLIO_stat(scr,&PL_statbuf) >= 0 - && !S_ISDIR(PL_statbuf.st_mode)) { /* Found */ + if (PerlLIO_stat(scr,&statbuf) >= 0 + && !S_ISDIR(statbuf.st_mode)) { /* Found */ real_name = scr; pass++; goto reread; -- cgit v1.2.1