--- libwww-perl-5.803/lib/Net/HTTP/Methods.pm-	2004-11-15 14:16:07 +0000
+++ libwww-perl-5.803/lib/Net/HTTP/Methods.pm	2005-04-14 18:24:55 +0000
@@ -11,6 +11,9 @@
 
 my $CRLF = "\015\012";   # "\r\n" is not portable
 
+use Compress::Zlib 1.10;
+sub zlib_ok () { 1 }
+
 sub new {
     my($class, %cnf) = @_;
     require Symbol;
@@ -497,26 +500,4 @@
     @{${*$self}{'http_trailers'} || []};
 }
 
-BEGIN {
-my $zlib_ok;
-
-sub zlib_ok {
-    return $zlib_ok if defined $zlib_ok;
-
-    # Try to load Compress::Zlib.
-    local $@;
-    local $SIG{__DIE__};
-    $zlib_ok = 0;
-
-    eval {
-	require Compress::Zlib;
-	Compress::Zlib->VERSION(1.10);
-	$zlib_ok++;
-    };
-
-    return $zlib_ok;
-}
-
-} # BEGIN
-
 1;