[perl #8262] //g loops infinitely on tainted data

[p5sagit/p5-mst-13.2.git] / installperl

diff --git a/installperl b/installperl
index ddf739d..6a20e71 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -577,7 +577,7 @@ if ($versiononly) {
 # Install pod pages.  Where? I guess in $installprivlib/pod
 # ($installprivlib/pods for cygwin).
 
-my $pod = ($Is_Cygwin || $Is_Darwin) ? 'pods' : 'pod';
+my $pod = ($Is_Cygwin || $Is_Darwin || $Is_VMS) ? 'pods' : 'pod';
 if ( !$versiononly || ($installprivlib =~ m/\Q$ver/)) {
     mkpath("${installprivlib}/$pod", $verbose, 0777);