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 | e0d5f7b4838e69a86f052af5fc7a763169e75aa8 (patch) | |
| tree | 9bbf69744e14f078efda952c5429307255111981 /utils/perldoc.PL | |
| parent | f567092be6d7737ea96c13c4f1f37e9234e6c024 (diff) | |
| download | perl-e0d5f7b4838e69a86f052af5fc7a763169e75aa8.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/perldoc.PL')
| -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; + } } } } |