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

[stas]

stas        2003/01/06 02:43:33

  Modified:    ModPerl-Registry/t/conf modperl_extra_startup.pl
  Log:
  don't preload all files
  
  Revision  Changes    Path
  1.6       +2 -0      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.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- modperl_extra_startup.pl  29 Dec 2002 09:18:50 -0000      1.5
  +++ modperl_extra_startup.pl  6 Jan 2003 10:43:33 -0000       1.6
  @@ -34,9 +34,11 @@
           trans   => \&trans,
       );
   
  +    my %skip = map {$_=>1} qw(lib.pl perlrun_require.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)$/;