You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-commits@perl.apache.org by to...@apache.org on 2012/03/11 19:21:07 UTC
svn commit: r1299419 - /perl/Apache-Test/trunk/lib/Apache/TestConfigPerl.pm
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.