perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From go...@apache.org
Subject cvs commit: modperl-2.0/t/conf extra.last.conf.in
Date Tue, 10 Feb 2004 17:45:22 GMT
gozer       2004/02/10 09:45:22

  Modified:    t/conf   extra.last.conf.in
  Log:
  Handle creation of the test Included <Perl> sections directly, without trying
  to rely on A::T::*, simpler and avoids misleading diagnostic output
  
  Revision  Changes    Path
  1.13      +4 -3      modperl-2.0/t/conf/extra.last.conf.in
  
  Index: extra.last.conf.in
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/conf/extra.last.conf.in,v
  retrieving revision 1.12
  retrieving revision 1.13
  diff -u -r1.12 -r1.13
  --- extra.last.conf.in	10 Feb 2004 00:14:11 -0000	1.12
  +++ extra.last.conf.in	10 Feb 2004 17:45:22 -0000	1.13
  @@ -32,10 +32,11 @@
   #Handle re-entrant <Perl> sections
   <Perl >
       use File::Spec;
  -    use Apache::TestUtil;
       my $file = File::Spec->catfile('@ServerRoot@', 'conf', 'perlsection.conf');
  -    my $conf = join "\n", qw(<Perl> $TestDirective::perl::Included++; </Perl>);
  -    Apache::TestUtil::t_write_file($file, $conf); 
  +    open my $fh, ">$file" || die $!;
  +    END { unlink $file }
  +    print $fh join "\n", qw(<Perl> $TestDirective::perl::Included++; </Perl>);
  +    close $fh;
       $Include = $file;
   </Perl>
   
  
  
  

Mime
View raw message