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 (file)
--- 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;
           }