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 st...@apache.org on 2003/05/20 08:03:46 UTC
cvs commit: modperl-2.0/ModPerl-Registry/t TEST.PL
stas 2003/05/19 23:03:46
Modified: ModPerl-Registry Makefile.PL
ModPerl-Registry/t TEST.PL
Log:
add live directories that actually exist (test that)
Revision Changes Path
1.9 +2 -1 modperl-2.0/ModPerl-Registry/Makefile.PL
Index: Makefile.PL
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/Makefile.PL,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- Makefile.PL 22 Mar 2003 07:21:36 -0000 1.8
+++ Makefile.PL 20 May 2003 06:03:46 -0000 1.9
@@ -2,7 +2,8 @@
use warnings FATAL => 'all';
no warnings 'redefine';
-use lib map {($_, "../$_") } qw(lib Apache-Test/lib);
+use FindBin;
+use lib grep { -d } map "$FindBin::Bin/../$_", qw(lib Apache-Test/lib);
use ModPerl::BuildMM ();
use Apache::TestSmokePerl ();
1.8 +3 -2 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.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- TEST.PL 6 Apr 2003 23:31:07 -0000 1.7
+++ TEST.PL 20 May 2003 06:03:46 -0000 1.8
@@ -1,9 +1,10 @@
use strict;
use warnings FATAL => 'all';
-use lib map {("../blib/$_", "../../blib/$_")} qw(lib arch);
+use FindBin;
# test against the source lib for easier dev
-use lib map {("../$_", "../../$_")} qw(lib Apache-Test/lib);
+use lib "$FindBin::Bin/../lib";
+use lib grep { -d } map "$FindBin::Bin/../../$_", qw(lib Apache-Test/lib);
use Apache::TestRunPerl ();