r74060 - in /trunk/libplack-perl: Changes META.yml debian/changelog lib/Plack.pm lib/Plack/Request.pm lib/Plack/Response.pm lib/Plack/Server/ServerSimple.pm lib/Plack/Test/Suite.pm t/Plack-Handler/output_encoding.t

ghedo-guest at users.alioth.debian.org ghedo-guest at users.alioth.debian.org
Fri May 6 16:47:56 UTC 2011


Author: ghedo-guest
Date: Fri May  6 16:47:49 2011
New Revision: 74060

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

Modified:
    trunk/libplack-perl/Changes
    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/output_encoding.t

Modified: trunk/libplack-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/Changes?rev=74060&op=diff
==============================================================================
--- trunk/libplack-perl/Changes (original)
+++ trunk/libplack-perl/Changes Fri May  6 16:47:49 2011
@@ -1,6 +1,11 @@
 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.9978  Wed May  4 11:29:12 PDT 2011
+    [TEST FIXES]
+        - Fixed a failing output_encoding.t because of FCGI dependencies
+        - Improved Plack::Test::Suite documentation
 
 0.9977  Sun May  1 12:16:08 PDT 2011
     [BUG FIXES]

Modified: trunk/libplack-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/META.yml?rev=74060&op=diff
==============================================================================
--- trunk/libplack-perl/META.yml (original)
+++ trunk/libplack-perl/META.yml Fri May  6 16:47:49 2011
@@ -40,4 +40,4 @@
   homepage: http://plackperl.org
   license: http://dev.perl.org/licenses/
   repository: git://github.com/miyagawa/Plack.git
-version: 0.9977
+version: 0.9978

Modified: trunk/libplack-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/debian/changelog?rev=74060&op=diff
==============================================================================
--- trunk/libplack-perl/debian/changelog (original)
+++ trunk/libplack-perl/debian/changelog Fri May  6 16:47:49 2011
@@ -1,9 +1,9 @@
-libplack-perl (0.9977-1) UNRELEASED; urgency=low
+libplack-perl (0.9978-1) UNRELEASED; urgency=low
 
   * New upstream release
   * Bump Standards-Version to 3.9.2 (no changes needed)
 
- -- Alessandro Ghedini <al3xbio at gmail.com>  Mon, 02 May 2011 19:33:14 +0200
+ -- Alessandro Ghedini <al3xbio at gmail.com>  Fri, 06 May 2011 18:46:10 +0200
 
 libplack-perl (0.9976-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=74060&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack.pm (original)
+++ trunk/libplack-perl/lib/Plack.pm Fri May  6 16:47:49 2011
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9977';
+our $VERSION = '0.9978';
 $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=74060&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Request.pm (original)
+++ trunk/libplack-perl/lib/Plack/Request.pm Fri May  6 16:47:49 2011
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9977';
+our $VERSION = '0.9978';
 $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=74060&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Response.pm (original)
+++ trunk/libplack-perl/lib/Plack/Response.pm Fri May  6 16:47:49 2011
@@ -1,7 +1,7 @@
 package Plack::Response;
 use strict;
 use warnings;
-our $VERSION = '0.9977';
+our $VERSION = '0.9978';
 $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=74060&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm (original)
+++ trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm Fri May  6 16:47:49 2011
@@ -1,6 +1,6 @@
 package Plack::Server::ServerSimple;
 use strict;
-our $VERSION = '0.9977';
+our $VERSION = '0.9978';
 $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=74060&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Test/Suite.pm (original)
+++ trunk/libplack-perl/lib/Plack/Test/Suite.pm Fri May  6 16:47:49 2011
@@ -247,6 +247,7 @@
             is $res->header('content_type'), 'text/plain';
             is $res->content, join("\n",
                 'REQUEST_METHOD:GET',
+                "SCRIPT_NAME:$ENV{PLACK_TEST_SCRIPT_NAME}",
                 'PATH_INFO:/foo/',
                 'QUERY_STRING:dankogai=kogaidan',
                 'SERVER_NAME:127.0.0.1',
@@ -256,7 +257,7 @@
         sub {
             my $env = shift;
             my $body;
-            $body .= $_ . ':' . $env->{$_} . "\n" for qw/REQUEST_METHOD PATH_INFO QUERY_STRING SERVER_NAME SERVER_PORT/;
+            $body .= $_ . ':' . $env->{$_} . "\n" for qw/REQUEST_METHOD SCRIPT_NAME PATH_INFO QUERY_STRING SERVER_NAME SERVER_PORT/;
             return [
                 200,
                 [ 'Content-Type' => 'text/plain', ],
@@ -769,9 +770,7 @@
                 my $cb = sub {
                     my $req = shift;
                     $req->uri->port($http_port || $port);
-                    if ($ENV{PLACK_TEST_SCRIPT_NAME}) {
-                        $req->uri->path($ENV{PLACK_TEST_SCRIPT_NAME} . $req->uri->path);
-                    }
+                    $req->uri->path(($ENV{PLACK_TEST_SCRIPT_NAME}||"") . $req->uri->path);
                     $req->header('X-Plack-Test' => $i);
                     return $ua->request($req);
                 };

Modified: trunk/libplack-perl/t/Plack-Handler/output_encoding.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Handler/output_encoding.t?rev=74060&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Handler/output_encoding.t (original)
+++ trunk/libplack-perl/t/Plack-Handler/output_encoding.t Fri May  6 16:47:49 2011
@@ -20,7 +20,7 @@
     my $mangle_file = 'mangle_test.txt';
 
     test_handler( 'CGI', $mangler, $mangle_file );
-    test_handler( 'FCGI', $mangler, $mangle_file );
+#    test_handler( 'FCGI', $mangler, $mangle_file );
 
     return;
 }




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