Sophie

Sophie

distrib > * > 2008.0 > x86_64 > by-pkgid > 4c28fc3052a652da2553e831b24cbdf7 > files > 10

perl-5.8.8-12.2mdv2008.0.src.rpm

--- lib/CGI/t/fast.t.orig	2004-04-22 10:48:19.981671424 +0200
+++ lib/CGI/t/fast.t	2004-04-22 10:49:19.655392867 +0200
@@ -7,11 +7,7 @@ use lib qw(t/lib);
 use lib qw(blib/lib blib/arch);
 
 my $fcgi;
-BEGIN {
-	local $@;
-	eval { require FCGI };
-	$fcgi = $@ ? 0 : 1;
-}
+$fcgi = 0; # force it to 0 to avoid loading the system's FCGI
 
 use Test::More tests => 7;