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