Change 33031: [PATCH] Ignore build dir when installing perl

[Rafael Garcia-Suarez]

Change 33031 by [EMAIL PROTECTED] on 2008/01/21 16:05:33

        Subject: [PATCH] Ignore build dir when installing perl
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Sat, 19 Jan 2008 12:19:41 -0500
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/installperl#150 edit

Differences ...

==== //depot/perl/installperl#150 (xtext) ====
Index: perl/installperl
--- perl/installperl#149~32722~ 2007-12-24 21:25:42.000000000 -0800
+++ perl/installperl    2008-01-21 08:05:33.000000000 -0800
@@ -54,6 +54,7 @@
 use File::Copy ();
 use File::Path ();
 use ExtUtils::Packlist;
+use Cwd;
 use Config;
 use subs qw(unlink link chmod);
 
@@ -620,6 +621,7 @@
        # Use &samepath here because some systems have other dirs linked
        # to $mainperldir (like SunOS)
        next if samepath($_, $binexp);
+       next if samepath($_, cwd());
        next if ($mainperl_is_instperl && samepath($_, $mainperldir));
        my $otherperl = "$_/$perl$exe_ext";
        next if $otherperls{$otherperl}++;
End of Patch.