Change 12514 by jhi@alpha on 2001/10/19 21:10:43
Subject: [PATCH perl@12494] perldoc.PL tweak for VMS
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Fri, 19 Oct 2001 16:59:30 -0500
Message-Id: <5.1.0.14.2.20011019162623.021e3868@exchi01>
Affected files ...
... //depot/perl/utils/perldoc.PL#57 edit
Differences ...
==== //depot/perl/utils/perldoc.PL#57 (text) ====
Index: perl/utils/perldoc.PL
--- perl/utils/perldoc.PL.~1~ Fri Oct 19 15:15:05 2001
+++ perl/utils/perldoc.PL Fri Oct 19 15:15:05 2001
@@ -371,9 +371,13 @@
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;
}
End of Patch.
