Change 19628 by [EMAIL PROTECTED] on 2003/05/28 05:26:43
Subject: [PATCH] Use "cmd.exe /x/d/c" as the default PERL5SHELL on Windows
NT/2K/XP
From: Jan Dubois <[EMAIL PROTECTED]>
Date: Mon, 26 May 2003 23:33:53 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pod/perlrun.pod#89 edit
... //depot/perl/win32/win32.c#218 edit
Differences ...
==== //depot/perl/pod/perlrun.pod#89 (text) ====
Index: perl/pod/perlrun.pod
--- perl/pod/perlrun.pod#88~19241~ Wed Apr 16 10:24:24 2003
+++ perl/pod/perlrun.pod Tue May 27 22:26:43 2003
@@ -1061,7 +1061,7 @@
=item PERL5SHELL (specific to the Win32 port)
May be set to an alternative shell that perl must use internally for
-executing "backtick" commands or system(). Default is C<cmd.exe /x/c>
+executing "backtick" commands or system(). Default is C<cmd.exe /x/d/c>
on WindowsNT and C<command.com /c> on Windows95. The value is considered
to be space-separated. Precede any character that needs to be protected
(like a space or backslash) with a backslash.
==== //depot/perl/win32/win32.c#218 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c#217~19484~ Sun May 11 08:37:14 2003
+++ perl/win32/win32.c Tue May 27 22:26:43 2003
@@ -506,7 +506,7 @@
* for).
*/
const char* defaultshell = (IsWinNT()
- ? "cmd.exe /x/c" : "command.com /c");
+ ? "cmd.exe /x/d/c" : "command.com /c");
const char *usershell = PerlEnv_getenv("PERL5SHELL");
w32_perlshell_items = tokenize(usershell ? usershell : defaultshell,
&w32_perlshell_tokens,
End of Patch.
