From: bilbo@ua.fm <bilbo@ua.fm>
Date: Wed, 28 Apr 2004 00:19:55 +0000 (+0300)
Subject: Problem with system() on Win9x and command.com (perl 5.8.x-5.9.x)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96090bfdf053854d56ae5c45fcf6eef606782969;p=p5sagit%2Fp5-mst-13.2.git

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
---

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;
     }