Hello community, here is the log from the commit of package perl-HTTP-Lite for openSUSE:Factory checked in at 2013-06-06 12:20:40 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-HTTP-Lite (Old) and /work/SRC/openSUSE:Factory/.perl-HTTP-Lite.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTTP-Lite" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-HTTP-Lite/perl-HTTP-Lite.changes 2012-02-14 13:09:05.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-HTTP-Lite.new/perl-HTTP-Lite.changes 2013-06-06 12:20:41.000000000 +0200 @@ -1,0 +2,13 @@ +Wed Jun 5 07:26:33 UTC 2013 - co...@suse.com + +- updated to 2.4 + - Fixed RT #13791, which meant you couldn't request http://foobar.com -- + had to have to trailing slash on the URL. + - Don't add request header if value passed is undef (RT #4546). + - Fixed bug where writing the request can get stuck in a loop. + Bug reported by Florian Kirchmeir. Fix based on Florian's patch. + - RT #35360 fixed (fix included in report). + - Documentation tidy-up + - Neil Bowers (NEILB) granted co-maint by Adam (thanks) + +------------------------------------------------------------------- Old: ---- HTTP-Lite-2.3.tar.gz New: ---- HTTP-Lite-2.4.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTTP-Lite.spec ++++++ --- /var/tmp/diff_new_pack.Sot0Gq/_old 2013-06-06 12:20:41.000000000 +0200 +++ /var/tmp/diff_new_pack.Sot0Gq/_new 2013-06-06 12:20:41.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-HTTP-Lite # -# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,63 +17,72 @@ Name: perl-HTTP-Lite -Version: 2.3 +Version: 2.4 Release: 0 +%define cpan_name HTTP-Lite Summary: Lightweight HTTP implementation License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl -Source: http://search.cpan.org/CPAN/authors/id/A/AD/ADAMK/HTTP-Lite-%{version}.tar.gz -Url: http://search.cpan.org/dist/HTTP-Lite +Url: http://search.cpan.org/dist/HTTP-Lite/ +Source: http://www.cpan.org/authors/id/N/NE/NEILB/%{cpan_name}-%{version}.tar.gz +BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build -Requires: perl = %{perl_version} -BuildRequires: make BuildRequires: perl BuildRequires: perl-macros -BuildRequires: perl(ExtUtils::MakeMaker) >= 6.42 +#BuildRequires: perl(HTTP::Lite) +#BuildRequires: perl(inc::Module::Install) +#BuildRequires: perl(inc::Module::Install::DSL) >= 1.00 +#BuildRequires: perl(JSON) +#BuildRequires: perl(LWP::Simple) +#BuildRequires: perl(Module::Build) +#BuildRequires: perl(Module::Install::Base) +#BuildRequires: perl(Parse::CPAN::Meta) +#BuildRequires: perl(YAML::Tiny) +%{perl_requires} %description -HTTP::Lite is a stand-alone lightweight HTTP/1.1 implementation -for perl. - -It is not intended as a replacement for the fully-features LWP module. Instead, -it is intended for use in situations where it is desirable to install the -minimal number of modules to achieve HTTP support, or where LWP is not a good -candidate due to CPU overhead, such as slower processors. - +HTTP::Lite is a stand-alone lightweight HTTP/1.1 implementation for perl. +It is not intended as a replacement for the fully-featured LWP module. +Instead, it is intended for use in situations where it is desirable to +install the minimal number of modules to achieve HTTP support, or where LWP +is not a good candidate due to CPU overhead, such as slower processors. HTTP::Lite is also significantly faster than LWP. HTTP::Lite is ideal for CGI (or mod_perl) programs or for bundling for -redistribution with larger packages where only HTTP GET and POST functionality -are necessary. +redistribution with larger packages where only HTTP GET and POST +functionality are necessary. + +HTTP::Lite supports basic POST and GET operations only. As of 0.2.1, +HTTP::Lite supports HTTP/1.1 and is compliant with the Host header, +necessary for name based virtual hosting. Additionally, HTTP::Lite now +supports Proxies. + +As of 2.0.0 HTTP::Lite now supports a callback to allow processing of +request data as it arrives. This is useful for handling very large files +without consuming memory. + +If you require more functionality, such as FTP or HTTPS, please see +libwwwperl (LWP). LWP is a significantly better and more comprehensive +package than HTTP::Lite, and should be used instead of HTTP::Lite whenever +possible. %prep -%setup -q -n "HTTP-Lite-%{version}" -%__sed -i '/^auto_install/d' Makefile.PL +%setup -q -n %{cpan_name}-%{version} %build -%__perl Makefile.PL PREFIX="%{_prefix}" -%__make %{?jobs:-j%{jobs}} +%{__perl} Makefile.PL INSTALLDIRS=vendor +%{__make} %{?_smp_mflags} + +%check +%{__make} test %install %perl_make_install %perl_process_packlist +%perl_gen_filelist -%if 0%{?suse_version} >= 1130 - -%check -%__make test -%endif - -%clean -%{?buildroot:%__rm -rf "%{buildroot}"} - -%files -%defattr(-,root,root) +%files -f %{name}.files +%defattr(-,root,root,755) %doc Changes LICENSE README -%dir %{perl_vendorlib}/HTTP -%{perl_vendorlib}/HTTP/Lite.pm -%dir %{perl_vendorarch}/auto/HTTP -%{perl_vendorarch}/auto/HTTP/Lite -%doc %{perl_man3dir}/HTTP::Lite.%{perl_man3ext}%{ext_man} %changelog ++++++ HTTP-Lite-2.3.tar.gz -> HTTP-Lite-2.4.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Lite-2.3/Changes new/HTTP-Lite-2.4/Changes --- old/HTTP-Lite-2.3/Changes 2010-12-14 05:22:10.000000000 +0100 +++ new/HTTP-Lite-2.4/Changes 2012-07-20 01:39:21.000000000 +0200 @@ -1,5 +1,15 @@ Revision history for Perl extension HTTP::Lite. +2.4 2012-07-20 + - Fixed RT #13791, which meant you couldn't request http://foobar.com -- + had to have to trailing slash on the URL. + - Don't add request header if value passed is undef (RT #4546). + - Fixed bug where writing the request can get stuck in a loop. + Bug reported by Florian Kirchmeir. Fix based on Florian's patch. + - RT #35360 fixed (fix included in report). + - Documentation tidy-up + - Neil Bowers (NEILB) granted co-maint by Adam (thanks) + 2.3 Tue 14 Dec 2010 - No functional changes - Updated Module::Install to 1.00 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Lite-2.3/lib/HTTP/Lite.pm new/HTTP-Lite-2.4/lib/HTTP/Lite.pm --- old/HTTP-Lite-2.3/lib/HTTP/Lite.pm 2010-12-14 05:22:10.000000000 +0100 +++ new/HTTP-Lite-2.4/lib/HTTP/Lite.pm 2012-07-20 01:39:34.000000000 +0200 @@ -8,7 +8,7 @@ use vars qw($VERSION); BEGIN { - $VERSION = "2.3"; + $VERSION = "2.4"; } my $BLOCKSIZE = 65536; @@ -27,7 +27,7 @@ foreach my $char (split('', $URLENCODE_VALID)) { $urlencode_valid[ord $char]=$char; } -for (my $n=0;$n<255;$n++) { +for (my $n=0;$n<256;$n++) { if (!defined($urlencode_valid[$n])) { $urlencode_valid[$n]=sprintf("%%%02X", $n); } @@ -139,7 +139,7 @@ # Parse URL my ($protocol,$host,$junk,$port,$object) = - $url =~ m{^([^:/]+)://([^/:]*)(:(\d+))?(/.*)$}; + $url =~ m{^([^:/]+)://([^/:]*)(:(\d+))?(/?.*)$}; # Only HTTP is supported here if ($protocol ne "http") @@ -446,6 +446,7 @@ my $self = shift; my ($header, $value) = @_; + return unless defined($value); my $lcheader = lc($header); $self->{DEBUG} && $self->DEBUG("add_req_header $header $value"); ${$self->{headers}}{$lcheader} = $value; @@ -611,11 +612,13 @@ } my $size = length($line); - my $bytes = syswrite($fh, $line, length($line) , 0 ); # please double check new length limit - # is this ok? - while ( ($size - $bytes) > 0) { - $bytes += syswrite($fh, $line, length($line)-$bytes, $bytes ); # also here - } + my $total_sent = 0; + my $nbytes; + do { + $nbytes = syswrite($fh, $line, $size - $total_sent, $total_sent ); + die $! unless(defined($nbytes) || $!{EAGAIN}); # non-recoverable error occured! + $total_sent += $nbytes; + } while ($total_sent < $size); } sub http_read @@ -773,31 +776,31 @@ =head1 DESCRIPTION - HTTP::Lite is a stand-alone lightweight HTTP/1.1 implementation - for perl. It is not intended as a replacement for the - fully-features LWP module. Instead, it is intended for use in - situations where it is desirable to install the minimal number of - modules to achieve HTTP support, or where LWP is not a good - candidate due to CPU overhead, such as slower processors. - HTTP::Lite is also significantly faster than LWP. - - HTTP::Lite is ideal for CGI (or mod_perl) programs or for bundling - for redistribution with larger packages where only HTTP GET and - POST functionality are necessary. - - HTTP::Lite supports basic POST and GET operations only. As of - 0.2.1, HTTP::Lite supports HTTP/1.1 and is compliant with the Host - header, necessary for name based virtual hosting. Additionally, - HTTP::Lite now supports Proxies. - - As of 2.0.0 HTTP::Lite now supports a callback to allow processing - of request data as it arrives. This is useful for handling very - large files without consuming memory. - - If you require more functionality, such as FTP or HTTPS, please - see libwwwperl (LWP). LWP is a significantly better and more - comprehensive package than HTTP::Lite, and should be used instead - of HTTP::Lite whenever possible. +HTTP::Lite is a stand-alone lightweight HTTP/1.1 implementation +for perl. It is not intended as a replacement for the +fully-featured LWP module. Instead, it is intended for use in +situations where it is desirable to install the minimal number of +modules to achieve HTTP support, or where LWP is not a good +candidate due to CPU overhead, such as slower processors. +HTTP::Lite is also significantly faster than LWP. + +HTTP::Lite is ideal for CGI (or mod_perl) programs or for bundling +for redistribution with larger packages where only HTTP GET and +POST functionality are necessary. + +HTTP::Lite supports basic POST and GET operations only. As of +0.2.1, HTTP::Lite supports HTTP/1.1 and is compliant with the Host +header, necessary for name based virtual hosting. Additionally, +HTTP::Lite now supports Proxies. + +As of 2.0.0 HTTP::Lite now supports a callback to allow processing +of request data as it arrives. This is useful for handling very +large files without consuming memory. + +If you require more functionality, such as FTP or HTTPS, please +see libwwwperl (LWP). LWP is a significantly better and more +comprehensive package than HTTP::Lite, and should be used instead +of HTTP::Lite whenever possible. =head1 CONSTRUCTOR @@ -905,11 +908,14 @@ =item delete_req_header ( $header ) -Add, Delete, or a HTTP header(s) for the request. These functions +Add, Delete, or get a HTTP header(s) for the request. These functions allow you to override any header. Presently, Host, User-Agent, Content-Type, Accept, and Connection are pre-defined by the HTTP::Lite module. You may not override Host, Connection, or Accept. +If you call C<add_req_header()> with C<$value> set to C<undef>, +then the header won't be added. + To provide (proxy) authentication or authorization, you would use: use HTTP::Lite; @@ -1031,14 +1037,16 @@ =head1 BUGS - Some broken HTTP/1.1 servers send incorrect chunk sizes - when transferring files. HTTP/1.1 mode is now disabled by - default. +Some broken HTTP/1.1 servers send incorrect chunk sizes when transferring files. +HTTP/1.1 mode is now disabled by default. =head1 AUTHOR Roy Hooper <rhoo...@thetoybox.org> +Now co-maintained by Neil Bowers E<lt>ne...@cpan.orge<gt>. +This is a developer release after fixing some bugs, before doing a regular release. + =head1 SEE ALSO L<LWP> -- To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org For additional commands, e-mail: opensuse-commit+h...@opensuse.org