cvs commit: modperl-2.0/ModPerl-Registry/t/conf modperl_extra_startup.pl

[stas]

stas        2003/01/22 16:38:33

  Modified:    ModPerl-Registry/t/conf modperl_extra_startup.pl
  Log:
  don't preloade files with intentional problems
  
  Revision  Changes    Path
  1.7       +2 -1      modperl-2.0/ModPerl-Registry/t/conf/modperl_extra_startup.pl
  
  Index: modperl_extra_startup.pl
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/conf/modperl_extra_startup.pl,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- modperl_extra_startup.pl  6 Jan 2003 10:43:33 -0000       1.6
  +++ modperl_extra_startup.pl  23 Jan 2003 00:38:33 -0000      1.7
  @@ -34,7 +34,8 @@
           trans   => \&trans,
       );
   
  -    my %skip = map {$_=>1} qw(lib.pl perlrun_require.pl);
  +    my %skip = map { $_ => 1 } qw(lib.pl perlrun_require.pl 
  +                                  syntax_error.pl missing_headers.pl);
       my $dh = DirHandle->new($base_dir) or die $!;
       for my $file ($dh->read) {
           next unless $file =~ /\.pl$/;