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"); } }