cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm

[dougm]

dougm       01/10/21 22:12:44

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
  Log:
  strip drive when turning filename into modulename
  
  Revision  Changes    Path
  1.39      +1 -0      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm
  
  Index: TestConfigPerl.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPerl.pm,v
  retrieving revision 1.38
  retrieving revision 1.39
  diff -u -r1.38 -r1.39
  --- TestConfigPerl.pm 2001/10/18 04:18:16     1.38
  +++ TestConfigPerl.pm 2001/10/22 05:12:44     1.39
  @@ -271,6 +271,7 @@
               $self->add_module_config($file, [EMAIL PROTECTED]);
               my $module = abs2rel $file, $dir;
               $module =~ s,\.pm$,,;
  +            $module =~ s/^[a-z]://i; #strip drive if any
               $module = join '::', splitdir $module;
   
               $self->run_apache_test_config($file, $module);