This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Ignore build dir when installing perl
authorJerry D. Hedden <jdhedden@cpan.org>
Sat, 19 Jan 2008 12:19:41 +0000 (07:19 -0500)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 21 Jan 2008 16:05:33 +0000 (16:05 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510801190919o6e3af1bboff1f885c76cf2bc7@mail.gmail.com>

p4raw-id: //depot/perl@33031

installperl

index ddd3a4b..f635918 100755 (executable)
@@ -54,6 +54,7 @@ use File::Compare;
 use File::Copy ();
 use File::Path ();
 use ExtUtils::Packlist;
 use File::Copy ();
 use File::Path ();
 use ExtUtils::Packlist;
+use Cwd;
 use Config;
 use subs qw(unlink link chmod);
 
 use Config;
 use subs qw(unlink link chmod);
 
@@ -620,6 +621,7 @@ if (!$versiononly && $otherperls) {
        # Use &samepath here because some systems have other dirs linked
        # to $mainperldir (like SunOS)
        next if samepath($_, $binexp);
        # 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}++;
        next if ($mainperl_is_instperl && samepath($_, $mainperldir));
        my $otherperl = "$_/$perl$exe_ext";
        next if $otherperls{$otherperl}++;