Change 34620 by [EMAIL PROTECTED] on 2008/10/28 18:33:35
Subject: installperl patchlet
From: [EMAIL PROTECTED] (Andreas J. Koenig)
Message-ID: <[EMAIL PROTECTED]>
Date: Tue, 28 Oct 2008 05:11:20 +0100
Affected files ...
... //depot/perl/installperl#163 edit
Differences ...
==== //depot/perl/installperl#163 (xtext) ====
Index: perl/installperl
--- perl/installperl#162~34236~ 2008-08-30 08:33:26.000000000 -0700
+++ perl/installperl 2008-10-28 11:33:35.000000000 -0700
@@ -617,6 +617,7 @@
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));
End of Patch.
