r69504 - in /trunk/libplack-perl: ./ debian/ lib/ lib/Plack/ lib/Plack/Handler/ lib/Plack/Server/ lib/Plack/Test/ t/Plack-Util/ t/Plack-Util/bin/

mxey-guest at users.alioth.debian.org mxey-guest at users.alioth.debian.org
Thu Feb 24 12:21:37 UTC 2011 

Author: mxey-guest
Date: Thu Feb 24 12:21:09 2011
New Revision: 69504

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

Added:
    trunk/libplack-perl/t/Plack-Util/bin/
      - copied from r69503, branches/upstream/libplack-perl/current/t/Plack-Util/bin/
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/Builder.pm
    trunk/libplack-perl/lib/Plack/Handler/Apache2.pm
    trunk/libplack-perl/lib/Plack/Handler/FCGI.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/lib/Plack/Util.pm
    trunk/libplack-perl/t/Plack-Util/load.t

Modified: trunk/libplack-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/Changes?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/Changes (original)
+++ trunk/libplack-perl/Changes Thu Feb 24 12:21:09 2011
@@ -1,6 +1,16 @@
 Revision history for Perl extension Plack
 
 Take a look at http://github.com/miyagawa/Plack/issues for the planned changes before 1.0 release.
+
+0.9971  Wed Feb 23 14:02:35 PST 2011
+    [INCOMPATIBLE CHANGES]
+        - Localize $0 to the given .psgi path when evaluating it in Plack::Util::load_psgi()
+          This fixes the unexpected values and/or crashes with Starman when your application
+          uses FindBin module.
+
+0.9970  Tue Feb 22 08:35:50 PST 2011
+        - Apache2: Fixed a bug where dispatcher fails to parse first path when it begins with two or
+          more slashes (clkao)
 
 0.9969  Fri Feb 18 21:35:29 PST 2011
         - Suppress the use of unlocalized $_ in Plack::Runner (mst)

Modified: trunk/libplack-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/MANIFEST?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/MANIFEST (original)
+++ trunk/libplack-perl/MANIFEST Thu Feb 24 12:21:09 2011
@@ -260,6 +260,7 @@
 t/Plack-Test/suite.t
 t/Plack-Util/bad.psgi
 t/Plack-Util/bad2.psgi
+t/Plack-Util/bin/findbin.psgi
 t/Plack-Util/error.psgi
 t/Plack-Util/foreach.t
 t/Plack-Util/headers.t

Modified: trunk/libplack-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/META.yml?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/META.yml (original)
+++ trunk/libplack-perl/META.yml Thu Feb 24 12:21:09 2011
@@ -40,4 +40,4 @@
   homepage: http://plackperl.org
   license: http://dev.perl.org/licenses/
   repository: git://github.com/miyagawa/Plack.git
-version: 0.9969
+version: 0.9971

Modified: trunk/libplack-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/debian/changelog?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/debian/changelog (original)
+++ trunk/libplack-perl/debian/changelog Thu Feb 24 12:21:09 2011
@@ -1,3 +1,9 @@
+libplack-perl (0.9971-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Maximilian Gass <maximilian.gass at credativ.de>  Thu, 24 Feb 2011 13:07:20 +0100
+
 libplack-perl (0.9969-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libplack-perl/lib/Plack.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack.pm?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack.pm (original)
+++ trunk/libplack-perl/lib/Plack.pm Thu Feb 24 12:21:09 2011
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9969';
+our $VERSION = '0.9971';
 $VERSION = eval $VERSION;
 
 1;

Modified: trunk/libplack-perl/lib/Plack/Builder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Builder.pm?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Builder.pm (original)
+++ trunk/libplack-perl/lib/Plack/Builder.pm Thu Feb 24 12:21:09 2011
@@ -264,7 +264,7 @@
 
 will locate the C<$app> under C</foo/bar> since the inner C<builder>
 block puts it under C</bar> and it results a new PSGI application
-which is located under C</foo> becuase of the outer C<builder> block.
+which is located under C</foo> because of the outer C<builder> block.
 
 =back
 

Modified: trunk/libplack-perl/lib/Plack/Handler/Apache2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Handler/Apache2.pm?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Handler/Apache2.pm (original)
+++ trunk/libplack-perl/lib/Plack/Handler/Apache2.pm Thu Feb 24 12:21:09 2011
@@ -56,7 +56,7 @@
     }
 
     # Actually, we can not trust PATH_INFO from mod_perl because mod_perl squeezes multiple slashes into one slash.
-    my $uri = URI->new($r->unparsed_uri);
+    my $uri = URI->new("http://".$r->hostname.$r->unparsed_uri);
 
     $env->{PATH_INFO} = uri_unescape($uri->path);
 

Modified: trunk/libplack-perl/lib/Plack/Handler/FCGI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Handler/FCGI.pm?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Handler/FCGI.pm (original)
+++ trunk/libplack-perl/lib/Plack/Handler/FCGI.pm Thu Feb 24 12:21:09 2011
@@ -105,7 +105,7 @@
         delete $env->{HTTP_CONTENT_LENGTH};
 
         # lighttpd munges multiple slashes in PATH_INFO into one. Try recovering it
-        my $uri = URI->new($env->{REQUEST_URI});
+        my $uri = URI->new("http://localhost" .  $env->{REQUEST_URI});
         $env->{PATH_INFO} = uri_unescape($uri->path);
         $env->{PATH_INFO} =~ s/^\Q$env->{SCRIPT_NAME}\E//;
 

Modified: trunk/libplack-perl/lib/Plack/Request.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Request.pm?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Request.pm (original)
+++ trunk/libplack-perl/lib/Plack/Request.pm Thu Feb 24 12:21:09 2011
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9969';
+our $VERSION = '0.9971';
 $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=69504&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Response.pm (original)
+++ trunk/libplack-perl/lib/Plack/Response.pm Thu Feb 24 12:21:09 2011
@@ -1,7 +1,7 @@
 package Plack::Response;
 use strict;
 use warnings;
-our $VERSION = '0.9969';
+our $VERSION = '0.9971';
 $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=69504&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm (original)
+++ trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm Thu Feb 24 12:21:09 2011
@@ -1,6 +1,6 @@
 package Plack::Server::ServerSimple;
 use strict;
-our $VERSION = '0.9969';
+our $VERSION = '0.9971';
 $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=69504&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Test/Suite.pm (original)
+++ trunk/libplack-perl/lib/Plack/Test/Suite.pm Thu Feb 24 12:21:09 2011
@@ -702,10 +702,10 @@
         'repeated slashes',
         sub {
             my $cb = shift;
-            my $res = $cb->(GET "http://127.0.0.1/foo///bar/baz");
-            is $res->code, 200;
-            is $res->header('content_type'), 'text/plain';
-            is $res->content, '/foo///bar/baz';
+            my $res = $cb->(GET "http://127.0.0.1//foo///bar/baz");
+            is $res->code, 200;
+            is $res->header('content_type'), 'text/plain';
+            is $res->content, '//foo///bar/baz';
         },
         sub {
             my $env = shift;

Modified: trunk/libplack-perl/lib/Plack/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Util.pm?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Util.pm (original)
+++ trunk/libplack-perl/lib/Plack/Util.pm Thu Feb 24 12:21:09 2011
@@ -104,6 +104,8 @@
 
     my $_package = $_file;
     $_package =~ s/([^A-Za-z0-9_])/sprintf("_%2x", unpack("C", $1))/eg;
+
+    local $0 = $_file; # so FindBin etc. works
 
     return eval sprintf <<'END_EVAL', $_package;
 package Plack::Sandbox::%s;

Modified: trunk/libplack-perl/t/Plack-Util/load.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Util/load.t?rev=69504&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Util/load.t (original)
+++ trunk/libplack-perl/t/Plack-Util/load.t Thu Feb 24 12:21:09 2011
@@ -45,4 +45,11 @@
     unlike $@, qr/Died/;
 }
 
+{
+    my $app = Plack::Util::load_psgi("t/Plack-Util/bin/findbin.psgi");
+    test_psgi $app, sub {
+        like $_[0]->(GET "/")->content, qr!t[/\\]Plack-Util[/\\]bin$!;
+    }
+}
+
 done_testing;

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