.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 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 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 5.812-alt1 +- 5.810 -> 5.812 + +* Sat Apr 12 2008 Alexey Tourbin 5.810-alt1 +- 5.808 -> 5.810 + +* Tue Aug 07 2007 Alexey Tourbin 5.808-alt1 +- 5.805 -> 5.808 + +* Sun Apr 08 2007 Alexey Tourbin 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 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 5.805-alt1 +- 5.803 -> 5.805 +- restored manual pages for GET, HEAD, etc. + +* Wed Jun 22 2005 Alexey Tourbin 5.803-alt3 +- fixed alt-deps-ftp.patch (breakage reported by Ivan Adzhubey) + +* Fri Apr 15 2005 Alexey Tourbin 5.803-alt2 +- patched to clarify dependencies on Compress::Zlib, Net::FTP, and Net::SSL + +* Wed Dec 22 2004 Alexey Tourbin 5.803-alt1 +- 5.79 -> 5.803 +- renamed: %name-perl -> %name +- manual pages not packaged (use perldoc) + +* Thu Apr 15 2004 Alexey Tourbin 5.79-alt1 +- 5.76 -> 5.79 + +* Sat Dec 06 2003 Alexey Tourbin 5.76-alt1 +- 5.76 + +* Thu Nov 13 2003 Alexey Tourbin 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 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 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 5.69-alt1 +- 5.69 + +* Tue Oct 29 2002 Alexey Tourbin 5.65-alt2 +- rebuilt for perl-5.8 with new rpm macros + +* Thu Jun 13 2002 Stanislav Ievlev 5.65-alt1 +- 5.65 + +* Wed Apr 03 2002 Stanislav Ievlev 5.64-alt1 +- 5.64 + +* Thu Dec 20 2001 Stanislav Ievlev 5.63-alt1 +- 5.63 + +* Mon Oct 15 2001 Stanislav Ievlev 5.53-alt1 +- 5.53 + +* Mon Jun 25 2001 Konstantin Volckov 5.50-ipl2mdk +- Rebuilt with perl-5.6.1 +- Some spec cleanup + +* Mon Jan 29 2001 Mikhail Zabaluev 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 5.48-1mdk_mhz +- changed file list and installation +- added description from README +- force build architecture to noarch + +* Thu Apr 20 2000 Guillaume Cottenceau 5.47-3mdk +- fixed release tag + +* Fri Mar 31 2000 Pixel 5.47-2mdk +- remove file list +- rebuild for 5.6.0 + +* Mon Jan 3 2000 Jean-Michel Dault +- final cleanup for Mandrake 7 + +* Thu Dec 30 1999 Jean-Michel Dault +- updated to 5.47 + +* Sun Aug 29 1999 Jean-Michel Dault +- bzip2'd sources +- updated to 5.44 + +* Tue May 11 1999 root +- Spec file was autogenerated.