From: Andreas J. Koenig <andreas.koenig.7os6VVqR@franz.ak.mind.de>
Date: Tue, 28 Oct 2008 05:11:20 +0000 (+0100)
Subject: installperl patchlet
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44591ba566f2923cc6afe9d36f9569f9e44bb376;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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));