diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-12-18 21:45:41 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-19 15:04:03 +0000 |
| commit | dfcfdb64cf0cdaf3745a1082d9b4a94480414c62 (patch) | |
| tree | dfc2125707e6a7bfbab5dcff74d64102e2c0509d /os2/os2.c | |
| parent | 505f3f16d6d7a74e8cf7e8f3a785787b06f153f9 (diff) | |
| download | perl-dfcfdb64cf0cdaf3745a1082d9b4a94480414c62.tar.gz | |
OS/2 build
Message-ID: <20011219024541.A29803@math.ohio-state.edu>
(skipped the t/TEST change)
p4raw-id: //depot/perl@13805
Diffstat (limited to 'os2/os2.c')
| -rw-r--r-- | os2/os2.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -618,14 +618,14 @@ do_spawn_ve(pTHX_ SV *really, U32 flag, U32 execf, char *inicmd, U32 addflag) if (strEQ(PL_Argv[0],"/bin/sh")) PL_Argv[0] = PL_sh_path; - if (PL_Argv[0][0] != '/' && PL_Argv[0][0] != '\\' - && !(PL_Argv[0][0] && PL_Argv[0][1] == ':' - && (PL_Argv[0][2] == '/' || PL_Argv[0][2] != '\\')) - ) /* will spawnvp use PATH? */ - TAINT_ENV(); /* testing IFS here is overkill, probably */ /* We should check PERL_SH* and PERLLIB_* as well? */ if (!really || !*(tmps = SvPV(really, n_a))) tmps = PL_Argv[0]; + if (tmps[0] != '/' && tmps[0] != '\\' + && !(tmps[0] && tmps[1] == ':' + && (tmps[2] == '/' || tmps[2] != '\\')) + ) /* will spawnvp use PATH? */ + TAINT_ENV(); /* testing IFS here is overkill, probably */ reread: force_shell = 0; |