From: Jan Dubois Date: Mon, 26 May 2003 23:33:53 +0000 (-0700) Subject: Use "cmd.exe /x/d/c" as the default PERL5SHELL on Windows NT/2K/XP X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7b24c8f3b02202da900623391393234a869d1b34;p=p5sagit%2Fp5-mst-13.2.git Use "cmd.exe /x/d/c" as the default PERL5SHELL on Windows NT/2K/XP Message-ID: p4raw-id: //depot/perl@19628 --- diff --git a/pod/perlrun.pod b/pod/perlrun.pod index 2b63c6b..76f0e2d 100644 --- a/pod/perlrun.pod +++ b/pod/perlrun.pod @@ -1061,7 +1061,7 @@ The command used to load the debugger code. The default is: =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 +executing "backtick" commands or system(). Default is C on WindowsNT and 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. diff --git a/win32/win32.c b/win32/win32.c index c409203..0b4e220 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,