--- 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;