diff options
| author | Craig A. Berry <craigberry@mac.com> | 2000-10-22 18:03:08 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-23 04:10:11 +0000 |
| commit | 5a1c91bc6680ef432aebd3fb0b4da6608e85c839 (patch) | |
| tree | 9bbf69744e14f078efda952c5429307255111981 /utils | |
| parent | 930bb605ecdcb8881ce43f9b10bef7ba20e98f66 (diff) | |
| download | perl-5a1c91bc6680ef432aebd3fb0b4da6608e85c839.tar.gz | |
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
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perldoc.PL | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/utils/perldoc.PL b/utils/perldoc.PL index e1dd783e86..313be205dd 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; + } } } } |