From 96090bfdf053854d56ae5c45fcf6eef606782969 Mon Sep 17 00:00:00 2001 From: "bilbo@ua.fm" Date: Wed, 28 Apr 2004 03:19:55 +0300 Subject: [PATCH] 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 --- win32/win32.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/win32/win32.c b/win32/win32.c index e18dec7..3188805 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; } -- 2.7.4