make perldoc use backslashed pathnames within system() on win32

[perl5.git] / utils / perldoc.PL

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