diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-05 16:20:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-05 16:20:19 +0000 |
| commit | 5311ebfa4a0d242cabb33e39a939e0a9c15a8d29 (patch) | |
| tree | 6aa6024e48f7171924721c59c57c443401578751 /utils | |
| parent | e9fdc7d2ad34e80787f760dcc04e2f23a1599092 (diff) | |
| download | perl-5311ebfa4a0d242cabb33e39a939e0a9c15a8d29.tar.gz | |
make perldoc use backslashed pathnames within system() on win32
p4raw-id: //depot/perl@3305
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 1 |
1 files changed, 1 insertions, 0 deletions
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 ); |