Hello community, here is the log from the commit of package perl-HTTP-Daemon for openSUSE:Factory checked in at 2012-03-01 17:23:26 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-HTTP-Daemon (Old) and /work/SRC/openSUSE:Factory/.perl-HTTP-Daemon.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-HTTP-Daemon", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-HTTP-Daemon/perl-HTTP-Daemon.changes 2011-09-23 12:37:25.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-HTTP-Daemon.new/perl-HTTP-Daemon.changes 2012-03-01 17:23:40.000000000 +0100 @@ -1,0 +2,8 @@ +Mon Feb 20 10:48:36 UTC 2012 - [email protected] + +- updated to 6.01 + If you bind localhost, don't trust gethostbyaddr() to resolve the + address. [RT#67247] + Restore perl-5.8.1 compatiblity. + +------------------------------------------------------------------- Old: ---- HTTP-Daemon-6.00.tar.gz New: ---- HTTP-Daemon-6.01.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTTP-Daemon.spec ++++++ --- /var/tmp/diff_new_pack.AdmrAG/_old 2012-03-01 17:23:41.000000000 +0100 +++ /var/tmp/diff_new_pack.AdmrAG/_new 2012-03-01 17:23:41.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-HTTP-Daemon # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2012 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 @@ -16,33 +16,33 @@ # - Name: perl-HTTP-Daemon -Version: 6.00 -Release: 1 -License: GPL-1.0+ or Artistic-1.0 +Version: 6.01 +Release: 0 %define cpan_name HTTP-Daemon Summary: a simple http server class -Url: http://search.cpan.org/dist/HTTP-Daemon/ +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl -#Source: http://www.cpan.org/authors/id/G/GA/GAAS/HTTP-Daemon-%{version}.tar.gz -Source: %{cpan_name}-%{version}.tar.gz +Url: http://search.cpan.org/dist/HTTP-Daemon/ +Source: http://www.cpan.org/authors/id/G/GA/GAAS/%{cpan_name}-%{version}.tar.gz +BuildArch: noarch +BuildRoot: %{_tmppath}/%{name}-%{version}-build +BuildRequires: perl +BuildRequires: perl-macros BuildRequires: perl(HTTP::Date) >= 6 BuildRequires: perl(HTTP::Request) >= 6 BuildRequires: perl(HTTP::Response) >= 6 BuildRequires: perl(HTTP::Status) >= 6 -BuildRequires: perl(IO::Socket) BuildRequires: perl(LWP::MediaTypes) >= 6 -BuildRequires: perl -BuildRequires: perl-macros +#BuildRequires: perl(HTTP::Daemon) +#BuildRequires: perl(LWP::RobotUA) +#BuildRequires: perl(LWP::UserAgent) +#BuildRequires: perl(URI) Requires: perl(HTTP::Date) >= 6 Requires: perl(HTTP::Request) >= 6 Requires: perl(HTTP::Response) >= 6 Requires: perl(HTTP::Status) >= 6 -Requires: perl(IO::Socket) Requires: perl(LWP::MediaTypes) >= 6 -BuildRoot: %{_tmppath}/%{name}-%{version}-build -BuildArch: noarch %{perl_requires} %description @@ -51,9 +51,16 @@ 'IO::Socket::INET', so you can perform socket operations directly on it too. +The accept() method will return when a connection from a client is +available. The returned value will be an 'HTTP::Daemon::ClientConn' object +which is another 'IO::Socket::INET' subclass. Calling the get_request() +method on this object will read data from the client and return an +'HTTP::Request' object. The ClientConn object also provide methods to send +back various responses. %prep %setup -q -n %{cpan_name}-%{version} +find . -type f -print0 | xargs -0 chmod 644 %build %{__perl} Makefile.PL INSTALLDIRS=vendor @@ -67,11 +74,8 @@ %perl_process_packlist %perl_gen_filelist -%clean -%{__rm} -rf %{buildroot} - %files -f %{name}.files -%defattr(644,root,root,755) +%defattr(-,root,root,755) %doc Changes README %changelog ++++++ HTTP-Daemon-6.00.tar.gz -> HTTP-Daemon-6.01.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Daemon-6.00/Changes new/HTTP-Daemon-6.01/Changes --- old/HTTP-Daemon-6.00/Changes 2011-02-27 23:46:57.000000000 +0100 +++ new/HTTP-Daemon-6.01/Changes 2012-02-18 13:23:43.000000000 +0100 @@ -1,4 +1,15 @@ _______________________________________________________________________________ +2012-02-18 HTTP-Daemon 6.01 + +If you bind localhost, don't trust gethostbyaddr() to resolve the +address. [RT#67247] + +Restore perl-5.8.1 compatiblity. + + + + +_______________________________________________________________________________ 2011-02-25 HTTP-Daemon 6.00 Initial release of HTTP-Daemon as a separate distribution. There are no code diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Daemon-6.00/META.yml new/HTTP-Daemon-6.01/META.yml --- old/HTTP-Daemon-6.00/META.yml 2011-02-27 23:47:21.000000000 +0100 +++ new/HTTP-Daemon-6.01/META.yml 2012-02-18 13:24:17.000000000 +0100 @@ -1,6 +1,6 @@ --- #YAML:1.0 name: HTTP-Daemon -version: 6.00 +version: 6.01 abstract: a simple http server class author: - Gisle Aas <[email protected]> @@ -17,16 +17,16 @@ HTTP::Status: 6 IO::Socket: 0 LWP::MediaTypes: 6 - perl: 5.008008 + perl: 5.008001 Sys::Hostname: 0 resources: MailingList: mailto:[email protected] - repository: http://github.com/gisle/libwww-perl + repository: http://github.com/gisle/http-daemon no_index: directory: - t - inc -generated_by: ExtUtils::MakeMaker version 6.56 +generated_by: ExtUtils::MakeMaker version 6.57_05 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Daemon-6.00/Makefile.PL new/HTTP-Daemon-6.01/Makefile.PL --- old/HTTP-Daemon-6.00/Makefile.PL 2011-02-27 23:46:50.000000000 +0100 +++ new/HTTP-Daemon-6.01/Makefile.PL 2012-02-18 12:54:36.000000000 +0100 @@ -1,6 +1,6 @@ #!perl -w -require 5.008008; +require 5.008001; use strict; use ExtUtils::MakeMaker; @@ -10,7 +10,7 @@ ABSTRACT_FROM => 'lib/HTTP/Daemon.pm', AUTHOR => 'Gisle Aas <[email protected]>', LICENSE => "perl", - MIN_PERL_VERSION => 5.008008, + MIN_PERL_VERSION => 5.008001, PREREQ_PM => { 'Sys::Hostname' => 0, 'IO::Socket' => 0, @@ -22,7 +22,7 @@ }, META_MERGE => { resources => { - repository => 'http://github.com/gisle/libwww-perl', + repository => 'http://github.com/gisle/http-daemon', MailingList => 'mailto:[email protected]', } }, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Daemon-6.00/lib/HTTP/Daemon.pm new/HTTP-Daemon-6.01/lib/HTTP/Daemon.pm --- old/HTTP-Daemon-6.00/lib/HTTP/Daemon.pm 2011-02-27 23:46:57.000000000 +0100 +++ new/HTTP-Daemon-6.01/lib/HTTP/Daemon.pm 2012-02-18 13:21:23.000000000 +0100 @@ -3,9 +3,9 @@ use strict; use vars qw($VERSION @ISA $PROTO $DEBUG); -$VERSION = "6.00"; +$VERSION = "6.01"; -use IO::Socket qw(AF_INET INADDR_ANY inet_ntoa); +use IO::Socket qw(AF_INET INADDR_ANY INADDR_LOOPBACK inet_ntoa); @ISA=qw(IO::Socket::INET); $PROTO = "HTTP/1.1"; @@ -44,6 +44,9 @@ require Sys::Hostname; $url .= lc Sys::Hostname::hostname(); } + elsif ($addr eq INADDR_LOOPBACK) { + $url .= inet_ntoa($addr); + } else { $url .= gethostbyaddr($addr, AF_INET) || inet_ntoa($addr); } -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
