[posting here and not to httpd-test, since it's relevant only to mod_perl]

unless you have better ideas this patch makes it possible to start the 
server with correct blib during 'make test', which otherwise is 
completely bypassed.

Index: Apache-Test/lib/Apache/TestConfigPerl.pm
===================================================================
RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm,v
retrieving revision 1.52
diff -u -r1.52 TestConfigPerl.pm
--- Apache-Test/lib/Apache/TestConfigPerl.pm    18 May 2002 02:01:30 -0000      
1.52
+++ Apache-Test/lib/Apache/TestConfigPerl.pm    27 Jun 2002 07:15:56 -0000
@@ -4,7 +4,7 @@

  use strict;
  use warnings FATAL => 'all';
-use File::Spec::Functions qw(catfile splitdir abs2rel);
+use File::Spec::Functions qw(catfile catdir splitdir abs2rel);
  use File::Find qw(finddepth);
  use Apache::TestTrace;
  use Config;
@@ -114,8 +114,11 @@
          my $include_pl = catfile $self->{vars}->{t_conf}, 
'modperl_inc.pl';
          my $fh = $self->genfile($include_pl);
          # make sure that the dev libs come before blib
-        for (reverse @$inc) {
-            print $fh "use lib '$_';\n";
+        # make sure that we try for Apache2/ before w/o it
+        for my $inc (reverse @$inc) {
+            for (catdir($inc, 'Apache2'), $inc) {
+                print $fh "use lib '$_';\n";
+            }
          }
          print $fh "1;\n";
      }


__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to