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