diff options
| -rw-r--r-- | pod/perldiag.pod | 2 | ||||
| -rw-r--r-- | pod/perlthrtut.pod | 2 | ||||
| -rw-r--r-- | utils/perldoc.PL | 1 |
3 files changed, 3 insertions, 2 deletions
diff --git a/pod/perldiag.pod b/pod/perldiag.pod index 7e5ab16a04..8bc5cdb23c 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 db2a319093..f2ca3bda64 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 ed533f518f..d4090c88a6 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 ); |