[Module-build-checkins] CPANPLUS-Dist-Build/t 02_CPANPLUS-Dist-Build.t,1.2,1.3

[Ken W. <kwi...@us...>]

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