r74870 - in /branches/upstream/starman/current: ./ bin/ inc/Module/ inc/Module/Install/ lib/ lib/Starman/ t/
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Wed May 25 18:16:16 UTC 2011
Author: ghedo-guest
Date: Wed May 25 18:16:05 2011
New Revision: 74870
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=74870
Log:
[svn-upgrade] new version starman (0.2011)
Added:
branches/upstream/starman/current/t/chunked_zero_length.t
Modified:
branches/upstream/starman/current/Changes
branches/upstream/starman/current/MANIFEST
branches/upstream/starman/current/META.yml
branches/upstream/starman/current/bin/starman
branches/upstream/starman/current/inc/Module/Install.pm
branches/upstream/starman/current/inc/Module/Install/Base.pm
branches/upstream/starman/current/inc/Module/Install/Can.pm
branches/upstream/starman/current/inc/Module/Install/Fetch.pm
branches/upstream/starman/current/inc/Module/Install/Makefile.pm
branches/upstream/starman/current/inc/Module/Install/Metadata.pm
branches/upstream/starman/current/inc/Module/Install/Scripts.pm
branches/upstream/starman/current/inc/Module/Install/Win32.pm
branches/upstream/starman/current/inc/Module/Install/WriteAll.pm
branches/upstream/starman/current/lib/Starman.pm
branches/upstream/starman/current/lib/Starman/Server.pm
Modified: branches/upstream/starman/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/Changes?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/Changes (original)
+++ branches/upstream/starman/current/Changes Wed May 25 18:16:05 2011
@@ -1,4 +1,7 @@
Revision history for Perl extension Starman
+
+0.2011 Tue May 24 09:41:52 PDT 2011
+ - Fix chunked response with 0-length PSGI array elements (chmrr)
0.2010 Mon Mar 28 16:23:23 PDT 2011
- Fixed packaging. No changes.
Modified: branches/upstream/starman/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/MANIFEST?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/MANIFEST (original)
+++ branches/upstream/starman/current/MANIFEST Wed May 25 18:16:05 2011
@@ -23,6 +23,7 @@
README
t/00_compile.t
t/chunked_req.t
+t/chunked_zero_length.t
t/findbin.psgi
t/findbin.t
t/rand.psgi
Modified: branches/upstream/starman/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/META.yml?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/META.yml (original)
+++ branches/upstream/starman/current/META.yml Wed May 25 18:16:05 2011
@@ -9,7 +9,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 1.00'
+generated_by: 'Module::Install version 1.01'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -36,4 +36,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/miyagawa/Starman.git
-version: 0.2010
+version: 0.2011
Modified: branches/upstream/starman/current/bin/starman
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/bin/starman?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/bin/starman (original)
+++ branches/upstream/starman/current/bin/starman Wed May 25 18:16:05 2011
@@ -37,6 +37,8 @@
starman --listen :5001 --listen /tmp/starman.sock
starman --workers 32 --port 8080
+
+=head1 OPTIONS
=over 4
@@ -176,7 +178,13 @@
C<plackup -h> such as C<--access-log> or C<--daemonize> works fine in
starman too.
-C<starman> command automatically sets the environment (C<-E>) to the value of I<deployment>.
+C<starman> command automatically sets the environment (C<-E>) to the
+value of I<deployment>.
+
+Setting the environment variable C<STARMAN_DEBUG> to 1 makes the
+Starman server runninng in the debug mode.
+
+=cut
=head1 SEE ALSO
Modified: branches/upstream/starman/current/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/inc/Module/Install.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/inc/Module/Install.pm (original)
+++ branches/upstream/starman/current/inc/Module/Install.pm Wed May 25 18:16:05 2011
@@ -31,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '1.00';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -467,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
Modified: branches/upstream/starman/current/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/inc/Module/Install/Base.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/inc/Module/Install/Base.pm (original)
+++ branches/upstream/starman/current/inc/Module/Install/Base.pm Wed May 25 18:16:05 2011
@@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
Modified: branches/upstream/starman/current/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/inc/Module/Install/Can.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/inc/Module/Install/Can.pm (original)
+++ branches/upstream/starman/current/inc/Module/Install/Can.pm Wed May 25 18:16:05 2011
@@ -9,7 +9,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/starman/current/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/inc/Module/Install/Fetch.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/inc/Module/Install/Fetch.pm (original)
+++ branches/upstream/starman/current/inc/Module/Install/Fetch.pm Wed May 25 18:16:05 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/starman/current/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/inc/Module/Install/Makefile.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/inc/Module/Install/Makefile.pm (original)
+++ branches/upstream/starman/current/inc/Module/Install/Makefile.pm Wed May 25 18:16:05 2011
@@ -8,7 +8,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/starman/current/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/inc/Module/Install/Metadata.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/inc/Module/Install/Metadata.pm (original)
+++ branches/upstream/starman/current/inc/Module/Install/Metadata.pm Wed May 25 18:16:05 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
Modified: branches/upstream/starman/current/inc/Module/Install/Scripts.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/inc/Module/Install/Scripts.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/inc/Module/Install/Scripts.pm (original)
+++ branches/upstream/starman/current/inc/Module/Install/Scripts.pm Wed May 25 18:16:05 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/starman/current/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/inc/Module/Install/Win32.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/inc/Module/Install/Win32.pm (original)
+++ branches/upstream/starman/current/inc/Module/Install/Win32.pm Wed May 25 18:16:05 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
Modified: branches/upstream/starman/current/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/inc/Module/Install/WriteAll.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/inc/Module/Install/WriteAll.pm (original)
+++ branches/upstream/starman/current/inc/Module/Install/WriteAll.pm Wed May 25 18:16:05 2011
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: branches/upstream/starman/current/lib/Starman.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/lib/Starman.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/lib/Starman.pm (original)
+++ branches/upstream/starman/current/lib/Starman.pm Wed May 25 18:16:05 2011
@@ -2,7 +2,7 @@
use strict;
use 5.008_001;
-our $VERSION = '0.2010';
+our $VERSION = '0.2011';
1;
__END__
Modified: branches/upstream/starman/current/lib/Starman/Server.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/lib/Starman/Server.pm?rev=74870&op=diff
==============================================================================
--- branches/upstream/starman/current/lib/Starman/Server.pm (original)
+++ branches/upstream/starman/current/lib/Starman/Server.pm Wed May 25 18:16:05 2011
@@ -454,6 +454,7 @@
my $buffer = $_[0];
if ($chunked) {
my $len = length $buffer;
+ return unless $len;
$buffer = sprintf( "%x", $len ) . $CRLF . $buffer . $CRLF;
}
syswrite $conn, $buffer;
@@ -467,6 +468,7 @@
my $buffer = $_[0];
if ($chunked) {
my $len = length $buffer;
+ return unless $len;
$buffer = sprintf( "%x", $len ) . $CRLF . $buffer . $CRLF;
}
syswrite $conn, $buffer;
Added: branches/upstream/starman/current/t/chunked_zero_length.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/starman/current/t/chunked_zero_length.t?rev=74870&op=file
==============================================================================
--- branches/upstream/starman/current/t/chunked_zero_length.t (added)
+++ branches/upstream/starman/current/t/chunked_zero_length.t Wed May 25 18:16:05 2011
@@ -1,0 +1,30 @@
+use strict;
+use Plack::Test;
+use HTTP::Request;
+use Test::More;
+
+$Plack::Test::Impl = "Server";
+$ENV{PLACK_SERVER} = 'Starman';
+
+my $app = sub {
+ my $env = shift;
+ return sub {
+ my $response = shift;
+ my $writer = $response->([ 200, [ 'Content-Type', 'text/plain' ]]);
+ $writer->write("Content");
+ $writer->write("");
+ $writer->write("Again");
+ $writer->close;
+ }
+};
+
+test_psgi $app, sub {
+ my $cb = shift;
+
+ my $req = HTTP::Request->new(GET => "http://localhost/");
+ my $res = $cb->($req);
+
+ is $res->content, "ContentAgain";
+};
+
+done_testing;
More information about the Pkg-perl-cvs-commits
mailing list