perl-test-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From tors...@apache.org
Subject svn commit: r1299419 - /perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm
Date Sun, 11 Mar 2012 18:21:07 GMT
Author: torsten
Date: Sun Mar 11 18:21:06 2012
New Revision: 1299419

URL: http://svn.apache.org/viewvc?rev=1299419&view=rev
Log:
Adjust @INC for modules bundled with modperl even if they set up their own
blib/ directory.

Modified:
    perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm

Modified: perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm
URL: http://svn.apache.org/viewvc/perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm?rev=1299419&r1=1299418&r2=1299419&view=diff
==============================================================================
--- perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm (original)
+++ perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm Sun Mar 11 18:21:06 2012
@@ -111,19 +111,15 @@ sub configure_inc {
 
     my $inc = $self->{inc};
 
-    my $found;
     for (catdir($top, qw(blib lib)), catdir($top, qw(blib arch))) {
         if (-d $_) {
 	    push @$inc, $_;
-	    $found=1;
 	}
     }
 
     # try ../blib as well for Apache::Reload & Co
-    unless ($found) {
-        for (catdir($top, qw(.. blib lib)), catdir($top, qw(.. blib arch))) {
-	    push @$inc, $_ if -d $_;
-	}
+    for (catdir($top, qw(.. blib lib)), catdir($top, qw(.. blib arch))) {
+        push @$inc, $_ if -d $_;
     }
 
     # spec: If PERL5LIB is defined, PERLLIB is not used.



Mime
View raw message