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 TestServer.pm
Date Tue, 24 Feb 2004 01:00:09 GMT
stas        2004/02/23 17:00:09

  Modified:    perl-framework/Apache-Test/lib/Apache TestServer.pm
  Log:
  $self->{config}->{vars}->{defines} is not always defined
  
  Revision  Changes    Path
  1.76      +5 -1      httpd-test/perl-framework/Apache-Test/lib/Apache/TestServer.pm
  
  Index: TestServer.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestServer.pm,v
  retrieving revision 1.75
  retrieving revision 1.76
  diff -u -u -r1.75 -r1.76
  --- TestServer.pm	20 Feb 2004 23:51:54 -0000	1.75
  +++ TestServer.pm	24 Feb 2004 01:00:09 -0000	1.76
  @@ -81,6 +81,8 @@
   }
   
   sub config_defines {
  +    my $self = shift;
  +
       my @defines = ();
   
       for my $item (qw(useithreads)) {
  @@ -88,7 +90,9 @@
           push @defines, "-DPERL_\U$item";
       }
   
  -    push @defines, map { "-D$_" } split " ", shift->{config}->{vars}->{defines};
  +    if (my $defines = $self->{config}->{vars}->{defines}) {
  +        push @defines, map { "-D$_" } split " ", $defines;
  +    }
   
       "@defines";
   }
  
  
  

Mime
View raw message