From e9829d5079b73a9cc95d377bd884aa7939b2f7ec Mon Sep 17 00:00:00 2001
From: Steve Hay <SteveHay@planit.com>
Date: Sat, 10 Oct 2009 14:40:26 +0100
Subject: [PATCH] Remove test boilerpates from ExtUtils-CBuilder tests

I was obviously wrong to restore in 1051afdbc0a9e60b8f65ed22fefafd8ecf771171
what Nicholas had removed in 4d984b75f1859fc27f556ee42f31a04df42a2004 because
the tests don't work in core with the boilerplates in place.
Don't undo that which has been done by Nicholas!
---
 cpan/ExtUtils-CBuilder/t/00-have-compiler.t | 6 ------
 cpan/ExtUtils-CBuilder/t/01-basic.t         | 9 ---------
 cpan/ExtUtils-CBuilder/t/02-link.t          | 9 ---------
 3 files changed, 24 deletions(-)

diff --git a/cpan/ExtUtils-CBuilder/t/00-have-compiler.t b/cpan/ExtUtils-CBuilder/t/00-have-compiler.t
index cf62e97..245bce5 100644
--- a/cpan/ExtUtils-CBuilder/t/00-have-compiler.t
+++ b/cpan/ExtUtils-CBuilder/t/00-have-compiler.t
@@ -4,12 +4,6 @@ use File::Spec;
 my $perl;
 BEGIN {
   $perl = File::Spec->rel2abs($^X);
-  if ($ENV{PERL_CORE}) {
-    chdir 't' if -d 't';
-    chdir '../lib/ExtUtils/CBuilder'
-      or die "Can't chdir to lib/ExtUtils/CBuilder: $!";
-    @INC = qw(../..);
-  }
 }
 
 use strict;
diff --git a/cpan/ExtUtils-CBuilder/t/01-basic.t b/cpan/ExtUtils-CBuilder/t/01-basic.t
index 79a0b0c..66a025f 100644
--- a/cpan/ExtUtils-CBuilder/t/01-basic.t
+++ b/cpan/ExtUtils-CBuilder/t/01-basic.t
@@ -1,14 +1,5 @@
 #! perl -w
 
-BEGIN {
-  if ($ENV{PERL_CORE}) {
-    chdir 't' if -d 't';
-    chdir '../lib/ExtUtils/CBuilder'
-      or die "Can't chdir to lib/ExtUtils/CBuilder: $!";
-    @INC = qw(../..);
-  }
-}
-
 use strict;
 use Test::More;
 BEGIN { 
diff --git a/cpan/ExtUtils-CBuilder/t/02-link.t b/cpan/ExtUtils-CBuilder/t/02-link.t
index c748d3b..1e55f6a 100644
--- a/cpan/ExtUtils-CBuilder/t/02-link.t
+++ b/cpan/ExtUtils-CBuilder/t/02-link.t
@@ -1,14 +1,5 @@
 #! perl -w
 
-BEGIN {
-  if ($ENV{PERL_CORE}) {
-    chdir 't' if -d 't';
-    chdir '../lib/ExtUtils/CBuilder'
-      or die "Can't chdir to lib/ExtUtils/CBuilder: $!";
-    @INC = qw(../..);
-  }
-}
-
 use strict;
 use Test::More;
 BEGIN { 
-- 
1.8.3.1