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] ));
|
