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 - [email protected]
+
+- 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";
}
