[Module-build-checkins] CPANPLUS-Dist-Build/t 02_CPANPLUS-Dist-Build.t,1.2,1.3
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-08-05 03:35:06
|
Update of /cvsroot/module-build/CPANPLUS-Dist-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28508/t Modified Files: 02_CPANPLUS-Dist-Build.t Log Message: Add a CPANPLUS workaround that gets uninstall() almost working Index: 02_CPANPLUS-Dist-Build.t =================================================================== RCS file: /cvsroot/module-build/CPANPLUS-Dist-Build/t/02_CPANPLUS-Dist-Build.t,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- 02_CPANPLUS-Dist-Build.t 4 Aug 2005 01:45:16 -0000 1.2 +++ 02_CPANPLUS-Dist-Build.t 5 Aug 2005 03:34:48 -0000 1.3 @@ -10,6 +10,16 @@ } use strict; + +# In order to get the uninstall stuff to work, we have to push this +# dir onto @INC before loading CPANPLUS. +my $Lib; +BEGIN { + $Lib = File::Spec->rel2abs(File::Spec->catdir( qw[dummy-perl] )); + my $liblib = File::Spec->catdir($Lib, 'lib', 'perl5'); + push @INC, $liblib; +} + use CPANPLUS::Configure; use CPANPLUS::Backend; use CPANPLUS::Internals::Constants; @@ -28,7 +38,6 @@ my $Have_CC = can_run($Config{'cc'} )? 1 : 0; -my $Lib = File::Spec->rel2abs(File::Spec->catdir( qw[dummy-perl] )); my $Src = File::Spec->rel2abs(File::Spec->catdir( qw[src] )); |