Exclude CGI/t/fast.t from the core, as it relies on FCGI, which is not in core.

Whilst the test is designed to skip if FCGI is not present, that logic is now
broken, and even if it were fixed, the as-implemented skip count is now wrong.
We're never going to run this test, as core tests run with just the core's
libraries in @INC, so I see no reason to ship it.

3 files changed, 1 insertions, 40 deletions

diff --git a/MANIFEST b/MANIFEST
index b7125b2a1a..499919eb21 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -202,7 +202,6 @@ cpan/CGI/t/checkbox_group.t		See if CGI.pm works
 cpan/CGI/t/cookie.t			See if CGI::Cookie works
 cpan/CGI/t/Dump.t			See if CGI->Dump works
 cpan/CGI/t/end_form.t			See if CGI.pm works
-cpan/CGI/t/fast.t			See if CGI::Fast works (if FCGI is installed)
 cpan/CGI/t/form.t			See if CGI.pm works
 cpan/CGI/t/function.t			See if CGI.pm works
 cpan/CGI/t/hidden.t			See if CGI.pm works
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 49c223a49a..2cc2365c89 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -307,6 +307,7 @@ use File::Glob qw(:case);
 				    cgi_docs.html
 				    examples/WORLD_WRITABLE/18.157.1.253.sav
 				    t/gen-tests/gen-start-end-tags.pl
+				    t/fast.t
 				)
 			   ],
 	'CPAN'		=> 1,
diff --git a/cpan/CGI/t/fast.t b/cpan/CGI/t/fast.t
deleted file mode 100644
index 355ec82073..0000000000
--- a/cpan/CGI/t/fast.t
+++ /dev/null
@@ -1,39 +0,0 @@
-#!./perl -w
-
-my $fcgi;
-BEGIN {
-	local $@;
-	eval { require FCGI };
-	$fcgi = $@ ? 0 : 1;
-}
-
-use Test::More tests => 10;
-
-# Shut up "used only once" warnings.
-() = $CGI::Q;
-() = $CGI::Fast::Ext_Request;
-
-SKIP: {
-	skip( 'FCGI not installed, cannot continue', 7 ) unless $fcgi;
-
-	use CGI::Fast;
-	ok( my $q = CGI::Fast->new(), 'created new CGI::Fast object' );
-	is( $q, $CGI::Q, 'checking to see if the object was stored properly' );
-	is( $q->param(), (), 'no params' );
-
-	ok( $q = CGI::Fast->new({ foo => 'bar' }), 'creating object with params' );
-	is( $q->param('foo'), 'bar', 'checking passed param' );
-
-	# if this is false, the package var will be empty
-	$ENV{FCGI_SOCKET_PATH} = 0;
-	is( $CGI::Fast::Ext_Request, undef, 'checking no active request' );
-
-    is($CGI::PRIVATE_TEMPFILES,0, "reality check default value for CGI::PRIVATE_TEMPFILES");
-	import CGI::Fast '-private_tempfiles';
-    CGI::Fast->new;
-    is($CGI::PRIVATE_TEMPFILES,1, "pragma in subclass set package variable in parent class. ");
-    $q = CGI::Fast->new({ a => 1 });
-    ok($q, "reality check: something was returned from CGI::Fast->new besides undef");
-    is($CGI::PRIVATE_TEMPFILES,1, "package variable in parent class persists through multiple calls to CGI::Fast->new ");
-
-};