cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestServer.pm

[stas]

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";
   }