r5022 - in /packages/libhttp-server-simple-perl/trunk: Changes META.yml SIGNATURE debian/changelog lib/HTTP/Server/Simple.pm t/04cgi.t

eloy at users.alioth.debian.org eloy at users.alioth.debian.org
Fri Apr 13 08:50:32 UTC 2007


Author: eloy
Date: Fri Apr 13 08:50:32 2007
New Revision: 5022

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5022
Log:
new upstream version

Modified:
    packages/libhttp-server-simple-perl/trunk/Changes
    packages/libhttp-server-simple-perl/trunk/META.yml
    packages/libhttp-server-simple-perl/trunk/SIGNATURE
    packages/libhttp-server-simple-perl/trunk/debian/changelog
    packages/libhttp-server-simple-perl/trunk/lib/HTTP/Server/Simple.pm
    packages/libhttp-server-simple-perl/trunk/t/04cgi.t

Modified: packages/libhttp-server-simple-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libhttp-server-simple-perl/trunk/Changes?rev=5022&op=diff
==============================================================================
--- packages/libhttp-server-simple-perl/trunk/Changes (original)
+++ packages/libhttp-server-simple-perl/trunk/Changes Fri Apr 13 08:50:32 2007
@@ -1,6 +1,11 @@
-0.26 Sat Nov 25 19:10:25 EST 2006
- * 0.24 had a bogus signature. No code changes, just release-engineering changes.
+0.27
 
+ * 0.26 release apparently didn't get to cpan correctly
+
+0.26
+ 
+  * Supports multi-line encoded values in query_sting (like foo%0Abar) -- Dobrica Pavlinusic 
+  * Fixes to URI unescaping to behave like apache does
 0.24
 
   * Hopefully deal with an odd case where a poorly behaved Internet Explorer could crash the server.

Modified: packages/libhttp-server-simple-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libhttp-server-simple-perl/trunk/META.yml?rev=5022&op=diff
==============================================================================
--- packages/libhttp-server-simple-perl/trunk/META.yml (original)
+++ packages/libhttp-server-simple-perl/trunk/META.yml Fri Apr 13 08:50:32 2007
@@ -10,4 +10,4 @@
   CGI: 0
   Socket: 0
   Test::More: 0
-version: 0.26
+version: 0.27

Modified: packages/libhttp-server-simple-perl/trunk/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libhttp-server-simple-perl/trunk/SIGNATURE?rev=5022&op=diff
==============================================================================
--- packages/libhttp-server-simple-perl/trunk/SIGNATURE (original)
+++ packages/libhttp-server-simple-perl/trunk/SIGNATURE Fri Apr 13 08:50:32 2007
@@ -1,12 +1,12 @@
 This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.55.
+signed via the Module::Signature module, version 0.41.
 
 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
+It would 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.
@@ -14,9 +14,9 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 0ee9208618c1ad78e29d9a8ab6050ee8de285c08 Changes
+SHA1 ffccf55176240d36823f76139f3940e375371c1d Changes
 SHA1 0ac508c50476dcc2bf8fe3094cb341425291e1ee MANIFEST
-SHA1 27c29893dde9b605f145bce6e9fe516d07910f43 META.yml
+SHA1 646abfae04e983d8f7c0d1b04b5395ccab31a202 META.yml
 SHA1 490f3fd115e09cb05b725580e5ed5cdd58241049 Makefile.PL
 SHA1 ed0c107672daac3bc9e266876666e1059dbe44b7 README
 SHA1 4ea1e9072ca87399184a46233df52a21e285604d ex/sample_server
@@ -28,18 +28,18 @@
 SHA1 381bb98ea3877bba49ae85e7a7ea130645fd3dbf inc/Module/Install/Metadata.pm
 SHA1 0c2118868ef82ac517eb6d9c3bd93e6eb9bbf83e inc/Module/Install/Win32.pm
 SHA1 e827d6d43771032fa3df35c0ad5e5698d0e54cda inc/Module/Install/WriteAll.pm
-SHA1 218d8bcd76236baddc3b136fe367b227f8f030f8 lib/HTTP/Server/Simple.pm
+SHA1 67b1efef4b807f9780e3449e5dc053b8a1df1ff3 lib/HTTP/Server/Simple.pm
 SHA1 40f24374f2b5845a3025e14ca4b91bd58298de03 lib/HTTP/Server/Simple/CGI.pm
 SHA1 47ef836a1cdd03add505dd4c90819cafb61dc565 lib/HTTP/Server/Simple/CGI/Environment.pm
 SHA1 db064af54cab345a71daec576e32e64b8fb1033d t/00smoke.t
 SHA1 b64150ac4ebc772f8b1f69455039e7ea3e067b3f t/01live.t
 SHA1 aca95653cfce68912e08c57b3a4566207e2f99b3 t/02pod.t
 SHA1 a7024d0d8e7b80d26f75a3551a1406a797b382f8 t/03podcoverage.t
-SHA1 bbf511880e77fef4a252ed84438075cbb77924e4 t/04cgi.t
+SHA1 bc9dc786924d61aa0dc8747c1d68f47cf421ec37 t/04cgi.t
 -----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.3 (Darwin)
+Version: GnuPG v1.4.3 (GNU/Linux)
 
-iD8DBQFFaNy8Ei9d9xCOQEYRAt4PAJwMCNL7D2vqCToK/s9TZKV0HnpsHgCghhvA
-JZAb2fcxY07Fh7EVkpLYUEI=
-=8sNZ
+iD8DBQFFsTVyEi9d9xCOQEYRArnCAJ9vAxXaLPqMky5VTMc2mhdKiVA+7gCdG7Ql
+6BmF5YI5Vj8kAZModSP8ByM=
+=eCK+
 -----END PGP SIGNATURE-----

Modified: packages/libhttp-server-simple-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libhttp-server-simple-perl/trunk/debian/changelog?rev=5022&op=diff
==============================================================================
--- packages/libhttp-server-simple-perl/trunk/debian/changelog (original)
+++ packages/libhttp-server-simple-perl/trunk/debian/changelog Fri Apr 13 08:50:32 2007
@@ -1,3 +1,9 @@
+libhttp-server-simple-perl (0.27-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org>  Fri, 13 Apr 2007 10:49:47 +0200
+
 libhttp-server-simple-perl (0.26-1) unstable; urgency=low
 
   * New upstream release

Modified: packages/libhttp-server-simple-perl/trunk/lib/HTTP/Server/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libhttp-server-simple-perl/trunk/lib/HTTP/Server/Simple.pm?rev=5022&op=diff
==============================================================================
--- packages/libhttp-server-simple-perl/trunk/lib/HTTP/Server/Simple.pm (original)
+++ packages/libhttp-server-simple-perl/trunk/lib/HTTP/Server/Simple.pm Fri Apr 13 08:50:32 2007
@@ -7,7 +7,7 @@
 use URI::Escape;
 
 use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.26';
+$VERSION = '0.27';
 
 
 =head1 NAME
@@ -305,7 +305,7 @@
         $proto ||= "HTTP/0.9";
 
         my ( $file, $query_string )
-            = ( $request_uri =~ /([^?]*)(?:\?(.*))?/ );    # split at ?
+            = ( $request_uri =~ /([^?]*)(?:\?(.*))?/s );    # split at ?
 
         $self->setup(
             method       => $method,
@@ -529,7 +529,7 @@
     my $uri      = $2 || '';
     my $protocol = $3 || '';
 
-    return ( $method, uri_unescape( $uri ), $protocol );
+    return ( $method, $uri, $protocol );
 }
 
 =head2 parse_headers

Modified: packages/libhttp-server-simple-perl/trunk/t/04cgi.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libhttp-server-simple-perl/trunk/t/04cgi.t?rev=5022&op=diff
==============================================================================
--- packages/libhttp-server-simple-perl/trunk/t/04cgi.t (original)
+++ packages/libhttp-server-simple-perl/trunk/t/04cgi.t Fri Apr 13 08:50:32 2007
@@ -2,12 +2,7 @@
 use Socket;
 use strict;
 
-eval "use Data::Dumper";
-if ($@) {
-    plan skip_all => "Data::Dumper not available";
-}else {
-    plan tests => 20;
-}
+plan tests => 21;
 
 use constant PORT => 13432;
 my $host = gethostbyaddr(inet_aton('localhost'), AF_INET);
@@ -63,6 +58,12 @@
         );
     select(undef,undef,undef,0.2); # wait a sec
   }
+
+  like(
+       fetch("GET /cgitest/REQUEST_URI?foo%3Fbar",""),
+       "/foo%3Fbar/",
+       "Didn't decode already"
+      );
 
   is(kill(9,$pid),1,'Signaled 1 process successfully');
   wait or die "counldn't wait for sub-process completion";
@@ -141,8 +142,6 @@
   package CGIServer;
   use base qw(HTTP::Server::Simple::CGI);
   use Env;
-  eval "use Data::Dumper";
-
 
   sub handle_request {
     my $self=shift;




More information about the Pkg-perl-cvs-commits mailing list