r22392 - in /branches/upstream/libhttp-server-simple-perl/current: Changes SIGNATURE lib/HTTP/Server/Simple.pm

[ghostbar-guest at users.alioth.debian.org]

Author: ghostbar-guest
Date: Sun Jun 29 04:50:25 2008
New Revision: 22392

URL: http://svn.debian.org/wsvn/?sc=1&rev=22392
Log:
[svn-upgrade] Integrating new upstream version, libhttp-server-simple-perl (0.34)

Modified:
    branches/upstream/libhttp-server-simple-perl/current/Changes
    branches/upstream/libhttp-server-simple-perl/current/SIGNATURE
    branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm

Modified: branches/upstream/libhttp-server-simple-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-server-simple-perl/current/Changes?rev=22392&op=diff
==============================================================================
--- branches/upstream/libhttp-server-simple-perl/current/Changes (original)
+++ branches/upstream/libhttp-server-simple-perl/current/Changes Sun Jun 29 04:50:25 2008
@@ -1,3 +1,11 @@
+0.34
+
+* Call setup_environment if a Net::Server is being used, for consistency.
+
+* Don't print_banner if a Net::Server is being used.
+
+* Make header parsing comply with RFC 2616. [rt.cpan.org #21411]
+
 0.33 Fri Apr 25 13:57:30 EDT 2008
 
 * The new support for background processes notifying the parent didn't quite work right for some apps using HSS. It's been reverted for now and the tests TODOED

Modified: branches/upstream/libhttp-server-simple-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-server-simple-perl/current/SIGNATURE?rev=22392&op=diff
==============================================================================
--- branches/upstream/libhttp-server-simple-perl/current/SIGNATURE (original)
+++ branches/upstream/libhttp-server-simple-perl/current/SIGNATURE Sun Jun 29 04:50:25 2008
@@ -14,7 +14,7 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 6e71ebcda56056cba0976936f663a31385ee74e9 Changes
+SHA1 9a45ee78f36f1167cfe442dcf9206cba941ebdda Changes
 SHA1 0ac508c50476dcc2bf8fe3094cb341425291e1ee MANIFEST
 SHA1 7812a1c898acbf76fcccb52068b2a9c23cb86bbf META.yml
 SHA1 3a02ba613b11b07dd1fa97e2a6b962ee3e039c98 Makefile.PL
@@ -28,7 +28,7 @@
 SHA1 7d3be9b158e37b2b2c22084740099955623b1d56 inc/Module/Install/Metadata.pm
 SHA1 0a8b66180229ba2f9deaea1fedd0aacf7a7ace6b inc/Module/Install/Win32.pm
 SHA1 d3352eb33fe43a5f3ead513f645224fe34d73bc9 inc/Module/Install/WriteAll.pm
-SHA1 a2d9fa209ed532a7d2f54d39e61b9db22ec2d8a2 lib/HTTP/Server/Simple.pm
+SHA1 26a3441bde56ccec42b282612bee896c928ddd94 lib/HTTP/Server/Simple.pm
 SHA1 40f24374f2b5845a3025e14ca4b91bd58298de03 lib/HTTP/Server/Simple/CGI.pm
 SHA1 99ec6998826486bbc5775b222408e6baf40dc885 lib/HTTP/Server/Simple/CGI/Environment.pm
 SHA1 db064af54cab345a71daec576e32e64b8fb1033d t/00smoke.t
@@ -39,7 +39,7 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.8 (Darwin)
 
-iD8DBQFIEhwGEi9d9xCOQEYRAhvXAJoDmvqGE9jgLW3rBnmFN2HlE+l0MQCgykQf
-dpmWP9A3gs4Glr2o8mIYDAI=
-=86Kr
+iD8DBQFITfvoEi9d9xCOQEYRAuzMAJ9LvWoC67trNPv/lJgdLWmOKh+uXwCgr/7E
+wOpC3KXbIoS9HMFCHBaRQdc=
+=jcKb
 -----END PGP SIGNATURE-----

Modified: branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm?rev=22392&op=diff
==============================================================================
--- branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm (original)
+++ branches/upstream/libhttp-server-simple-perl/current/lib/HTTP/Server/Simple.pm Sun Jun 29 04:50:25 2008
@@ -8,7 +8,7 @@
 use URI::Escape;
 
 use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.33';
+$VERSION = '0.34';
 
 
 =head1 NAME
@@ -256,7 +256,14 @@
     if ($server) {
         require join( '/', split /::/, $server ) . '.pm';
         *{"$pkg\::ISA"} = [$server];
-        $self->print_banner;
+
+        # clear the environment before every request
+        require HTTP::Server::Simple::CGI;
+        *{"$pkg\::post_accept"} = sub {
+            HTTP::Server::Simple::CGI::Environment->setup_environment;
+            # $self->SUPER::post_accept uses the wrong super package
+            $server->can('post_accept')->(@_);
+        };
     }
     else {
         $self->setup_listener;
@@ -636,7 +643,7 @@
     while ( sysread( STDIN, my $buff, 1 ) ) {
         if ( $buff eq "\n" ) {
             $chunk =~ s/[\r\l\n\s]+$//;
-            if ( $chunk =~ /^([\w\-]+): (.+)/i ) {
+            if ( $chunk =~ /^([^()<>\@,;:\\"\/\[\]?={} \t]+):\s*(.*)/i ) {
                 push @headers, $1 => $2;
             }
             last if ( $chunk =~ /^$/ );