Hello community, here is the log from the commit of package perl-HTTP-Server-Simple for openSUSE:Factory checked in at 2015-09-24 06:15:00 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-HTTP-Server-Simple (Old) and /work/SRC/openSUSE:Factory/.perl-HTTP-Server-Simple.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "perl-HTTP-Server-Simple" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-HTTP-Server-Simple/perl-HTTP-Server-Simple.changes 2015-08-29 20:04:45.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-HTTP-Server-Simple.new/perl-HTTP-Server-Simple.changes 2015-09-24 06:15:01.000000000 +0200 @@ -1,0 +2,13 @@ +Sun Sep 20 08:56:11 UTC 2015 - coolo@suse.com + +- updated to 0.51 + see /usr/share/doc/packages/perl-HTTP-Server-Simple/Changes + + 0.51 2015-09-16 + + - add OPTIONS as a valid method + - better compatibility with CGI.pm < 3.36 + - fix tests for freebsd and IPv6 + - repository info + +------------------------------------------------------------------- Old: ---- HTTP-Server-Simple-0.50.tar.gz New: ---- HTTP-Server-Simple-0.51.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-HTTP-Server-Simple.spec ++++++ --- /var/tmp/diff_new_pack.Uw8FPQ/_old 2015-09-24 06:15:02.000000000 +0200 +++ /var/tmp/diff_new_pack.Uw8FPQ/_new 2015-09-24 06:15:02.000000000 +0200 @@ -17,22 +17,22 @@ Name: perl-HTTP-Server-Simple -Version: 0.50 +Version: 0.51 Release: 0 %define cpan_name HTTP-Server-Simple Summary: Lightweight HTTP server License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/HTTP-Server-Simple/ -Source0: http://www.cpan.org/authors/id/F/FA/FALCONE/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/B/BP/BPS/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(CGI) -Requires: perl(CGI) BuildRequires: perl(Socket) >= 1.94 +Requires: perl(CGI) Requires: perl(Socket) >= 1.94 %{perl_requires} # MANUAL BEGIN ++++++ HTTP-Server-Simple-0.50.tar.gz -> HTTP-Server-Simple-0.51.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Server-Simple-0.50/Changes new/HTTP-Server-Simple-0.51/Changes --- old/HTTP-Server-Simple-0.50/Changes 2015-02-02 16:15:03.000000000 +0100 +++ new/HTTP-Server-Simple-0.51/Changes 2015-09-16 22:58:28.000000000 +0200 @@ -1,3 +1,10 @@ +0.51 2015-09-16 + + - add OPTIONS as a valid method + - better compatibility with CGI.pm < 3.36 + - fix tests for freebsd and IPv6 + - repository info + 0.50 2015-02-02 - All collected changes since 0.44 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Server-Simple-0.50/MANIFEST new/HTTP-Server-Simple-0.51/MANIFEST --- old/HTTP-Server-Simple-0.50/MANIFEST 2015-02-02 16:36:38.000000000 +0100 +++ new/HTTP-Server-Simple-0.51/MANIFEST 2015-05-07 17:18:57.000000000 +0200 @@ -20,4 +20,3 @@ t/02pod.t t/03podcoverage.t t/04cgi.t -SIGNATURE Public-key signature (added by MakeMaker) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Server-Simple-0.50/META.yml new/HTTP-Server-Simple-0.51/META.yml --- old/HTTP-Server-Simple-0.50/META.yml 2015-02-02 16:27:28.000000000 +0100 +++ new/HTTP-Server-Simple-0.51/META.yml 2015-09-16 22:58:28.000000000 +0200 @@ -25,4 +25,5 @@ Test::More: 0 resources: license: http://dev.perl.org/licenses/ -version: '0.50' + repository: https://github.com/bestpractical/http-server-simple +version: '0.51' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Server-Simple-0.50/Makefile.PL new/HTTP-Server-Simple-0.51/Makefile.PL --- old/HTTP-Server-Simple-0.50/Makefile.PL 2015-02-02 16:27:09.000000000 +0100 +++ new/HTTP-Server-Simple-0.51/Makefile.PL 2015-09-16 22:58:28.000000000 +0200 @@ -9,4 +9,5 @@ CGI => 0, ); +repository('https://github.com/bestpractical/http-server-simple'); WriteAll( sign => 1); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Server-Simple-0.50/SIGNATURE new/HTTP-Server-Simple-0.51/SIGNATURE --- old/HTTP-Server-Simple-0.50/SIGNATURE 2015-02-02 16:36:39.000000000 +0100 +++ new/HTTP-Server-Simple-0.51/SIGNATURE 1970-01-01 01:00:00.000000000 +0100 @@ -1,46 +0,0 @@ -This file contains message digests of all files listed in MANIFEST, -signed via the Module::Signature module, version 0.73. - -To verify the content in this distribution, first make sure you have -Module::Signature installed, then type: - - % cpansign -v - -It will check each file's integrity, as well as the signature's -validity. If "==> Signature verified OK! <==" is not displayed, -the distribution may already have been compromised, and you should -not run its Makefile.PL or Build.PL. - ------BEGIN PGP SIGNED MESSAGE----- -Hash: SHA1 - -SHA1 3b4aeced6dc6d37f087743690a414e43404b76cd Changes -SHA1 86a31bfdcdcd54159cbd433fd8dad4590ea172e9 MANIFEST -SHA1 3675a3d4721c4078d9bb8c0057b9a576a301635c META.yml -SHA1 df557a7200f6ada7c845d19638eb18066bee14b4 Makefile.PL -SHA1 ed0c107672daac3bc9e266876666e1059dbe44b7 README -SHA1 4ea1e9072ca87399184a46233df52a21e285604d ex/sample_server -SHA1 d2664c57b65686abbfbbe1e71229761625be4922 inc/Module/Install.pm -SHA1 da41a8d9904f7b409b49a5f6c338d3eb305a2b4b inc/Module/Install/Base.pm -SHA1 0db0afe19cd298abba248fa089e5525bd5ab3ab6 inc/Module/Install/Can.pm -SHA1 e7152bfd5ca67d0e33f96d09c59d600bca5c1f15 inc/Module/Install/Fetch.pm -SHA1 29ee1cb0dc262b00983e3a2f5cf00b538dff5069 inc/Module/Install/Makefile.pm -SHA1 e963f80cfe255f16e55067d1feb6841cff3ed2fe inc/Module/Install/Metadata.pm -SHA1 65a1f09af1f4f9e47a98b6b45667c328b1b2f9c0 inc/Module/Install/Win32.pm -SHA1 f191c49475b3f51775180cd4f7e41e3bdab7f85a inc/Module/Install/WriteAll.pm -SHA1 cd6bb1282e33e8cbb02829fa1c86bf327bd0a88b lib/HTTP/Server/Simple.pm -SHA1 6c552ef4704ad7ff0acde604fc984982c7bb586e lib/HTTP/Server/Simple/CGI.pm -SHA1 efaa8a14cc0ddd4003e34ca479edbd91653e3761 lib/HTTP/Server/Simple/CGI/Environment.pm -SHA1 db064af54cab345a71daec576e32e64b8fb1033d t/00smoke.t -SHA1 3f1c86d2671379e820015c7f4af006fe29a42f58 t/01live.t -SHA1 aca95653cfce68912e08c57b3a4566207e2f99b3 t/02pod.t -SHA1 a7024d0d8e7b80d26f75a3551a1406a797b382f8 t/03podcoverage.t -SHA1 5bbd2261889ddec155321fd8fbaf8395f4989e80 t/04cgi.t ------BEGIN PGP SIGNATURE----- -Version: GnuPG v1 -Comment: GPGTools - http://gpgtools.org - -iEYEARECAAYFAlTPmYcACgkQ0+gKWp5CJQqnegCfUXavjBbrd0aMvyqDrjmS54fM -wzgAnjQpdQEls0x/toI4B5l5Wh4bUZRf -=SI56 ------END PGP SIGNATURE----- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Server-Simple-0.50/lib/HTTP/Server/Simple/CGI/Environment.pm new/HTTP-Server-Simple-0.51/lib/HTTP/Server/Simple/CGI/Environment.pm --- old/HTTP-Server-Simple-0.50/lib/HTTP/Server/Simple/CGI/Environment.pm 2015-01-20 23:36:44.000000000 +0100 +++ new/HTTP-Server-Simple-0.51/lib/HTTP/Server/Simple/CGI/Environment.pm 2015-09-16 22:58:28.000000000 +0200 @@ -105,7 +105,7 @@ unless $tag =~ m/^CONTENT_(?:LENGTH|TYPE)$/; if ( exists $ENV{$tag} ) { - $ENV{$tag} .= ", $value"; + $ENV{$tag} .= $tag eq 'HTTP_COOKIE' ? "; $value" : ", $value"; } else { $ENV{$tag} = $value; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Server-Simple-0.50/lib/HTTP/Server/Simple.pm new/HTTP-Server-Simple-0.51/lib/HTTP/Server/Simple.pm --- old/HTTP-Server-Simple-0.50/lib/HTTP/Server/Simple.pm 2015-02-02 16:14:38.000000000 +0100 +++ new/HTTP-Server-Simple-0.51/lib/HTTP/Server/Simple.pm 2015-09-16 22:58:28.000000000 +0200 @@ -7,7 +7,7 @@ use Carp; use vars qw($VERSION $bad_request_doc); -$VERSION = '0.50'; +$VERSION = '0.51'; =head1 NAME @@ -765,15 +765,15 @@ Given a candidate HTTP method in $method, determine if it is valid. Override if, for example, you'd like to do some WebDAV. The default -implementation only accepts C<GET>, C<POST>, C<HEAD>, C<PUT>, C<PATCH> -and C<DELETE>. +implementation only accepts C<GET>, C<POST>, C<HEAD>, C<PUT>, C<PATCH>, +C<DELETE> and C<OPTIONS>. =cut sub valid_http_method { my $self = shift; my $method = shift or return 0; - return $method =~ /^(?:GET|POST|HEAD|PUT|PATCH|DELETE)$/; + return $method =~ /^(?:GET|POST|HEAD|PUT|PATCH|DELETE|OPTIONS)$/; } =head1 AUTHOR diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Server-Simple-0.50/t/01live.t new/HTTP-Server-Simple-0.51/t/01live.t --- old/HTTP-Server-Simple-0.50/t/01live.t 2015-01-30 00:04:57.000000000 +0100 +++ new/HTTP-Server-Simple-0.51/t/01live.t 2015-09-16 22:58:28.000000000 +0200 @@ -12,7 +12,7 @@ my $ipv6_host = get_localhost(AF_INET6); socket my $sockh, Socket::PF_INET6(), SOCK_STREAM, 0 or die "Cannot socket(PF_INET6) - $!"; my ($err, @res) = Socket::getaddrinfo($ipv6_host, $PORT, { family => AF_INET6, socktype => SOCK_STREAM } ); - diag $err if $err; + die $err if $err; for my $r (@res) { next unless ($r->{'family'} == AF_INET6); bind $sockh, $r->{'addr'} or die "Cannot bind - $!"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/HTTP-Server-Simple-0.50/t/04cgi.t new/HTTP-Server-Simple-0.51/t/04cgi.t --- old/HTTP-Server-Simple-0.50/t/04cgi.t 2015-01-22 22:04:05.000000000 +0100 +++ new/HTTP-Server-Simple-0.51/t/04cgi.t 2015-09-16 22:58:28.000000000 +0200 @@ -34,10 +34,10 @@ if ($^O eq 'freebsd' && `sysctl -n security.jail.jailed` == 1) { delete @methods{qw(url server_name)}; delete @envvars{qw(SERVER_URL SERVER_NAME REMOTE_ADDR)}; - plan tests => 55; + plan tests => 47; } else { - plan tests => 60; + plan tests => 62; } { @@ -57,6 +57,7 @@ [["PUT / HTTP/1.1","Content-Length: 0",""], '/NOFILE/', '[PUT] no file'], [["DELETE / HTTP/1.1",""], '/NOFILE/', '[DELETE] no file'], [["PATCH / HTTP/1.1","Content-Length: 0",""], '/NOFILE/', '[PATCH] no file'], + [["OPTIONS / HTTP/1.1","Content-Length: 0",""], '/NOFILE/', '[OPTIONS] no file'], ); foreach my $message_test (@message_tests) { my ($message, $expected, $description) = @$message_test; @@ -131,6 +132,13 @@ "uses HTTP_COOKIE", ); + like( + fetch("GET /cgitest/raw_cookie HTTP/1.0", + "Cookie: foo=bar\r\nCookie: baz=qux",""), + qr|foo=bar[;,] baz=qux|, + "combines multiple cookies into HTTP_COOKIE" + ); + is(kill(9,$pid),1,'Signaled 1 process successfully'); wait or die "counldn't wait for sub-process completion"; }