stas        2003/03/31 19:44:12

  Modified:    ModPerl-Registry/t/conf modperl_extra_startup.pl
  Log:
  instead of maintaining a skip list, simply use an explicit list of scripts
  to preload, so we don't have to fix it every time a new script is added
  
  Revision  Changes    Path
  1.11      +3 -13     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.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- modperl_extra_startup.pl  1 Apr 2003 03:07:20 -0000       1.10
  +++ modperl_extra_startup.pl  1 Apr 2003 03:44:11 -0000       1.11
  @@ -34,20 +34,10 @@
           trans   => \&trans,
       );
   
  -    my %skip = map { $_ => 1 } 
  -        qw(lib.pl perlrun_require.pl syntax_error.pl runtime_error.pl
  -           use_error.pl missing_headers.pl r_inherited.pl);
  -    my $dh = DirHandle->new($base_dir) or die $!;
  -    for my $file ($dh->read) {
  -        next unless $file =~ /\.pl$/;
  -        next if exists $skip{$file};
  -
  -        # skip these as they are knowlingly generate warnings
  -        next if $file =~ /^(closure.pl|not_executable.pl)$/;
  -
  -        # these files shouldn't be preloaded
  -        next if $file =~ /^(local-conf.pl)$/;
  +    my @preload = qw(basic.pl env.pl require.pl special_blocks.pl
  +        redirect.pl 206.pl content_type.pl);
   
  +    for my $file (@preload) {
           $rl->handler("/registry_bb/$file");
       }
   }
  
  
  

Reply via email to