ALT Linux repos
| 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 :: Development/Perl
RPM: perl-libwww
Navigation
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: perl-libwww-5.812-alt1.patch
Download
Download
.gear-rules | 2 +
.../b779e36ef54b91da9654c706a74d800986d85542 | 13 ++
.../b8f61de31641bdb714b82c563bff579355cfc487 | 13 ++
.gear-tags/list | 2 +
bin/lwp-request | 16 +--
lib/LWP/MediaTypes.pm | 1 +
lib/LWP/Protocol/ftp.pm | 11 +-
lib/LWP/Protocol/https10.pm | 10 +-
lib/Net/HTTP/Methods.pm | 26 +---
lib/Net/HTTPS.pm | 17 +--
perl-libwww.spec | 203 ++++++++++++++++++++
11 files changed, 246 insertions(+), 68 deletions(-)
diff --git a/.gear-rules b/.gear-rules
new file mode 100644
index 0000000..b0a954c
--- /dev/null
+++ b/.gear-rules
@@ -0,0 +1,2 @@
+tar: @version@:. name=libwww-perl-@version@
+diff: @version@:. . name=perl-libwww-@version@-@release@.patch
diff --git a/.gear-tags/b779e36ef54b91da9654c706a74d800986d85542 b/.gear-tags/b779e36ef54b91da9654c706a74d800986d85542
new file mode 100644
index 0000000..07d50b9
--- /dev/null
+++ b/.gear-tags/b779e36ef54b91da9654c706a74d800986d85542
@@ -0,0 +1,13 @@
+object 87643558d3905390b03d2ddbc42ea31fc0688925
+type commit
+tag 5.812
+tagger Alexey Tourbin <at@altlinux.ru> 1208992036 +0400
+
+5.812
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v1.4.9 (GNU/Linux)
+
+iEYEABECAAYFAkgPwSQACgkQfBKgtDjnu0ZM+gCdFoq4THpayqf7BJ0OlrMPd1xa
+t4QAnivK9aRGKfsXOoG29alJ9RZ6Xzag
+=M0Nh
+-----END PGP SIGNATURE-----
diff --git a/.gear-tags/b8f61de31641bdb714b82c563bff579355cfc487 b/.gear-tags/b8f61de31641bdb714b82c563bff579355cfc487
new file mode 100644
index 0000000..63d53e9
--- /dev/null
+++ b/.gear-tags/b8f61de31641bdb714b82c563bff579355cfc487
@@ -0,0 +1,13 @@
+object 4b59e42adbf6ff27f2dedd3d2ff5956abaf4726b
+type commit
+tag 5.810
+tagger Alexey Tourbin <at@altlinux.ru> 1208019751 +0400
+
+5.810
+-----BEGIN PGP SIGNATURE-----
+Version: GnuPG v1.4.9 (GNU/Linux)
+
+iEYEABECAAYFAkgA6ycACgkQfBKgtDjnu0a+EACgysIakI6yPZ+3GMnHevmtqQo4
+E5MAn0sPo22r685Yz8K4TZSCoYAV3LaO
+=Luzv
+-----END PGP SIGNATURE-----
diff --git a/.gear-tags/list b/.gear-tags/list
new file mode 100644
index 0000000..dd6a05b
--- /dev/null
+++ b/.gear-tags/list
@@ -0,0 +1,2 @@
+b8f61de31641bdb714b82c563bff579355cfc487 5.810
+b779e36ef54b91da9654c706a74d800986d85542 5.812
diff --git a/bin/lwp-request b/bin/lwp-request
index 1603bb4..0a2a873 100755
--- a/bin/lwp-request
+++ b/bin/lwp-request
@@ -444,27 +444,17 @@ while ($url = shift) { unless ($options{'d'}) { if ($options{'o'} && $response->content_type eq 'text/html') {- eval {- require HTML::Parse;
- };
- if ($@) {- if ($@ =~ m,^Can't locate HTML/Parse.pm in \@INC,) {- die "The HTML-Tree distribution need to be installed for the -o option to be used.\n";
- }
- else {- die $@;
- }
- }
+ eval { require HTML::Parse; } or die $@;my $html = HTML::Parse::parse_html($response->content);
{ $options{'o'} eq 'ps' && do {- require HTML::FormatPS;
+ eval {require HTML::FormatPS; } or die $@;my $f = HTML::FormatPS->new;
print $f->format($html);
last;
};
$options{'o'} eq 'text' && do {- require HTML::FormatText;
+ eval { require HTML::FormatText; } or die $@;my $f = HTML::FormatText->new;
print $f->format($html);
last;
diff --git a/lib/LWP/MediaTypes.pm b/lib/LWP/MediaTypes.pm
index 8bdfe70..adab823 100644
--- a/lib/LWP/MediaTypes.pm
+++ b/lib/LWP/MediaTypes.pm
@@ -200,6 +200,7 @@ sub read_media_types
add_type($type, @exts);
}
close(TYPE);
+ last if $ENV{RPM_BUILD_ROOT};}
}
diff --git a/lib/LWP/Protocol/ftp.pm b/lib/LWP/Protocol/ftp.pm
index e1d11cd..4584e2a 100644
--- a/lib/LWP/Protocol/ftp.pm
+++ b/lib/LWP/Protocol/ftp.pm
@@ -15,7 +15,7 @@ require LWP::Protocol;
@ISA = qw(LWP::Protocol);
use strict;
-eval {+{package LWP::Protocol::MyFTP;
require Net::FTP;
@@ -72,9 +72,7 @@ eval {my $self = shift;
return $self->go_home;
}
-
-};
-my $init_failed = $@;
+}
sub _connect {@@ -160,11 +158,6 @@ sub request
"$method for 'ftp:' URLs");
}
- if ($init_failed) {- return HTTP::Response->new(&HTTP::Status::RC_INTERNAL_SERVER_ERROR,
- $init_failed);
- }
-
my $host = $url->host;
my $port = $url->port;
my $user = $url->user;
diff --git a/lib/LWP/Protocol/https10.pm b/lib/LWP/Protocol/https10.pm
index 662ba76..67807f9 100644
--- a/lib/LWP/Protocol/https10.pm
+++ b/lib/LWP/Protocol/https10.pm
@@ -11,14 +11,8 @@ elsif ($IO::Socket::SSL::VERSION) {$SSL_CLASS = "IO::Socket::SSL"; # it was already loaded
}
else {- eval { require Net::SSL; }; # from Crypt-SSLeay- if ($@) {- require IO::Socket::SSL;
- $SSL_CLASS = "IO::Socket::SSL";
- }
- else {- $SSL_CLASS = "Net::SSL";
- }
+ require Net::SSL; # from Crypt-SSLeay
+ $SSL_CLASS = "Net::SSL";
}
diff --git a/lib/Net/HTTP/Methods.pm b/lib/Net/HTTP/Methods.pm
index 5d4d033..cbbbdb1 100644
--- a/lib/Net/HTTP/Methods.pm
+++ b/lib/Net/HTTP/Methods.pm
@@ -9,6 +9,8 @@ $VERSION = "5.812";
my $CRLF = "\015\012"; # "\r\n" is not portable
+sub zlib_ok () { require Compress::Zlib }+
sub new {my $class = shift;
unshift(@_, "Host") if @_ == 1;
@@ -148,7 +150,7 @@ sub format_request { if ($given{te}) {push(@connection, "TE") unless grep lc($_) eq "te", @connection;
}
- elsif ($self->send_te && zlib_ok()) {+ elsif ($self->send_te) {# gzip is less wanted since the Compress::Zlib interface for
# it does not really allow chunked decoding to take place easily.
push(@h2, "TE: deflate,gzip;q=0.3");
@@ -533,26 +535,4 @@ sub get_trailers { @{${*$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;
diff --git a/lib/Net/HTTPS.pm b/lib/Net/HTTPS.pm
index 6c7cacc..c68f551 100644
--- a/lib/Net/HTTPS.pm
+++ b/lib/Net/HTTPS.pm
@@ -13,21 +13,8 @@ elsif ($IO::Socket::SSL::VERSION) {$SSL_SOCKET_CLASS = "IO::Socket::SSL"; # it was already loaded
}
else {- eval { require Net::SSL; }; # from Crypt-SSLeay- if ($@) {- my $old_errsv = $@;
- eval {- require IO::Socket::SSL;
- };
- if ($@) {- $old_errsv =~ s/\s\(\@INC contains:.*\)/)/g;
- die $old_errsv . $@;
- }
- $SSL_SOCKET_CLASS = "IO::Socket::SSL";
- }
- else {- $SSL_SOCKET_CLASS = "Net::SSL";
- }
+ require Net::SSL; # from Crypt-SSLeay
+ $SSL_SOCKET_CLASS = "Net::SSL";
}
require Net::HTTP::Methods;
diff --git a/perl-libwww.spec b/perl-libwww.spec
new file mode 100644
index 0000000..40db000
--- /dev/null
+++ b/perl-libwww.spec
@@ -0,0 +1,203 @@
+%define dist libwww-perl
+Name: perl-libwww
+Version: 5.812
+Release: alt1
+
+Summary: WWW client/server library for Perl (aka LWP)
+License: GPL or Artistic
+Group: Development/Perl
+
+URL: %CPAN %dist
+Source: %dist-%version.tar
+Patch: %name-%version-%release.patch
+
+BuildArch: noarch
+
+Provides: %name-perl = %version
+Obsoletes: %name-perl < %version
+
+# requires Win32
+%add_findreq_skiplist */HTTP/Cookies/Microsoft.pm
+# requires Authen::NTLM; not required by any package
+%add_findreq_skiplist */LWP/Authen/Ntlm.pm
+# requires HTTP::GHTTP; not required by any package
+%add_findreq_skiplist */LWP/Protocol/GHTTP.pm
+
+# XXX for $response->decoded_content
+#Requires: perl-Encode
+
+# Automatically added by buildreq on Thu Apr 24 2008
+BuildRequires: perl-Compress-Zlib perl-DBM perl-Encode perl-HTML-Parser perl-devel
+
+%description
+The libwww-perl collection is a set of Perl modules which provides a
+simple and consistent application programming interface to the
+World-Wide Web. The main focus of the library is to provide classes
+and functions that allow you to write WWW clients. The library also
+contain modules that are of more general use and even classes that
+help you implement simple HTTP servers.
+
+%prep
+%setup -q -n %dist-%version
+%patch -p1
+bzip2 -9fk Changes
+
+%ifdef __BTE
+rm -fv t/live/*.t
+%endif
+
+%build
+%perl_vendor_build
+
+%install
+%perl_vendor_install
+
+ln -snf lwp-request %buildroot%_bindir/GET
+ln -snf lwp-request %buildroot%_bindir/HEAD
+ln -snf lwp-request %buildroot%_bindir/POST
+
+ln -snf lwp-request.1 %buildroot%_man1dir/GET.1
+ln -snf lwp-request.1 %buildroot%_man1dir/HEAD.1
+ln -snf lwp-request.1 %buildroot%_man1dir/POST.1
+
+%files
+%doc Changes.bz2 README README.SSL
+ %_bindir/lwp-*
+ %_bindir/GET
+ %_bindir/HEAD
+ %_bindir/POST
+ %_man1dir/lwp-*.*
+ %_man1dir/GET.*
+ %_man1dir/HEAD.*
+ %_man1dir/POST.*
+%dir %perl_vendor_privlib/LWP
+ %perl_vendor_privlib/LWP.pm
+ %perl_vendor_privlib/LWP/*
+%dir %perl_vendor_privlib/Net
+ %perl_vendor_privlib/Net/HTTP*
+%dir %perl_vendor_privlib/WWW
+ %perl_vendor_privlib/WWW/RobotRules*
+%dir %perl_vendor_privlib/HTML
+ %perl_vendor_privlib/HTML/Form.pm
+%dir %perl_vendor_privlib/HTTP
+ %perl_vendor_privlib/HTTP/*
+%dir %perl_vendor_privlib/File
+ %perl_vendor_privlib/File/Listing.pm
+%dir %perl_vendor_privlib/Bundle
+ %perl_vendor_privlib/Bundle/LWP.pm
+%doc %perl_vendor_privlib/lwp*.pod
+
+%changelog
+* Thu Apr 24 2008 Alexey Tourbin <at@altlinux.ru> 5.812-alt1
+- 5.810 -> 5.812
+
+* Sat Apr 12 2008 Alexey Tourbin <at@altlinux.ru> 5.810-alt1
+- 5.808 -> 5.810
+
+* Tue Aug 07 2007 Alexey Tourbin <at@altlinux.ru> 5.808-alt1
+- 5.805 -> 5.808
+
+* Sun Apr 08 2007 Alexey Tourbin <at@altlinux.ru> 5.805-alt3
+- LWP/Protocol/nntp.pm (request): do not clobber $_ (rt.cpan.org #25132)
+- lwp-request (POST): relaxed content-type check (#6792, cpan #26151)
+
+* Sun Jan 14 2007 Alexey Tourbin <at@altlinux.ru> 5.805-alt2
+- imported sources into git and adapted for gear
+- lwp-request: relaxed dependencies on perl-HTML-Format
+- lwp-request: debian patch for -b option (deb #294595)
+
+* Mon May 22 2006 Alexey Tourbin <at@altlinux.ru> 5.805-alt1
+- 5.803 -> 5.805
+- restored manual pages for GET, HEAD, etc.
+
+* Wed Jun 22 2005 Alexey Tourbin <at@altlinux.ru> 5.803-alt3
+- fixed alt-deps-ftp.patch (breakage reported by Ivan Adzhubey)
+
+* Fri Apr 15 2005 Alexey Tourbin <at@altlinux.ru> 5.803-alt2
+- patched to clarify dependencies on Compress::Zlib, Net::FTP, and Net::SSL
+
+* Wed Dec 22 2004 Alexey Tourbin <at@altlinux.ru> 5.803-alt1
+- 5.79 -> 5.803
+- renamed: %name-perl -> %name
+- manual pages not packaged (use perldoc)
+
+* Thu Apr 15 2004 Alexey Tourbin <at@altlinux.ru> 5.79-alt1
+- 5.76 -> 5.79
+
+* Sat Dec 06 2003 Alexey Tourbin <at@altlinux.ru> 5.76-alt1
+- 5.76
+
+* Thu Nov 13 2003 Alexey Tourbin <at@altlinux.ru> 5.75-alt1
+- 5.75
+- mdk-empty_header.patch merged upstream, alt-syntax.patch needed no more
+- alt-makefile.patch updated (not to read media.types of already installed
+ package when running tests)
+
+* Fri Oct 17 2003 Alexey Tourbin <at@altlinux.ru> 5.72-alt1
+- 5.72
+- syntax.patch: fix syntax error
+- makefile.patch:
+ + don't run "live" tests
+ + don't look for the existing installation
+
+* Sat Apr 26 2003 Alexey Tourbin <at@altlinux.ru> 5.69-alt2
+- skip dependencies in:
+ + LWP/Authen/Ntlm.pm (requires Authen/Ntlm.pm)
+ + HTTP/Cookies/Microsoft.pm (requires Win32.pm)
+ + LWP/Protocol/GHTTP.pm
+- specfile cleanup
+
+* Tue Mar 18 2003 Stanislav Ievlev <inger@altlinux.ru> 5.69-alt1
+- 5.69
+
+* Tue Oct 29 2002 Alexey Tourbin <at@altlinux.ru> 5.65-alt2
+- rebuilt for perl-5.8 with new rpm macros
+
+* Thu Jun 13 2002 Stanislav Ievlev <inger@altlinux.ru> 5.65-alt1
+- 5.65
+
+* Wed Apr 03 2002 Stanislav Ievlev <inger@altlinux.ru> 5.64-alt1
+- 5.64
+
+* Thu Dec 20 2001 Stanislav Ievlev <inger@altlinux.ru> 5.63-alt1
+- 5.63
+
+* Mon Oct 15 2001 Stanislav Ievlev <inger@altlinux.ru> 5.53-alt1
+- 5.53
+
+* Mon Jun 25 2001 Konstantin Volckov <goldhead@altlinux.ru> 5.50-ipl2mdk
+- Rebuilt with perl-5.6.1
+- Some spec cleanup
+
+* Mon Jan 29 2001 Mikhail Zabaluev <zabaluev@parascript.com> 5.50-ipl1mdk
+- Updated:
+ + version 5.50
+- Changed:
+ + spec file adapted for Sisyphus
+- Fixed:
+ + perl path in LWP/Debug.pm
+
+* Wed Jun 28 2000 Mikhail Zabaluev <mookid@sigent.ru> 5.48-1mdk_mhz
+- changed file list and installation
+- added description from README
+- force build architecture to noarch
+
+* Thu Apr 20 2000 Guillaume Cottenceau <gc@mandrakesoft.com> 5.47-3mdk
+- fixed release tag
+
+* Fri Mar 31 2000 Pixel <pixel@mandrakesoft.com> 5.47-2mdk
+- remove file list
+- rebuild for 5.6.0
+
+* Mon Jan 3 2000 Jean-Michel Dault <jmdault@netrevolution.com>
+- final cleanup for Mandrake 7
+
+* Thu Dec 30 1999 Jean-Michel Dault <jmdault@netrevolution.com>
+- updated to 5.47
+
+* Sun Aug 29 1999 Jean-Michel Dault <jmdault@netrevolution.com>
+- bzip2'd sources
+- updated to 5.44
+
+* Tue May 11 1999 root <root@alien.devel.redhat.com>
+- Spec file was autogenerated.