r67730 - in /trunk/libplack-perl: ./ debian/ lib/ lib/Plack/ lib/Plack/Server/ lib/Plack/Test/ share/stuff../ t/Plack-Handler/ t/Plack-Middleware/

ghedo-guest at users.alioth.debian.org ghedo-guest at users.alioth.debian.org
Sun Jan 23 12:07:16 UTC 2011


Author: ghedo-guest
Date: Sun Jan 23 12:06:59 2011
New Revision: 67730

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=67730
Log:
New upstream release

Removed:
    trunk/libplack-perl/share/stuff../
Modified:
    trunk/libplack-perl/Changes
    trunk/libplack-perl/MANIFEST
    trunk/libplack-perl/META.yml
    trunk/libplack-perl/debian/changelog
    trunk/libplack-perl/lib/Plack.pm
    trunk/libplack-perl/lib/Plack/Request.pm
    trunk/libplack-perl/lib/Plack/Response.pm
    trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm
    trunk/libplack-perl/lib/Plack/Test/Suite.pm
    trunk/libplack-perl/t/Plack-Handler/fcgi.t
    trunk/libplack-perl/t/Plack-Middleware/directory.t

Modified: trunk/libplack-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/Changes?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/Changes (original)
+++ trunk/libplack-perl/Changes Sun Jan 23 12:06:59 2011
@@ -2,8 +2,18 @@
 
 Take a look at http://github.com/miyagawa/Plack/issues for the planned changes before 1.0 release.
 
+0.9963  Mon Jan 10 16:46:33 PST 2011
+        - Fixed fcgi.t for lighttpd < 1.4.23 (confound)
+
+0.9962  Sat Jan  8 21:07:30 PST 2011
+        - Same fix as 0.9961 but works around the issues with Strawberry unarchiver
+
+0.9961  Fri Jan  7 21:54:04 PST 2011
+        - Skip directory.t on win32 since the directory "stuff.." can't be created [RT:64545]
+
 0.9960  Sat Dec 25 11:16:08 PST 2010
-        - FCGI: Fixed the bug introduced in 0.9958 where PATH_INFO contains the SCRIPT_NAME value (ambs)
+        - FCGI: Fixed the regression in 0.9958 where PATH_INFO gets wrong value when hosted under a
+          non-root path (ambs)
         - Improved the FastCGI and Apache2 test infrastructure to test SCRIPT_NAME values
 
 0.9959  Tue Dec 21 11:38:08 PST 2010

Modified: trunk/libplack-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/MANIFEST?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/MANIFEST (original)
+++ trunk/libplack-perl/MANIFEST Sun Jan 23 12:06:59 2011
@@ -135,7 +135,6 @@
 share/#foo
 share/baybridge.jpg
 share/face.jpg
-share/stuff../Hello.txt
 t/00_compile.t
 t/FCGIUtils.pm
 t/HTTP-Message-PSGI/utf8_req.t

Modified: trunk/libplack-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/META.yml?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/META.yml (original)
+++ trunk/libplack-perl/META.yml Sun Jan 23 12:06:59 2011
@@ -38,4 +38,4 @@
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://github.com/miyagawa/Plack.git
-version: 0.9960
+version: 0.9963

Modified: trunk/libplack-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/debian/changelog?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/debian/changelog (original)
+++ trunk/libplack-perl/debian/changelog Sun Jan 23 12:06:59 2011
@@ -1,13 +1,13 @@
-libplack-perl (0.9960-1) UNRELEASED; urgency=low
+libplack-perl (0.9963-1) UNRELEASED; urgency=low
 
-  Warnings during build; consulting with upstream
-  Use of uninitialized value $line in length at /usr/share/perl5/HTTP/Server/Simple/PSGI.pm line 137.
-  See also: http://paste.scsys.co.uk/77146
+  [ Alessandro Ghedini ]
+  * New upstream release
 
-  * New upstream release
+  [ Jonathan Yu ]
+  * New upstream release 0.9960
   * Update dependencies per upstream
 
- -- Jonathan Yu <jawnsy at cpan.org>  Thu, 30 Dec 2010 21:08:06 -0500
+ -- Alessandro Ghedini <al3xbio at gmail.com>  Sun, 23 Jan 2011 12:46:36 +0100
 
 libplack-perl (0.9951-1) unstable; urgency=low
 

Modified: trunk/libplack-perl/lib/Plack.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack.pm?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack.pm (original)
+++ trunk/libplack-perl/lib/Plack.pm Sun Jan 23 12:06:59 2011
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9960';
+our $VERSION = '0.9963';
 $VERSION = eval $VERSION;
 
 1;

Modified: trunk/libplack-perl/lib/Plack/Request.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Request.pm?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Request.pm (original)
+++ trunk/libplack-perl/lib/Plack/Request.pm Sun Jan 23 12:06:59 2011
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9960';
+our $VERSION = '0.9963';
 $VERSION = eval $VERSION;
 
 use HTTP::Headers;

Modified: trunk/libplack-perl/lib/Plack/Response.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Response.pm?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Response.pm (original)
+++ trunk/libplack-perl/lib/Plack/Response.pm Sun Jan 23 12:06:59 2011
@@ -1,7 +1,7 @@
 package Plack::Response;
 use strict;
 use warnings;
-our $VERSION = '0.9960';
+our $VERSION = '0.9963';
 $VERSION = eval $VERSION;
 
 use Plack::Util::Accessor qw(body status);

Modified: trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm (original)
+++ trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm Sun Jan 23 12:06:59 2011
@@ -1,6 +1,6 @@
 package Plack::Server::ServerSimple;
 use strict;
-our $VERSION = '0.9960';
+our $VERSION = '0.9963';
 $VERSION = eval $VERSION;
 
 use parent qw(Plack::Handler::HTTP::Server::Simple);

Modified: trunk/libplack-perl/lib/Plack/Test/Suite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Test/Suite.pm?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Test/Suite.pm (original)
+++ trunk/libplack-perl/lib/Plack/Test/Suite.pm Sun Jan 23 12:06:59 2011
@@ -694,7 +694,7 @@
             return [
                 200,
                 [ 'Content-Type' => 'text/plain', 'X-AUTHORIZATION' => exists($env->{HTTP_AUTHORIZATION}) ? 1 : 0 ],
-                [ $env->{HTTP_AUTHORIZATION} ],
+                [ $env->{HTTP_AUTHORIZATION} || '' ],
             ];
         },
     ],

Modified: trunk/libplack-perl/t/Plack-Handler/fcgi.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Handler/fcgi.t?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Handler/fcgi.t (original)
+++ trunk/libplack-perl/t/Plack-Handler/fcgi.t Sun Jan 23 12:06:59 2011
@@ -14,7 +14,8 @@
     $ENV{PLACK_TEST_SCRIPT_NAME} = $_;
     test_lighty_external(
         sub {
-            ($lighty_port, $fcgi_port, my $needs_fix) = @_;
+            ($lighty_port, $fcgi_port) = (shift, shift);
+            my $needs_fix = $_ eq '' ? shift : 0;
             Plack::Test::Suite->run_server_tests(run_server_cb($needs_fix), $fcgi_port, $lighty_port);
         }
     );

Modified: trunk/libplack-perl/t/Plack-Middleware/directory.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Middleware/directory.t?rev=67730&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Middleware/directory.t (original)
+++ trunk/libplack-perl/t/Plack-Middleware/directory.t Sun Jan 23 12:06:59 2011
@@ -24,9 +24,21 @@
         $res = $cb->(GET "/..%00foo");
         is $res->code, 400;
 
-        $res = $cb->(GET "/stuff../Hello.txt");
-        is $res->code, 200;
-        is $res->content, "Hello\n";
+    SKIP: {
+            skip "Filenames can't end with . on windows", 2 if $^O eq "MSWin32";
+
+            mkdir "share/stuff..", 0777;
+            open my $out, ">", "share/stuff../Hello.txt" or die $!;
+            print $out "Hello\n";
+            close $out;
+
+            $res = $cb->(GET "/stuff../Hello.txt");
+            is $res->code, 200;
+            is $res->content, "Hello\n";
+
+            unlink "share/stuff../Hello.txt";
+            rmdir "share/stuff..";
+        }
     },
     app => $handler,
 );




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