httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfig.pm
Date Tue, 22 Apr 2003 08:09:47 GMT
stas        2003/04/22 01:09:47

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfig.pm
  Log:
  define a new constant IS_MOD_PERL_2_BUILD so we can use it elsewhere
  
  Revision  Changes    Path
  1.153     +5 -5      httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm
  
  Index: TestConfig.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfig.pm,v
  retrieving revision 1.152
  retrieving revision 1.153
  diff -u -r1.152 -r1.153
  --- TestConfig.pm	16 Apr 2003 04:55:01 -0000	1.152
  +++ TestConfig.pm	22 Apr 2003 08:09:47 -0000	1.153
  @@ -11,6 +11,10 @@
   
   use constant DEFAULT_PORT => 8529;
   
  +use constant IS_MOD_PERL_2_BUILD =>
  +    eval { require mod_perl } && $mod_perl::VERSION >= 1.99 &&
  +    eval { require Apache::Build } && Apache::Build::IS_MOD_PERL_BUILD();
  +
   use Symbol ();
   use File::Copy ();
   use File::Find qw(finddepth);
  @@ -113,11 +117,7 @@
   sub server { shift->{server} }
   
   sub modperl_2_inc_fixup {
  -
  -    (eval { require mod_perl } && $mod_perl::VERSION >= 1.99 &&
  -     eval { require Apache::Build } && !Apache::Build::IS_MOD_PERL_BUILD())
  -        ? "use Apache2;\n" 
  -        : '';
  +    IS_MOD_PERL_2_BUILD ? '' : "use Apache2;\n";
   }
   
   sub modperl_build_config {
  
  
  

Mime
View raw message