make perldoc use backslashed pathnames within system() on win32

p4raw-id: //depot/perl@3305

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index 7e5ab16..8bc5cdb 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -2926,7 +2926,7 @@ bad side effects.
 
 (W) An undefined value was used as if it were already defined.  It was
 interpreted as a "" or a 0, but maybe it was a mistake.  To suppress this
-warning assign an initial value to your variables.
+warning assign a defined value to your variables.
 
 =item Useless use of "re" pragma
 

diff --git a/pod/perlthrtut.pod b/pod/perlthrtut.pod
index db2a319..f2ca3bd 100644 (file)
--- a/pod/perlthrtut.pod
+++ b/pod/perlthrtut.pod
@@ -843,7 +843,7 @@ like so:
     use Config; 
     $Running_Threaded = 0;
 
-    BEGIN { $Running_Threaded = $Config{'usethreaded'} }
+    BEGIN { $Running_Threaded = $Config{'usethreads'} }
 
     sub sub1 { lock(\&sub1) if $Running_Threaded }
 

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index ed533f5..d4090c8 100644 (file)
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -384,6 +384,7 @@ if ($Is_MSWin32) {
        $tmp = "$ENV{TEMP}\\perldoc1.$$";
        push @pagers, qw( more< less notepad );
        unshift @pagers, $ENV{PAGER}  if $ENV{PAGER};
+       for (@found) { s,/,\\,g }
 } elsif ($Is_VMS) {
        $tmp = 'Sys$Scratch:perldoc.tmp1_'.$$;
        push @pagers, qw( most more less type/page );