From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 22 Oct 2000 23:03:08 +0000 (-0500)
Subject: The change #7187 was not so good on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e0d5f7b4838e69a86f052af5fc7a763169e75aa8;p=p5sagit%2Fp5-mst-13.2.git

The change #7187 was not so good on VMS.

Subject: [PATCH perl@7369] VMS perldoc.PL fix for double quoted temp filename
Message-Id: <p04330102b617d093470b@[172.16.52.1]>

p4raw-link: @7187 on //depot/perl: a79ff10558a3b8e128b0898794bddcf07255f408

p4raw-id: //depot/perl@7410
---

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index e1dd783..313be20 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -409,7 +409,11 @@ sub page {
     }
     else {
 	foreach my $pager (@pagers) {
+          if ($Is_VMS) {
+           last if system("$pager $tmp") == 0; # quoting prevents logical expansion
+          } else {
 	    last if system("$pager \"$tmp\"") == 0;
+          }
 	}
     }
 }