summaryrefslogtreecommitdiff
path: root/win32
diff options
context:
space:
mode:
authorJan Dubois <jand@activestate.com>2003-05-26 16:33:53 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2003-05-28 05:26:43 +0000
commit7b24c8f3b02202da900623391393234a869d1b34 (patch)
tree2880462f6c4cf944ca5b2091503df8ac1e9c5fdd /win32
parente42fa77b579283ff48061baf2c5174858a85329a (diff)
downloadperl-7b24c8f3b02202da900623391393234a869d1b34.tar.gz
Use "cmd.exe /x/d/c" as the default PERL5SHELL on Windows NT/2K/XP
Message-ID: <dv06dv48900iqv5hqddmbc6vt0efvto8d6@4ax.com> p4raw-id: //depot/perl@19628
Diffstat (limited to 'win32')
-rw-r--r--win32/win32.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/win32/win32.c b/win32/win32.c
index c40920332d..0b4e220577 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -506,7 +506,7 @@ get_shell(void)
* 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,