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