From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 19 Oct 2001 16:59:30 +0000 (-0500)
Subject: perldoc.PL tweak for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f3298698649960f55687abba6097c0cc3538214a;p=p5sagit%2Fp5-mst-13.2.git

perldoc.PL tweak for VMS
Message-Id: <5.1.0.14.2.20011019162623.021e3868@exchi01>

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

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index 22fdd1c..7f8216a 100644
--- a/utils/perldoc.PL
+++ b/utils/perldoc.PL
@@ -371,9 +371,13 @@ sub page {
 	close TMP		or die "Can't close while $tmp: $!";
     }
     else {
-	foreach my $pager (@pagers) {
+        # On VMS, quoting prevents logical expansion, and temp files with no
+        # extension get the wrong default extension (such as .LIS for TYPE)
+
+        $tmp = VMS::Filespec::rmsexpand($tmp, '.') if ($Is_VMS);
+        foreach my $pager (@pagers) {
           if ($Is_VMS) {
-           last if system("$pager $tmp") == 0; # quoting prevents logical expansion
+            last if system("$pager $tmp") == 0;
           } else {
 	    last if system("$pager \"$tmp\"") == 0;
           }