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

[dougm]

dougm       01/12/21 18:28:27

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  update remote_addr var in the config cache if it has changed
  
  Revision  Changes    Path
  1.76      +8 -1      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
  
  Index: TestRun.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
  retrieving revision 1.75
  retrieving revision 1.76
  diff -u -r1.75 -r1.76
  --- TestRun.pm        2001/12/14 18:12:25     1.75
  +++ TestRun.pm        2001/12/22 02:28:27     1.76
  @@ -349,12 +349,19 @@
       my $save = \$self->{conf_opts}->{save};
       $self->configure_opts($save);
   
  +    my $config = $self->{test_config};
       unless ($$save) {
  +        my $addr = \$config->{vars}->{remote_addr};
  +        my $remote_addr = $config->our_remote_addr;
  +        unless ($$addr eq $remote_addr) {
  +            warning "local ip address has changed, updating config cache";
  +            $$addr = $remote_addr;
  +        }
           #update minor changes to cached config
           #without complete regeneration
           #for example this allows switching between
           #'t/TEST' and 't/TEST -ssl'
  -        $self->{test_config}->sync_vars(qw(scheme proxy));
  +        $config->sync_vars(qw(scheme proxy remote_addr));
           return;
       }