r70559 - in /trunk/libplack-perl: ./ debian/ lib/ lib/Plack/ lib/Plack/Middleware/ lib/Plack/Server/ lib/Plack/Test/ t/HTTP-Server-PSGI/ t/Plack-Loader/ t/Plack-Middleware/ t/Plack-Middleware/stacktrace/ t/Plack-Request/ t/Plack-Test/

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Sat Mar 5 23:45:19 UTC 2011


Author: jawnsy-guest
Date: Sat Mar  5 23:45:12 2011
New Revision: 70559

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

Added:
    trunk/libplack-perl/lib/Plack/Middleware/IIS6ScriptNameFix.pm
      - copied unchanged from r70541, branches/upstream/libplack-perl/current/lib/Plack/Middleware/IIS6ScriptNameFix.pm
    trunk/libplack-perl/t/Plack-Middleware/iis6_script_name_fix.t
      - copied unchanged from r70541, branches/upstream/libplack-perl/current/t/Plack-Middleware/iis6_script_name_fix.t
    trunk/libplack-perl/t/Plack-Middleware/wrapcgi_exec.t
      - copied unchanged from r70541, branches/upstream/libplack-perl/current/t/Plack-Middleware/wrapcgi_exec.t
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.pm
    trunk/libplack-perl/lib/Plack/Test/Suite.pm
    trunk/libplack-perl/t/HTTP-Server-PSGI/post.t
    trunk/libplack-perl/t/Plack-Loader/auto.t
    trunk/libplack-perl/t/Plack-Middleware/chunked.t
    trunk/libplack-perl/t/Plack-Middleware/component-leak.t
    trunk/libplack-perl/t/Plack-Middleware/stacktrace/sigdie.t
    trunk/libplack-perl/t/Plack-Middleware/stacktrace/utf8.t
    trunk/libplack-perl/t/Plack-Middleware/urlmap_ports.t
    trunk/libplack-perl/t/Plack-Middleware/wrapcgi.t
    trunk/libplack-perl/t/Plack-Request/double_port.t
    trunk/libplack-perl/t/Plack-Request/upload-large.t
    trunk/libplack-perl/t/Plack-Test/2args.t
    trunk/libplack-perl/t/Plack-Test/hello_server.t

Modified: trunk/libplack-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/Changes?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/Changes (original)
+++ trunk/libplack-perl/Changes Sat Mar  5 23:45:12 2011
@@ -1,6 +1,13 @@
 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.9974  Thu Mar  3 20:55:28 PST 2011
+        - Added a documentation about using relative URI paths beginning with //
+        - Added IIS6ScriptNameFix that fixes SCRIPT_NAME for IIS6 FastCGI, extracted from Catalyst (rafl)
+        - Moved the wrapcgi/exec tests for Win32 #174
+        - Fixed a warning for the new Test::TCP in FCGI testing
+        - Clear %ENV when running the Plack::Test::Suite with Server implementation (hachi)
 
 0.9973  Sat Feb 26 09:40:15 PST 2011
         - Fixed the regexp in the code check added in 0.9972 (leedo)

Modified: trunk/libplack-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/MANIFEST?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/MANIFEST (original)
+++ trunk/libplack-perl/MANIFEST Sat Mar  5 23:45:12 2011
@@ -85,6 +85,7 @@
 lib/Plack/Middleware/ErrorDocument.pm
 lib/Plack/Middleware/Head.pm
 lib/Plack/Middleware/HTTPExceptions.pm
+lib/Plack/Middleware/IIS6ScriptNameFix.pm
 lib/Plack/Middleware/JSONP.pm
 lib/Plack/Middleware/LighttpdScriptNameFix.pm
 lib/Plack/Middleware/Lint.pm
@@ -187,6 +188,7 @@
 t/Plack-Middleware/htpasswd
 t/Plack-Middleware/httpexceptions.t
 t/Plack-Middleware/httpexceptions_streaming.t
+t/Plack-Middleware/iis6_script_name_fix.t
 t/Plack-Middleware/jsonp.t
 t/Plack-Middleware/lint.t
 t/Plack-Middleware/lint_utf8_false_alarm.t
@@ -217,6 +219,7 @@
 t/Plack-Middleware/urlmap_env.t
 t/Plack-Middleware/urlmap_ports.t
 t/Plack-Middleware/wrapcgi.t
+t/Plack-Middleware/wrapcgi_exec.t
 t/Plack-Middleware/xframework.t
 t/Plack-Middleware/xsendfile.t
 t/Plack-MIME/add_type.t

Modified: trunk/libplack-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/META.yml?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/META.yml (original)
+++ trunk/libplack-perl/META.yml Sat Mar  5 23:45:12 2011
@@ -40,4 +40,4 @@
   homepage: http://plackperl.org
   license: http://dev.perl.org/licenses/
   repository: git://github.com/miyagawa/Plack.git
-version: 0.9973
+version: 0.9974

Modified: trunk/libplack-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/debian/changelog?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/debian/changelog (original)
+++ trunk/libplack-perl/debian/changelog Sat Mar  5 23:45:12 2011
@@ -1,3 +1,9 @@
+libplack-perl (0.9974-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Sat, 05 Mar 2011 17:55:16 -0500
+
 libplack-perl (0.9973-1) unstable; urgency=low
 
   [ Maximilian Gass ]

Modified: trunk/libplack-perl/lib/Plack.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack.pm?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack.pm (original)
+++ trunk/libplack-perl/lib/Plack.pm Sat Mar  5 23:45:12 2011
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9973';
+our $VERSION = '0.9974';
 $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=70559&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Request.pm (original)
+++ trunk/libplack-perl/lib/Plack/Request.pm Sat Mar  5 23:45:12 2011
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9973';
+our $VERSION = '0.9974';
 $VERSION = eval $VERSION;
 
 use HTTP::Headers;
@@ -369,7 +369,7 @@
 =head1 METHODS
 
 Some of the methods defined in the earlier versions are deprecated in
-version 1.00. Take a look at L</"INCOMPATIBILITIES">.
+version 0.99. Take a look at L</"INCOMPATIBILITIES">.
 
 Unless otherwise noted, all methods and attributes are B<read-only>,
 and passing values to the method like an accessor doesn't work like
@@ -642,7 +642,7 @@
 
 =head1 INCOMPATIBILITIES
 
-In version 1.0, many utility methods are removed or deprecated, and
+In version 0.99, many utility methods are removed or deprecated, and
 most methods are made read-only.
 
 The following methods are deprecated: C<hostname>, C<url_scheme>,

Modified: trunk/libplack-perl/lib/Plack/Response.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Response.pm?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Response.pm (original)
+++ trunk/libplack-perl/lib/Plack/Response.pm Sat Mar  5 23:45:12 2011
@@ -1,7 +1,7 @@
 package Plack::Response;
 use strict;
 use warnings;
-our $VERSION = '0.9973';
+our $VERSION = '0.9974';
 $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=70559&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm (original)
+++ trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm Sat Mar  5 23:45:12 2011
@@ -1,6 +1,6 @@
 package Plack::Server::ServerSimple;
 use strict;
-our $VERSION = '0.9973';
+our $VERSION = '0.9974';
 $VERSION = eval $VERSION;
 
 use parent qw(Plack::Handler::HTTP::Server::Simple);

Modified: trunk/libplack-perl/lib/Plack/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Test.pm?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Test.pm (original)
+++ trunk/libplack-perl/lib/Plack/Test.pm Sat Mar  5 23:45:12 2011
@@ -86,6 +86,17 @@
       my $res = $cb->(GET "/hello");
   };
 
+Note that however, it is not a good idea to pass an arbitrary
+(i.e. user-input) string to the C<GET> function or even C<<
+HTTP::Request->new >> by assuming that it always represents a path,
+because:
+
+  my $req = GET "//foo/bar";
+
+would represent a request for a URL that has no scheme, has a hostname
+I<foo> and a path I</bar>, instead of a path I<//foo/bar> which you
+might actually want.
+
 =back
 
 =head1 OPTIONS

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=70559&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Test/Suite.pm (original)
+++ trunk/libplack-perl/lib/Plack/Test/Suite.pm Sat Mar  5 23:45:12 2011
@@ -763,6 +763,7 @@
             my $port = shift;
             my $app  = $class->test_app_handler;
             $server->($port, $app);
+            exit(0); # for Test::TCP
         },
         port => $server_port,
     );

Modified: trunk/libplack-perl/t/HTTP-Server-PSGI/post.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/HTTP-Server-PSGI/post.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/HTTP-Server-PSGI/post.t (original)
+++ trunk/libplack-perl/t/HTTP-Server-PSGI/post.t Sat Mar  5 23:45:12 2011
@@ -10,7 +10,7 @@
     server => sub {
         my $port = shift;
         my $runner = Plack::Runner->new;
-        $runner->parse_options("--port" => $port, "-E", "dev");
+        $runner->parse_options("--port" => $port, "-E", "dev", "-s", "HTTP::Server::PSGI");
         $runner->run(
             sub {
                 my $env = shift;

Modified: trunk/libplack-perl/t/Plack-Loader/auto.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Loader/auto.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Loader/auto.t (original)
+++ trunk/libplack-perl/t/Plack-Loader/auto.t Sat Mar  5 23:45:12 2011
@@ -12,8 +12,7 @@
 $INC{"Plack/Handler/Twiggy.pm"} = __FILE__;
 sub Plack::Handler::Twiggy::new { bless {}, shift }
 
-# The following eval might not fail if you set PLACK_SEVER
-delete $ENV{PLACK_SERVER};
+local %ENV = ();
 
 eval {
     my $loader = Plack::Loader->new;

Modified: trunk/libplack-perl/t/Plack-Middleware/chunked.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Middleware/chunked.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Middleware/chunked.t (original)
+++ trunk/libplack-perl/t/Plack-Middleware/chunked.t Sat Mar  5 23:45:12 2011
@@ -6,6 +6,8 @@
 use Plack::Test;
 use Plack::Middleware::Chunked;
 $Plack::Test::Impl = "Server";
+
+local %ENV = (); # use HTTP::Server::PSGI
 
 my @app = (
     sub { [ 200, [], [ 'Hello World' ] ] },

Modified: trunk/libplack-perl/t/Plack-Middleware/component-leak.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Middleware/component-leak.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Middleware/component-leak.t (original)
+++ trunk/libplack-perl/t/Plack-Middleware/component-leak.t Sat Mar  5 23:45:12 2011
@@ -39,6 +39,7 @@
 use Plack::Test;
 use HTTP::Request::Common;
 $Plack::Test::Impl = "Server";
+local %ENV = (); # use HTTP::Server::PSGI
 
 my $app = MyComponent->new;
 test_psgi( $app->to_app, sub {

Modified: trunk/libplack-perl/t/Plack-Middleware/stacktrace/sigdie.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Middleware/stacktrace/sigdie.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Middleware/stacktrace/sigdie.t (original)
+++ trunk/libplack-perl/t/Plack-Middleware/stacktrace/sigdie.t Sat Mar  5 23:45:12 2011
@@ -6,6 +6,7 @@
 use HTTP::Request::Common;
 
 $Plack::Test::Impl = "Server";
+local %ENV = (); # use HTTP::Server::PSGI
 
 my $app = sub {
     $SIG{__DIE__} = sub {};

Modified: trunk/libplack-perl/t/Plack-Middleware/stacktrace/utf8.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Middleware/stacktrace/utf8.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Middleware/stacktrace/utf8.t (original)
+++ trunk/libplack-perl/t/Plack-Middleware/stacktrace/utf8.t Sat Mar  5 23:45:12 2011
@@ -7,6 +7,8 @@
 use HTTP::Request::Common;
 
 $Plack::Test::Impl = "Server";
+local %ENV = (); # use HTTP::Server::PSGI
+
 my $app = Plack::Middleware::StackTrace->wrap(sub { die "Foo \x{30c6}" }, no_print_errors => 1);
 
 test_psgi $app, sub {

Modified: trunk/libplack-perl/t/Plack-Middleware/urlmap_ports.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Middleware/urlmap_ports.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Middleware/urlmap_ports.t (original)
+++ trunk/libplack-perl/t/Plack-Middleware/urlmap_ports.t Sat Mar  5 23:45:12 2011
@@ -5,6 +5,7 @@
 use HTTP::Request::Common;
 
 $Plack::Test::Impl = "Server";
+local %ENV = (); # use HTTP::Server::PSGI
 
 my $make_app = sub {
     my $name = shift;

Modified: trunk/libplack-perl/t/Plack-Middleware/wrapcgi.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Middleware/wrapcgi.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Middleware/wrapcgi.t (original)
+++ trunk/libplack-perl/t/Plack-Middleware/wrapcgi.t Sat Mar  5 23:45:12 2011
@@ -21,55 +21,4 @@
     is $res->content, "Hello bar counter=2";
 };
 
-{
-    my $tmp = File::Temp->new(CLEANUP => 1);
-    print $tmp <<"...";
-#!$^X
-use CGI;
-my \$q = CGI->new;
-print \$q->header, "Hello ", \$q->param('name'), " counter=", ++\$COUNTER;
-...
-    close $tmp;
-
-    chmod(oct("0700"), $tmp->filename) or die "Cannot chmod";
-
-    my $app_exec = Plack::App::WrapCGI->new(script => "$tmp", execute => 1)->to_app;
-    test_psgi app => $app_exec, client => sub {
-        my $cb = shift;
-
-        my $res = $cb->(GET "http://localhost/?name=foo");
-        is $res->code, 200;
-        is $res->content, "Hello foo counter=1";
-
-        $res = $cb->(POST "http://localhost/", ['name' => 'bar']);
-        is $res->code, 200;
-        is $res->content, "Hello bar counter=1";
-    };
-
-    undef $tmp;
-};
-
-{
-    my $tmp = File::Temp->new(CLEANUP => 1);
-    print $tmp <<"...";
-#!$^X
-use CGI;
-my \$q = CGI->new;
-print \$q->header, "Hello " x 10000;
-...
-    close $tmp;
-
-    chmod(oct("0700"), $tmp->filename) or die "Cannot chmod";
-
-    my $app_exec = Plack::App::WrapCGI->new(script => "$tmp", execute => 1)->to_app;
-    test_psgi app => $app_exec, client => sub {
-        my $cb = shift;
-
-        my $res = $cb->(GET "http://localhost/");
-        is $res->code, 200;
-    };
-
-    undef $tmp;
-};
-
 done_testing;

Modified: trunk/libplack-perl/t/Plack-Request/double_port.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Request/double_port.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Request/double_port.t (original)
+++ trunk/libplack-perl/t/Plack-Request/double_port.t Sat Mar  5 23:45:12 2011
@@ -4,6 +4,7 @@
 use HTTP::Request::Common;
 
 $Plack::Test::Impl = 'Server';
+local %ENV = (); # use HTTP::Server::PSGI
 
 my $app = sub {
     my $req = Plack::Request->new(shift);

Modified: trunk/libplack-perl/t/Plack-Request/upload-large.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Request/upload-large.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Request/upload-large.t (original)
+++ trunk/libplack-perl/t/Plack-Request/upload-large.t Sat Mar  5 23:45:12 2011
@@ -9,6 +9,8 @@
 
 my @backends = qw( Server MockHTTP );
 sub flip_backend { $Plack::Test::Impl = shift @backends }
+
+local %ENV = (); # use HTTP::Server::PSGI
 
 my $app = sub {
     my $req = Plack::Request->new(shift);

Modified: trunk/libplack-perl/t/Plack-Test/2args.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Test/2args.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Test/2args.t (original)
+++ trunk/libplack-perl/t/Plack-Test/2args.t Sat Mar  5 23:45:12 2011
@@ -2,6 +2,7 @@
 use Test::More;
 use HTTP::Request::Common;
 $Plack::Test::Impl = "Server";
+local %ENV = (); # use HTTP::Server::PSGI
 
 my $app = sub { return [ 200, [], [ "Hello" ] ] };
 

Modified: trunk/libplack-perl/t/Plack-Test/hello_server.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Test/hello_server.t?rev=70559&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Test/hello_server.t (original)
+++ trunk/libplack-perl/t/Plack-Test/hello_server.t Sat Mar  5 23:45:12 2011
@@ -2,6 +2,7 @@
 use Plack::Test;
 
 $Plack::Test::Impl = "Server";
+local %ENV = (); # use HTTP::Server::PSGI
 
 test_psgi
     client => sub {




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