installperl patchlet

Message-ID: <87k5btpdef.fsf@k75.linux.bogus>
Date: Tue, 28 Oct 2008 05:11:20 +0100

p4raw-id: //depot/perl@34620

diff --git a/installperl b/installperl
index aede39a..da8f45e 100755 (executable)
--- a/installperl
+++ b/installperl
@@ -617,6 +617,7 @@ if (!$versiononly && $otherperls) {
        next unless m,^/,;
        # Use &samepath here because some systems have other dirs linked
        # to $mainperldir (like SunOS)
+       next unless -d;
        next if samepath($_, $binexp);
        next if samepath($_, cwd());
        next if ($mainperl_is_instperl && samepath($_, $mainperldir));