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>
