From: Paul Moore <Paul.Moore@uk.origin-it.com>
Date: Thu, 14 Sep 2000 08:58:45 +0000 (+0100)
Subject: Quote the temp file name, needed in Win32 because the
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a79ff10558a3b8e128b0898794bddcf07255f408;p=p5sagit%2Fp5-mst-13.2.git

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