geoff 2004/11/04 21:08:11
Modified: perl-framework/Apache-Test/lib/Apache TestConfigPHP.pm Log: make sure that generated test-more.php has proper 'do not edit' warnings Revision Changes Path 1.10 +5 -4 httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPHP.pm Index: TestConfigPHP.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPHP.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -u -r1.9 -r1.10 --- TestConfigPHP.pm 1 Nov 2004 20:07:45 -0000 1.9 +++ TestConfigPHP.pm 5 Nov 2004 05:08:11 -0000 1.10 @@ -50,13 +50,15 @@ html => sub { "<!-- @_ -->" }, c => sub { "/* @_ */" }, ini => sub { join '', grep {s/^/; /gm} @_ }, + php => sub { join '', "<?php\n", grep {s/^/# /gm} @_ }, default => sub { join '', grep {s/^/\# /gm} @_ }, ); my %file_ext = ( map({$_ => 'html'} qw(htm html)), map({$_ => 'c' } qw(c h)), - map({$_ => 'ini' } qw(ini)), + map({$_ => 'ini' } qw(ini)), + map({$_ => 'php' } qw(php)), ); sub warn_style_sub_ref { @@ -150,7 +152,7 @@ my $file = catfile $dir, 'test-more.php'; $self->gendir($dir); - my $fh = $self->genfile($file, undef, 1); + my $fh = $self->genfile($file); print $fh $test_more; @@ -167,7 +169,7 @@ my $log = catfile $self->{vars}->{t_logs}, 'error_log'; $self->gendir($dir); - my $fh = $self->genfile($file, undef); + my $fh = $self->genfile($file); $php_ini =~ s/[EMAIL PROTECTED]@/error_log $log/; print $fh $php_ini; @@ -416,7 +418,6 @@ soap.wsdl_cache_dir="/tmp" soap.wsdl_cache_ttl=86400 END_OF_FILE -<?php /*******************************************************************\ * PROJECT INFORMATION * * *