This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Problem with system() on Win9x and command.com (perl 5.8.x-5.9.x)
authorbilbo@ua.fm <bilbo@ua.fm>
Wed, 28 Apr 2004 00:19:55 +0000 (03:19 +0300)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 6 May 2004 12:33:14 +0000 (12:33 +0000)
Message-ID: <611491036.20040428001955@ua.fm>

p4raw-id: //depot/perl@22789

win32/win32.c

index e18dec7..3188805 100644 (file)
@@ -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;
     }