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

diff --git a/utils/perldoc.PL b/utils/perldoc.PL
index e1dd783..313be20 100644 (file)
--- 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;
+          }
        }
     }
 }