[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-test-cvs
Subject:    cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigPerl.pm
From:       dougm () apache ! org
Date:       2001-10-22 5:12:44
[Download RAW message or body]

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, \@args);
               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);
  
  
  

[prev in list] [next in list] [prev in thread] [next in thread]