dev-perl/CGI/files/3.47-fcgi.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

http://rt.cpan.org/Public/Bug/Display.html?id=49599

--- CGI.pm-3.47/t/fast.t
+++ CGI.pm-3.47/t/fast.t
@@ -7,16 +7,16 @@
 	$fcgi = $@ ? 0 : 1;
 }
 
-use Test::More tests => 10;
+use Test::More tests => 11;
 
 # Shut up "used only once" warnings.
 () = $CGI::Q;
 () = $CGI::Fast::Ext_Request;
 
 SKIP: {
-	skip( 'FCGI not installed, cannot continue', 7 ) unless $fcgi;
+	skip( 'FCGI not installed, cannot continue', 11 ) unless $fcgi;
 
-	use CGI::Fast;
+	use_ok( 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' );