ALT Linux repositórios
S: | 6.72-alt1 |
5.0: | 5.826-alt1 |
4.1: | 5.812-alt1 |
4.0: | 5.805-alt3 |
3.0: | 5.803-alt3 |
+backports: | 5.803-alt0.M30.3 |
Group :: Desenvolvimento/Perl
RPM: perl-libwww
Main Changelog Spec Patches Sources Download Gear Bugs e FR Repocop
Patch: perl-libwww-5.803-alt-deps-zlib.patch
Download
Download
--- 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;