change#19628 broke many win32/system.t tests, so back it out

p4raw-link: @19628 on //depot/perl: 7b24c8f3b02202da900623391393234a869d1b34

p4raw-id: //depot/perl@19666

diff --git a/pod/perlrun.pod b/pod/perlrun.pod
index 76f0e2d..2b63c6b 100644 (file)
--- 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<cmd.exe /x/d/c>
+executing "backtick" commands or system().  Default is C<cmd.exe /x/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.

diff --git a/win32/win32.c b/win32/win32.c
index 0b4e220..c409203 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -506,7 +506,7 @@ get_shell(void)
         *     for).
         */
        const char* defaultshell = (IsWinNT()
-                                   ? "cmd.exe /x/d/c" : "command.com /c");
+                                   ? "cmd.exe /x/c" : "command.com /c");
        const char *usershell = PerlEnv_getenv("PERL5SHELL");
        w32_perlshell_items = tokenize(usershell ? usershell : defaultshell,
                                       &w32_perlshell_tokens,