You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ra...@apache.org on 2003/03/08 20:08:41 UTC
cvs commit: modperl-2.0/ModPerl-Registry/t TEST.PL
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;