From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 5 May 1999 16:20:19 +0000 (+0000)
Subject: make perldoc use backslashed pathnames within system() on win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5311ebfa4a0d242cabb33e39a939e0a9c15a8d29;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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 );