Update of /cvsroot/module-build/CPANPLUS-Dist-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25332/t
Modified Files:
02_CPANPLUS-Dist-Build.t
Log Message:
Add some commentage
Index: 02_CPANPLUS-Dist-Build.t
===================================================================
RCS file: /cvsroot/module-build/CPANPLUS-Dist-Build/t/02_CPANPLUS-Dist-Build.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- 02_CPANPLUS-Dist-Build.t 8 Aug 2005 00:41:01 -0000 1.4
+++ 02_CPANPLUS-Dist-Build.t 8 Aug 2005 00:44:18 -0000 1.5
@@ -150,12 +150,15 @@
# in order to test uninstallation
'lib'->import( File::Spec->catdir($Lib, 'lib', 'perl5') );
+ # EU::Installed and CP+::M are only capable of searching
+ # for modules in the core directories. We need to fake
+ # them out with our own subs here.
my $packlist = find_module($mod->name . '::.packlist');
ok $packlist, "Found packlist";
my $p = ExtUtils::Packlist->new($packlist);
ok keys(%$p) > 0, "Packlist contains entries";
-
+
local $^W = 0; # Avoid 'redefined' warnings
local *CPANPLUS::Module::installed_version = sub {1};
local *CPANPLUS::Module::packlist = sub { [$p] };
|
