r57286 - in /trunk/libplack-perl: ./ debian/ lib/ lib/Plack/ lib/Plack/Middleware/ lib/Plack/Server/ t/Plack-Handler/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun May 2 02:16:03 UTC 2010
Author: jawnsy-guest
Date: Sun May 2 02:15:54 2010
New Revision: 57286
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57286
Log:
TODO: sort out copyright info for .JPG stuff
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/Loader.pm
trunk/libplack-perl/lib/Plack/Middleware/Lint.pm
trunk/libplack-perl/lib/Plack/Request.pm
trunk/libplack-perl/lib/Plack/Response.pm
trunk/libplack-perl/lib/Plack/Runner.pm
trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm
trunk/libplack-perl/lib/Plack/Util.pm
trunk/libplack-perl/t/Plack-Handler/net_fastcgi.t
Modified: trunk/libplack-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/Changes?rev=57286&op=diff
==============================================================================
--- trunk/libplack-perl/Changes (original)
+++ trunk/libplack-perl/Changes Sun May 2 02:15:54 2010
@@ -1,6 +1,12 @@
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.9933 Tue Apr 27 14:32:23 PDT 2010
+ - refactored the app.psgi loading error handling
+ - Enable type checking of the app in Lint->wrap
+ - allow plackup -e'...'
+ - Disable FCGI::Client/Net::FastCGI test by default
0.9932 Mon Apr 19 15:23:55 JST 2010
- Enable Lint middleware by default in the development env
Modified: trunk/libplack-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/META.yml?rev=57286&op=diff
==============================================================================
--- trunk/libplack-perl/META.yml (original)
+++ trunk/libplack-perl/META.yml Sun May 2 02:15:54 2010
@@ -38,4 +38,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/miyagawa/Plack.git
-version: 0.9932
+version: 0.9933
Modified: trunk/libplack-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/debian/changelog?rev=57286&op=diff
==============================================================================
--- trunk/libplack-perl/debian/changelog (original)
+++ trunk/libplack-perl/debian/changelog Sun May 2 02:15:54 2010
@@ -1,8 +1,10 @@
-libplack-perl (0.9932-1) UNRELEASED; urgency=low
+libplack-perl (0.9933-1) UNRELEASED; urgency=low
+
+ TODO: sort out copyright info for .JPG stuff
* New upstream release
- -- Jonathan Yu <jawnsy at cpan.org> Tue, 20 Apr 2010 13:36:10 -0400
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 01 May 2010 19:50:44 -0400
libplack-perl (0.9931-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=57286&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack.pm (original)
+++ trunk/libplack-perl/lib/Plack.pm Sun May 2 02:15:54 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
use 5.008_001;
-our $VERSION = '0.9932';
+our $VERSION = '0.9933';
$VERSION = eval $VERSION;
1;
Modified: trunk/libplack-perl/lib/Plack/Loader.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Loader.pm?rev=57286&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Loader.pm (original)
+++ trunk/libplack-perl/lib/Plack/Loader.pm Sun May 2 02:15:54 2010
@@ -98,7 +98,7 @@
Plack::Loader->auto(%args)->run($app);
# specify the implementation with a name
- Plack::Loader->load('Standalone::Prefork', %args)->run($app);
+ Plack::Loader->load('FCGI', %args)->run($app);
=head1 DESCRIPTION
Modified: trunk/libplack-perl/lib/Plack/Middleware/Lint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Middleware/Lint.pm?rev=57286&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Middleware/Lint.pm (original)
+++ trunk/libplack-perl/lib/Plack/Middleware/Lint.pm Sun May 2 02:15:54 2010
@@ -10,7 +10,7 @@
my($self, $app) = @_;
unless (ref $app eq 'CODE' or overload::Method($app, '&{}')) {
- Carp::croak("PSGI app should be a code reference: $app");
+ Carp::croak("PSGI app should be a code reference: ", (defined $app ? $app : "undef"));
}
$self->SUPER::wrap($app);
Modified: trunk/libplack-perl/lib/Plack/Request.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Request.pm?rev=57286&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Request.pm (original)
+++ trunk/libplack-perl/lib/Plack/Request.pm Sun May 2 02:15:54 2010
@@ -2,7 +2,7 @@
use strict;
use warnings;
use 5.008_001;
-our $VERSION = '0.9932';
+our $VERSION = '0.9933';
$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=57286&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Response.pm (original)
+++ trunk/libplack-perl/lib/Plack/Response.pm Sun May 2 02:15:54 2010
@@ -1,7 +1,7 @@
package Plack::Response;
use strict;
use warnings;
-our $VERSION = '0.9932';
+our $VERSION = '0.9933';
$VERSION = eval $VERSION;
use Plack::Util::Accessor qw(body status);
Modified: trunk/libplack-perl/lib/Plack/Runner.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Runner.pm?rev=57286&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Runner.pm (original)
+++ trunk/libplack-perl/lib/Plack/Runner.pm Sun May 2 02:15:54 2010
@@ -28,8 +28,8 @@
local @ARGV = @_;
- # From 'prove': Allow cuddling the paths with -I and -M
- @ARGV = map { /^(-[IM])(.+)/ ? ($1,$2) : $_ } @ARGV;
+ # From 'prove': Allow cuddling the paths with -I, -M and -e
+ @ARGV = map { /^(-[IMe])(.+)/ ? ($1,$2) : $_ } @ARGV;
my($host, $port, $socket, @listen);
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=57286&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm (original)
+++ trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm Sun May 2 02:15:54 2010
@@ -1,6 +1,6 @@
package Plack::Server::ServerSimple;
use strict;
-our $VERSION = '0.9932';
+our $VERSION = '0.9933';
$VERSION = eval $VERSION;
use parent qw(Plack::Handler::HTTP::Server::Simple);
Modified: trunk/libplack-perl/lib/Plack/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Util.pm?rev=57286&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Util.pm (original)
+++ trunk/libplack-perl/lib/Plack/Util.pm Sun May 2 02:15:54 2010
@@ -105,7 +105,14 @@
my $_package = $_file;
$_package =~ s/([^A-Za-z0-9_])/sprintf("_%2x", unpack("C", $1))/eg;
- eval "package Plack::Sandbox::$_package; do(\$_file) or die(\$\@ || \$!)";
+ return eval sprintf <<'END_EVAL', $_package;
+package Plack::Sandbox::%s;
+{
+ my $app = do $_file;
+ if ( !$app && ( my $error = $@ || $! )) { die $error; }
+ $app;
+}
+END_EVAL
}
sub load_psgi {
@@ -115,14 +122,10 @@
my $file = $stuff =~ /^[a-zA-Z0-9\_\:]+$/ ? class_to_file($stuff) : $stuff;
my $app = _load_sandbox($file);
+ die "Error while loading $file: $@" if $@;
+
return $app->to_app if $app and Scalar::Util::blessed($app) and $app->can('to_app');
- return $app if $app and (ref $app eq 'CODE' or overload::Method($app, '&{}'));
-
- if (my $e = $@ || $!) {
- die "Can't load $file: $e";
- } else {
- Carp::croak("$file doesn't return PSGI app handler: " . ($app || undef));
- }
+ return $app;
}
sub run_app($$) {
Modified: trunk/libplack-perl/t/Plack-Handler/net_fastcgi.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Handler/net_fastcgi.t?rev=57286&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Handler/net_fastcgi.t (original)
+++ trunk/libplack-perl/t/Plack-Handler/net_fastcgi.t Sun May 2 02:15:54 2010
@@ -6,6 +6,9 @@
use Test::TCP;
use Plack::Test::Suite;
use t::FCGIUtils;
+
+plan skip_all => "Set TEST_FCGI_CLIENT to test this"
+ unless $ENV{TEST_FCGI_CLIENT};
my $http_port;
my $fcgi_port;
More information about the Pkg-perl-cvs-commits
mailing list