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

[geoff]

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                        *
   *                                                                   *