From 0447b54dc796c23de9d6f7be6b6eef094e586787 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Tue, 10 Apr 2007 20:31:28 +0200 Subject: [PATCH] Re: [PATCH] Add CPANPLUS 0.78 to the core Message-ID: <9b18b3110704100931t5c0c97e0n9d3c059e6f404dd5@mail.gmail.com> p4raw-id: //depot/perl@30932 --- lib/ExtUtils/MM_Unix.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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") && -- 2.7.4