[Module-build-checkins] CPANPLUS-Dist-Build/t 02_CPANPLUS-Dist-Build.t,1.4,1.5
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-08-08 00:44:43
|
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] }; |