From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 23 Nov 2000 16:52:40 +0000 (+0000)
Subject: Reach back one higher up when searching for PERL_SRC.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dfc18e8ad09e7e2177a68bca5100ec871c744055;p=p5sagit%2Fp5-mst-13.2.git

Reach back one higher up when searching for PERL_SRC.

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

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 31aa122..1808e3e 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -1658,7 +1658,7 @@ sub init_main {
 
     unless ($self->{PERL_SRC}){
 	my($dir);
-	foreach $dir ($self->updir(),$self->catdir($self->updir(),$self->updir()),$self->catdir($self->updir(),$self->updir(),$self->updir())){
+	foreach $dir ($self->updir(),$self->catdir($self->updir(),$self->updir()),$self->catdir($self->updir(),$self->updir(),$self->updir()),$self->catdir($self->updir(),$self->updir(),$self->updir(),$self->updir())){
 	    if (
 		-f $self->catfile($dir,"config.sh")
 		&&