httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
Date Sun, 12 May 2002 18:27:35 GMT
dougm       02/05/12 11:27:35

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
  Log:
  add LoadFile for perl5x.dll for when perlbin is not in the system PATH
  
  Revision  Changes    Path
  1.49      +7 -2      httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm
  
  Index: TestConfigPerl.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm,v
  retrieving revision 1.48
  retrieving revision 1.49
  diff -u -r1.48 -r1.49
  --- TestConfigPerl.pm	6 Apr 2002 16:22:16 -0000	1.48
  +++ TestConfigPerl.pm	12 May 2002 18:27:35 -0000	1.49
  @@ -27,10 +27,15 @@
   
       $vars->{libmodperl} ||= $self->find_apache_module($libname);
   
  -    my $cfg;
  +    my $cfg = '';
   
       if (-e $vars->{libmodperl}) {
  -        $cfg = {LoadModule => qq(perl_module "$vars->{libmodperl}")};
  +        if (Apache::TestConfig::WIN32) {
  +            my $lib = "$Config{installbin}\\$Config{libperl}";
  +            $lib =~ s/lib$/dll/;
  +            $cfg = 'LoadFile ' . qq("$lib"\n) if -e $lib;
  +	}
  +        $cfg .= 'LoadModule ' . qq(perl_module "$vars->{libmodperl}"\n);
       }
       else {
           my $msg = "unable to locate $libname\n";
  
  
  

Mime
View raw message