r57511 - in /trunk/libplack-perl: ./ debian/ inc/Module/Install/ lib/ lib/Plack/ lib/Plack/Middleware/ lib/Plack/Server/ lib/Plack/Server/Standalone/ t/Plack-Middleware/ t/Plack-Middleware/cgi-bin/

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Wed May 5 15:04:16 UTC 2010 

Author: jawnsy-guest
Date: Wed May  5 15:04:00 2010
New Revision: 57511

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57511
Log:
still need to sort out copyright info...

Added:
    trunk/libplack-perl/t/Plack-Middleware/cgi-bin/utf8.cgi
      - copied unchanged from r57510, branches/upstream/libplack-perl/current/t/Plack-Middleware/cgi-bin/utf8.cgi
    trunk/libplack-perl/t/Plack-Middleware/refresh-init.t
      - copied unchanged from r57510, branches/upstream/libplack-perl/current/t/Plack-Middleware/refresh-init.t
Modified:
    trunk/libplack-perl/Changes
    trunk/libplack-perl/MANIFEST
    trunk/libplack-perl/META.yml
    trunk/libplack-perl/debian/changelog
    trunk/libplack-perl/inc/Module/Install/ReadmeFromPod.pm
    trunk/libplack-perl/lib/Plack.pm
    trunk/libplack-perl/lib/Plack/Middleware/ErrorDocument.pm
    trunk/libplack-perl/lib/Plack/Middleware/Refresh.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/Server/Standalone/Prefork.pm
    trunk/libplack-perl/t/Plack-Middleware/cgibin.t
    trunk/libplack-perl/t/Plack-Middleware/error_document.t

Modified: trunk/libplack-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/Changes?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/Changes (original)
+++ trunk/libplack-perl/Changes Wed May  5 15:04:00 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.9934  Tue May  4 15:47:33 PDT 2010
+        - Added a test in CGIBin where binmode ":utf8" causes bad content-length #110
+        - Doc fix for the deprecated servers
+        - Initialize Module::Refresh (hiratara)
+        - Added mime_type to ErorrDocument (kakuno)
 
 0.9933  Tue Apr 27 14:32:23 PDT 2010
         - refactored the app.psgi loading error handling

Modified: trunk/libplack-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/MANIFEST?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/MANIFEST (original)
+++ trunk/libplack-perl/MANIFEST Wed May  5 15:04:00 2010
@@ -163,6 +163,7 @@
 t/Plack-Middleware/cgi-bin/hello.cgi
 t/Plack-Middleware/cgi-bin/hello2.cgi
 t/Plack-Middleware/cgi-bin/hello3.cgi
+t/Plack-Middleware/cgi-bin/utf8.cgi
 t/Plack-Middleware/cgibin.t
 t/Plack-Middleware/chunked.t
 t/Plack-Middleware/component-leak.t
@@ -191,6 +192,7 @@
 t/Plack-Middleware/recursive/streaming.t
 t/Plack-Middleware/recursive/throw.t
 t/Plack-Middleware/recursive/throw_streaming.t
+t/Plack-Middleware/refresh-init.t
 t/Plack-Middleware/runtime.t
 t/Plack-Middleware/simple_content_filter.t
 t/Plack-Middleware/simple_logger.t

Modified: trunk/libplack-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/META.yml?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/META.yml (original)
+++ trunk/libplack-perl/META.yml Wed May  5 15:04:00 2010
@@ -38,4 +38,4 @@
 resources:
   license: http://dev.perl.org/licenses/
   repository: git://github.com/miyagawa/Plack.git
-version: 0.9933
+version: 0.9934

Modified: trunk/libplack-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/debian/changelog?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/debian/changelog (original)
+++ trunk/libplack-perl/debian/changelog Wed May  5 15:04:00 2010
@@ -1,10 +1,10 @@
-libplack-perl (0.9933-1) UNRELEASED; urgency=low
+libplack-perl (0.9934-1) UNRELEASED; urgency=low
 
   TODO: sort out copyright info for .JPG stuff
 
   * New upstream release
 
- -- Jonathan Yu <jawnsy at cpan.org>  Sat, 01 May 2010 19:50:44 -0400
+ -- Jonathan Yu <jawnsy at cpan.org>  Wed, 05 May 2010 11:38:45 -0400
 
 libplack-perl (0.9931-1) unstable; urgency=low
 

Modified: trunk/libplack-perl/inc/Module/Install/ReadmeFromPod.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/inc/Module/Install/ReadmeFromPod.pm?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/inc/Module/Install/ReadmeFromPod.pm (original)
+++ trunk/libplack-perl/inc/Module/Install/ReadmeFromPod.pm Wed May  5 15:04:00 2010
@@ -6,7 +6,7 @@
 use base qw(Module::Install::Base);
 use vars qw($VERSION);
 
-$VERSION = '0.06';
+$VERSION = '0.08';
 
 sub readme_from {
   my $self = shift;

Modified: trunk/libplack-perl/lib/Plack.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack.pm?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack.pm (original)
+++ trunk/libplack-perl/lib/Plack.pm Wed May  5 15:04:00 2010
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9933';
+our $VERSION = '0.9934';
 $VERSION = eval $VERSION;
 
 1;

Modified: trunk/libplack-perl/lib/Plack/Middleware/ErrorDocument.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Middleware/ErrorDocument.pm?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Middleware/ErrorDocument.pm (original)
+++ trunk/libplack-perl/lib/Plack/Middleware/ErrorDocument.pm Wed May  5 15:04:00 2010
@@ -2,6 +2,8 @@
 use strict;
 use warnings;
 use parent qw(Plack::Middleware);
+use Plack::MIME;
+use Plack::Util;
 use Plack::Util::Accessor qw( subrequest );
 
 use HTTP::Status qw(is_error);
@@ -42,6 +44,8 @@
         } else {
             open my $fh, "<", $path or die "$path: $!";
             $r->[2] = $fh;
+            my $h = Plack::Util::headers($r->[1]);
+            $h->set('Content-Type', Plack::MIME->mime_type($path));
         }
     });
 }

Modified: trunk/libplack-perl/lib/Plack/Middleware/Refresh.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Middleware/Refresh.pm?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Middleware/Refresh.pm (original)
+++ trunk/libplack-perl/lib/Plack/Middleware/Refresh.pm Wed May  5 15:04:00 2010
@@ -7,6 +7,8 @@
 sub prepare_app {
     my $self = shift;
     $self->cooldown(10) unless defined $self->cooldown;
+
+    Module::Refresh->new;
     $self->last(time - $self->cooldown);
 }
 

Modified: trunk/libplack-perl/lib/Plack/Request.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Request.pm?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Request.pm (original)
+++ trunk/libplack-perl/lib/Plack/Request.pm Wed May  5 15:04:00 2010
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use 5.008_001;
-our $VERSION = '0.9933';
+our $VERSION = '0.9934';
 $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=57511&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Response.pm (original)
+++ trunk/libplack-perl/lib/Plack/Response.pm Wed May  5 15:04:00 2010
@@ -1,7 +1,7 @@
 package Plack::Response;
 use strict;
 use warnings;
-our $VERSION = '0.9933';
+our $VERSION = '0.9934';
 $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=57511&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm (original)
+++ trunk/libplack-perl/lib/Plack/Server/ServerSimple.pm Wed May  5 15:04:00 2010
@@ -1,6 +1,6 @@
 package Plack::Server::ServerSimple;
 use strict;
-our $VERSION = '0.9933';
+our $VERSION = '0.9934';
 $VERSION = eval $VERSION;
 
 use parent qw(Plack::Handler::HTTP::Server::Simple);

Modified: trunk/libplack-perl/lib/Plack/Server/Standalone/Prefork.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/lib/Plack/Server/Standalone/Prefork.pm?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/lib/Plack/Server/Standalone/Prefork.pm (original)
+++ trunk/libplack-perl/lib/Plack/Server/Standalone/Prefork.pm Wed May  5 15:04:00 2010
@@ -5,7 +5,7 @@
 
 sub new {
     my $class = shift;
-    Carp::carp "Use of $class is deprecated. Use Plack::Handler::Standalone or Plack::Loader to upgrade.";
+    Carp::carp "Use of $class is deprecated. Use Starman or Starlet for preforking servers.";
     $class->SUPER::new(@_);
 }
 
@@ -15,7 +15,7 @@
 
 =head1 NAME
 
-Plack::Server::Standalone::Prefork - DEPRECATED
+Plack::Server::Standalone::Prefork - DEPRECATED use Starman or Starlet instead
 
 =head1 DESCRIPTION
 

Modified: trunk/libplack-perl/t/Plack-Middleware/cgibin.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Middleware/cgibin.t?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Middleware/cgibin.t (original)
+++ trunk/libplack-perl/t/Plack-Middleware/cgibin.t Wed May  5 15:04:00 2010
@@ -1,6 +1,6 @@
 use strict;
 use Test::More;
-use Test::Requires { 'CGI::Emulate::PSGI' => 0, 'CGI::Compile' => 0.03 };
+use Test::Requires { 'CGI::Emulate::PSGI' => 0.07, 'CGI::Compile' => 0.03 };
 use Plack::Test;
 use HTTP::Request::Common;
 use Plack::App::CGIBin;
@@ -36,6 +36,11 @@
 
     $res = $cb->(GET "http://localhost/hello4.cgi");
     is $res->code, 404;
+
+    $res = $cb->(GET "http://localhost/utf8.cgi");
+    is $res->code, 200;
+    is length $res->content, 4;
+    is $res->content, "\xe1\x83\xb7\n";
 };
 
 done_testing;

Modified: trunk/libplack-perl/t/Plack-Middleware/error_document.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libplack-perl/t/Plack-Middleware/error_document.t?rev=57511&op=diff
==============================================================================
--- trunk/libplack-perl/t/Plack-Middleware/error_document.t (original)
+++ trunk/libplack-perl/t/Plack-Middleware/error_document.t Wed May  5 15:04:00 2010
@@ -34,6 +34,7 @@
 
         $res = $cb->(GET "http://localhost/status/404");
         is $res->code, 404;
+        like $res->header('content_type'), qr!text/html!;
         like $res->content, qr/fancy 404/;
     }
 };

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