diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-10-19 11:59:30 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-19 21:10:43 +0000 |
| commit | f3298698649960f55687abba6097c0cc3538214a (patch) | |
| tree | bea1276c0fdfa694da683b216ba805c5474b591a /utils/perldoc.PL | |
| parent | 96e176bf068724d05d4927c116d41d2f78a2560d (diff) | |
| download | perl-f3298698649960f55687abba6097c0cc3538214a.tar.gz | |
perldoc.PL tweak for VMS
Message-Id: <5.1.0.14.2.20011019162623.021e3868@exchi01>
p4raw-id: //depot/perl@12514
Diffstat (limited to 'utils/perldoc.PL')
| -rw-r--r-- | utils/perldoc.PL | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index 22fdd1cfdb..7f8216a006 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; } |