diff options
| author | bilbo@ua.fm <bilbo@ua.fm> | 2004-04-28 03:19:55 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-05-06 12:33:14 +0000 |
| commit | 96090bfdf053854d56ae5c45fcf6eef606782969 (patch) | |
| tree | edb130b2310f4054cccae8a996d0ff52a240be1c /win32 | |
| parent | 4a39fcdeb5ff8d29084cd5cfbaed223de8adf4c1 (diff) | |
| download | perl-96090bfdf053854d56ae5c45fcf6eef606782969.tar.gz | |
Problem with system() on Win9x and command.com (perl 5.8.x-5.9.x)
Message-ID: <611491036.20040428001955@ua.fm>
p4raw-id: //depot/perl@22789
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/win32/win32.c b/win32/win32.c index e18dec78d2..3188805c69 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -3601,7 +3601,8 @@ create_command_line(char *cname, STRLEN clen, const char * const *args) || (IsWinNT() && stricmp(&cname[clen-4], ".cmd") == 0))) { bat_file = TRUE; - len += 3; + if (!IsWin95()) + len += 3; } else { char *exe = strrchr(cname, '/'); @@ -3638,7 +3639,7 @@ create_command_line(char *cname, STRLEN clen, const char * const *args) New(1310, cmd, len, char); ptr = cmd; - if (bat_file) { + if (bat_file && !IsWin95()) { *ptr++ = '"'; extra_quotes = TRUE; } |