Quote the temp file name, needed in Win32 because the

default name unfortunately contains spaces, shouldn't
hurt elsewhere.

Subject: FW: perldoc fails if $TEMP contains spaces
Message-ID: <714DFA46B9BBD0119CD000805FC1F53B012A82AA@UKRUX002.rundc.uk.origin-it.com>

p4raw-id: //depot/perl@7187

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index dc145e3..e1dd783 100644 (file)
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -409,7 +409,7 @@ sub page {
     }
     else {
        foreach my $pager (@pagers) {
-           last if system("$pager $tmp") == 0;
+           last if system("$pager \"$tmp\"") == 0;
        }
     }
 }