From: Yves Orton <demerphq@gmail.com>
Date: Tue, 10 Apr 2007 18:31:28 +0000 (+0200)
Subject: Re: [PATCH] Add CPANPLUS 0.78 to the core
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0447b54dc796c23de9d6f7be6b6eef094e586787;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Add CPANPLUS 0.78 to the core
Message-ID: <9b18b3110704100931t5c0c97e0n9d3c059e6f404dd5@mail.gmail.com>

p4raw-id: //depot/perl@30932
---

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 6cac6f9..94049ec 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -18,7 +18,7 @@ use vars qw($VERSION @ISA
 
 use ExtUtils::MakeMaker qw($Verbose neatvalue);
 
-$VERSION = '1.52_02';
+$VERSION = '1.52_03';
 
 require ExtUtils::MM_Any;
 @ISA = qw(ExtUtils::MM_Any);
@@ -1574,12 +1574,9 @@ sub init_main {
 
     unless ($self->{PERL_SRC}){
 	my($dir);
-	foreach $dir ($Updir,
-                  $self->catdir($Updir,$Updir),
-                  $self->catdir($Updir,$Updir,$Updir),
-                  $self->catdir($Updir,$Updir,$Updir,$Updir),
-                  $self->catdir($Updir,$Updir,$Updir,$Updir,$Updir))
+	foreach my $dir_count (1..8) # 8 is the VMS limit for nesting
         {
+            $dir = $self->catdir(($Updir) x $dir_count);
 	    if (
 		-f $self->catfile($dir,"config_h.SH")
 		&&