cvs commit: modperl-2.0/ModPerl-Registry/t TEST.PL

[randyk]

randyk      2003/03/08 11:08:41

  Modified:    ModPerl-Registry/t TEST.PL
  Log:
  fix for Win32 to put drive letter in expected place.
  
  Revision  Changes    Path
  1.6       +1 -1      modperl-2.0/ModPerl-Registry/t/TEST.PL
  
  Index: TEST.PL
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/TEST.PL,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- TEST.PL   23 Jan 2003 04:29:59 -0000      1.5
  +++ TEST.PL   8 Mar 2003 19:08:41 -0000       1.6
  @@ -25,7 +25,7 @@
       my ($volume, $dir, $file) = splitpath Cwd::cwd(), 1;
       my @dir = grep {length} splitdir $dir;
       $dir = catdir @dir[0..($#dir-2)]; # remove two last dir segments
  -    my $base = rootdir() . catpath $volume, $dir, $file;
  +    my $base = catpath $volume, rootdir(), $dir, $file;
   
       $self->{conf_opts}->{maxclients} = 2;