view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use File::Spec;

sub ACTION_test {
  my $self = shift;
  
  my $conf_file = File::Spec->catfile($self->cwd, 't', 'httpd.conf');
  $self->do_system(File::Spec->catfile('t', 'httpd'), '-f', $conf_file)
    or die "Couldn't start httpd\n";
  
  local $ENV{PORT} = $self->notes('apache_params')->{port};
  $self->SUPER::ACTION_test;
  
  my $pidfile = File::Spec->catfile('t', 'httpd.pid');
  my $pid = do {open my($fh), $pidfile; local $/; <$fh>};
  warn "Stopping httpd, process ID = $pid\n";
  kill "TERM", $pid;
}