[Bps-public-commit] HTTP-Server-Simple branch, master, updated. 0.50
Kevin Falcone
falcone at bestpractical.com
Mon Feb 2 10:43:35 EST 2015
The branch, master has been updated
via 969a84809ba9674217322af840079fe3f7a6540a (commit)
via b79719286de1a4ee56b3663cbd1f852e29b83f27 (commit)
via b2ef06ad08b31641dc555e49be5818e4c1aafad2 (commit)
via ed476fc71adaec3479b84be45f186f4b68796f66 (commit)
via 6674db88cb5a4ac5e79ddb18a093fd296ea2b86d (commit)
via efce1d303b215f17bd45f8a6e81e0bde8c8cebfc (commit)
via d546ec9dff6bc3bdc92b1c05cd46aeea9875b1bd (commit)
via a83ff360b46a2b9b07e544ab4fd3b0d1c41b51ef (commit)
via e80df313b7b4bab432d163276241df8bc7ce14b5 (commit)
via f54d9fdbb03c18a63d956410ab307d4b2aabf815 (commit)
via 38ce489d00e04b8c533d985911678f8fba7a75fd (commit)
via e6b39c0e83ebd6033d37ef34a588201ceac2367a (commit)
via eefdbf230c0f27c16e704abd2376ada9b95a6991 (commit)
from 89fc697bae2c4d710618abc0f84a56cccfb50b84 (commit)
Summary of changes:
Changes | 416 +++++++++++++++++++----------------------
MANIFEST | 2 -
META.yml | 4 +-
SIGNATURE | 47 -----
inc/Module/Install.pm | 6 +-
inc/Module/Install/Base.pm | 2 +-
inc/Module/Install/Can.pm | 2 +-
inc/Module/Install/Fetch.pm | 2 +-
inc/Module/Install/Makefile.pm | 2 +-
inc/Module/Install/Metadata.pm | 2 +-
inc/Module/Install/Win32.pm | 2 +-
inc/Module/Install/WriteAll.pm | 2 +-
lib/HTTP/Server/Simple.pm | 2 +-
t/00signature.t | 27 ---
t/01live.t | 85 ++++++---
15 files changed, 273 insertions(+), 330 deletions(-)
delete mode 100644 SIGNATURE
delete mode 100644 t/00signature.t
- Log -----------------------------------------------------------------
commit eefdbf230c0f27c16e704abd2376ada9b95a6991
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Thu Jan 22 16:07:17 2015 -0500
More info about what was happening before the die
diff --git a/t/01live.t b/t/01live.t
index c0c2c2c..0872fd9 100644
--- a/t/01live.t
+++ b/t/01live.t
@@ -86,7 +86,7 @@ sub fetch {
my ($err, @res) = Socket::getaddrinfo($hostname, $port, { family => $family,
socktype => $socktype,
protocol => $proto });
- die "getaddrinfo: $err"
+ die "getaddrinfo: $err operating on [$hostname] [$port] [$family] [$socktype] [$proto]"
if ($err);
while ($a = shift(@res)) {
next unless ($family == $a->{'family'});
commit e6b39c0e83ebd6033d37ef34a588201ceac2367a
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Thu Jan 22 16:07:55 2015 -0500
Figure out what this maching thinks localhost is
From 04cgi.t which seems to have many fewer issues with binding.
diff --git a/t/01live.t b/t/01live.t
index 0872fd9..8d65000 100644
--- a/t/01live.t
+++ b/t/01live.t
@@ -131,7 +131,8 @@ sub run_server_tests {
is($s->family(), $fam, 'constructor set family properly');
is($s->port(),$PORT,"Constructor set port correctly");
- $s->host('localhost'); # otherwise we bind to * which doesn't work on all systems
+ my $localhost = gethostbyaddr(inet_aton('localhost'), $fam);
+ $s->host($localhost); # otherwise we bind to * which doesn't work on all systems
my $pid=$s->background();
select(undef,undef,undef,0.2); # wait a sec
commit 38ce489d00e04b8c533d985911678f8fba7a75fd
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Thu Jan 22 16:23:01 2015 -0500
Bump version for 0.45_05
diff --git a/Changes b/Changes
index e4c088c..b0c25a6 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+0.45_05
+* Test diagnostics for cpantester failures
+* Hopefully better localhost handling
+
0.45_04
* Fix compatibility for the IPv6 support in .45_02
* Hopefully improve the live tests
diff --git a/META.yml b/META.yml
index 2a185d8..1b7dd12 100644
--- a/META.yml
+++ b/META.yml
@@ -25,4 +25,4 @@ requires:
Test::More: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.45_04
+version: 0.45_05
diff --git a/lib/HTTP/Server/Simple.pm b/lib/HTTP/Server/Simple.pm
index 479279b..956d116 100644
--- a/lib/HTTP/Server/Simple.pm
+++ b/lib/HTTP/Server/Simple.pm
@@ -7,7 +7,7 @@ use Socket;
use Carp;
use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.45_04';
+$VERSION = '0.45_05';
=head1 NAME
commit f54d9fdbb03c18a63d956410ab307d4b2aabf815
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Fri Jan 23 17:53:49 2015 -0500
Seeing lots of localhost related test smoke failures
While some of them are 'ports in use' and we can iterate on those later,
most of them seem to be that IPv6 localhost just... doesn't exist,
even though AF_INET6 is ok. So, try to find localhost from the
appropriate loopback and if it doesn't exist, skip those tests for
sanity.
diff --git a/t/01live.t b/t/01live.t
index 8d65000..319ee58 100644
--- a/t/01live.t
+++ b/t/01live.t
@@ -40,26 +40,29 @@ for my $class (@classes) {
for my $fam ( AF_INET, AF_INET6 ) {
my $s=HTTP::Server::Simple::CGI->new($PORT, $fam);
is($fam, $s->family(), 'family OK');
- $s->host("localhost");
+ $s->host(get_localhost($fam));
my $pid=$s->background();
diag("started server PID='$pid'") if ($ENV{'TEST_VERBOSE'});
like($pid, '/^-?\d+$/', 'pid is numeric');
select(undef,undef,undef,0.2); # wait a sec
- my $content=fetch($fam, "GET / HTTP/1.1", "");
- like($content, '/Congratulations/', "Returns a page");
+ SKIP: {
+ skip "No localhost for $fam", 4 unless defined $s->host;
+ my $content=fetch($fam, "GET / HTTP/1.1", "");
+ like($content, '/Congratulations/', "Returns a page");
- eval {
- like(fetch($fam, "GET a bogus request"),
- '/bad request/i',
- "knows what a request isn't");
- };
- fail("got exception in client: $@") if $@;
+ eval {
+ like(fetch($fam, "GET a bogus request"),
+ '/bad request/i',
+ "knows what a request isn't");
+ };
+ fail("got exception in client: $@") if $@;
- like(fetch($fam, "GET / HTTP/1.1", ""), '/Congratulations/',
- "HTTP/1.1 request");
+ like(fetch($fam, "GET / HTTP/1.1", ""), '/Congratulations/',
+ "HTTP/1.1 request");
- like(fetch($fam, "GET /"), '/Congratulations/',
- "HTTP/0.9 request");
+ like(fetch($fam, "GET /"), '/Congratulations/',
+ "HTTP/0.9 request");
+ }
is(kill(9,$pid),1,'Signaled 1 process successfully');
}
@@ -70,7 +73,7 @@ is( kill( 9, $_ ), 1, "Killed PID: $_" ) for @pids;
# in identifying common problems
sub fetch {
my $family = shift;
- my $hostname = "localhost";
+ my $hostname = get_localhost($family);
my $port = $PORT;
my $message = join "", map { "$_\015\012" } @_;
my $timeout = 5;
@@ -131,7 +134,7 @@ sub run_server_tests {
is($s->family(), $fam, 'constructor set family properly');
is($s->port(),$PORT,"Constructor set port correctly");
- my $localhost = gethostbyaddr(inet_aton('localhost'), $fam);
+ my $localhost = get_localhost($fam);
$s->host($localhost); # otherwise we bind to * which doesn't work on all systems
my $pid=$s->background();
@@ -139,8 +142,29 @@ sub run_server_tests {
like($pid, '/^-?\d+$/', 'pid is numeric');
- my $content=fetch($fam, "GET / HTTP/1.1", "");
+ SKIP: {
+ skip "No localhost defined for $fam", 1 unless defined $localhost;
+ my $content=fetch($fam, "GET / HTTP/1.1", "");
- like($content, '/Congratulations/', "Returns a page");
+ like($content, '/Congratulations/', "Returns a page");
+ }
push @pids, $pid;
}
+
+{
+ my %localhost;
+sub get_localhost {
+ my $family = shift;
+
+ return $localhost{$family} if $localhost{$family};
+
+ if ($family == AF_INET) {
+ $localhost{$family} = gethostbyaddr(INADDR_LOOPBACK,$family);
+ } else {
+ $localhost{$family} = gethostbyaddr(Socket::IN6ADDR_LOOPBACK,$family);
+ }
+ diag("Found localhost $localhost{$family} for $family");
+ return $localhost{$family};
+
+}
+}
commit e80df313b7b4bab432d163276241df8bc7ce14b5
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Fri Jan 23 17:55:53 2015 -0500
Bump version for .45_06
diff --git a/Changes b/Changes
index b0c25a6..63121a5 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+0.45_06
+* Further test iteration and diagnostics for smoke failures
+
0.45_05
* Test diagnostics for cpantester failures
* Hopefully better localhost handling
diff --git a/META.yml b/META.yml
index 1b7dd12..feb7dc5 100644
--- a/META.yml
+++ b/META.yml
@@ -25,4 +25,4 @@ requires:
Test::More: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.45_05
+version: 0.45_06
diff --git a/lib/HTTP/Server/Simple.pm b/lib/HTTP/Server/Simple.pm
index 956d116..2f25fb3 100644
--- a/lib/HTTP/Server/Simple.pm
+++ b/lib/HTTP/Server/Simple.pm
@@ -7,7 +7,7 @@ use Socket;
use Carp;
use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.45_05';
+$VERSION = '0.45_06';
=head1 NAME
commit a83ff360b46a2b9b07e544ab4fd3b0d1c41b51ef
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Tue Jan 27 22:17:25 2015 -0500
Skip IPv6 tests if you can't bind to IPv6 addresses
Ugly, but works on VMs with IPv6 turned off for me.
Should expand this ugliness to check PORT for availability before trying
to bind.
diff --git a/t/01live.t b/t/01live.t
index 319ee58..aaa58f4 100644
--- a/t/01live.t
+++ b/t/01live.t
@@ -1,15 +1,30 @@
# -*- perl -*-
use Socket;
-use Test::More tests => 34;
+use Test::More;
use strict;
# This script assumes that `localhost' will resolve to a local IP
# address that may be bound to,
my $PORT = 40000 + int(rand(10000));
-
-
+my $RUN_IPV6 = eval {
+ my $ipv6_host = get_localhost(AF_INET6);
+ socket my $sockh, Socket::PF_INET6(), SOCK_STREAM, 0 or die "Cannot socket(PF_INET6) - $!";
+ my ($err, @res) = Socket::getaddrinfo($ipv6_host, $PORT, { family => AF_INET6, socktype => SOCK_STREAM } );
+ diag $err if $err;
+ for my $r (@res) {
+ next unless ($r->{'family'} == AF_INET6);
+ bind $sockh, $r->{'addr'} or die "Cannot bind - $!";
+ last;
+ }
+};
+if ( $RUN_IPV6) {
+ plan tests => 34;
+} else {
+ diag("Skipping IPv6");
+ plan tests => 17;
+}
use HTTP::Server::Simple;
package SlowServer;
@@ -32,12 +47,13 @@ my @pids = ();
my @classes = (qw(HTTP::Server::Simple SlowServer));
for my $class (@classes) {
run_server_tests($class, AF_INET);
- run_server_tests($class, AF_INET6);
+ run_server_tests($class, AF_INET6) if $RUN_IPV6;
$PORT++; # don't reuse the port incase your bogus os doesn't release in time
}
for my $fam ( AF_INET, AF_INET6 ) {
+ next if ($fam == AF_INET6 && not $RUN_IPV6);
my $s=HTTP::Server::Simple::CGI->new($PORT, $fam);
is($fam, $s->family(), 'family OK');
$s->host(get_localhost($fam));
@@ -163,7 +179,6 @@ sub get_localhost {
} else {
$localhost{$family} = gethostbyaddr(Socket::IN6ADDR_LOOPBACK,$family);
}
- diag("Found localhost $localhost{$family} for $family");
return $localhost{$family};
}
commit d546ec9dff6bc3bdc92b1c05cd46aeea9875b1bd
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Tue Jan 27 22:23:21 2015 -0500
upgrade Module::Install
diff --git a/META.yml b/META.yml
index feb7dc5..2e6a222 100644
--- a/META.yml
+++ b/META.yml
@@ -8,7 +8,7 @@ configure_requires:
ExtUtils::MakeMaker: 6.36
distribution_type: module
dynamic_config: 1
-generated_by: 'Module::Install version 1.12'
+generated_by: 'Module::Install version 1.14'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
diff --git a/inc/Module/Install.pm b/inc/Module/Install.pm
index 5460dd5..ff767fa 100644
--- a/inc/Module/Install.pm
+++ b/inc/Module/Install.pm
@@ -31,7 +31,7 @@ BEGIN {
# 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.12';
+ $VERSION = '1.14';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -378,6 +378,7 @@ eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
sub _read {
local *FH;
open( FH, '<', $_[0] ) or die "open($_[0]): $!";
+ binmode FH;
my $string = do { local $/; <FH> };
close FH or die "close($_[0]): $!";
return $string;
@@ -386,6 +387,7 @@ END_NEW
sub _read {
local *FH;
open( FH, "< $_[0]" ) or die "open($_[0]): $!";
+ binmode FH;
my $string = do { local $/; <FH> };
close FH or die "close($_[0]): $!";
return $string;
@@ -416,6 +418,7 @@ eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@;
sub _write {
local *FH;
open( FH, '>', $_[0] ) or die "open($_[0]): $!";
+ binmode FH;
foreach ( 1 .. $#_ ) {
print FH $_[$_] or die "print($_[0]): $!";
}
@@ -425,6 +428,7 @@ END_NEW
sub _write {
local *FH;
open( FH, "> $_[0]" ) or die "open($_[0]): $!";
+ binmode FH;
foreach ( 1 .. $#_ ) {
print FH $_[$_] or die "print($_[0]): $!";
}
diff --git a/inc/Module/Install/Base.pm b/inc/Module/Install/Base.pm
index f9bf5de..4206347 100644
--- a/inc/Module/Install/Base.pm
+++ b/inc/Module/Install/Base.pm
@@ -4,7 +4,7 @@ package Module::Install::Base;
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.12';
+ $VERSION = '1.14';
}
# Suspend handler for "redefined" warnings
diff --git a/inc/Module/Install/Can.pm b/inc/Module/Install/Can.pm
index b4e5e3b..9929b1b 100644
--- a/inc/Module/Install/Can.pm
+++ b/inc/Module/Install/Can.pm
@@ -8,7 +8,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.12';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff --git a/inc/Module/Install/Fetch.pm b/inc/Module/Install/Fetch.pm
index 54f14fb..3d8de76 100644
--- a/inc/Module/Install/Fetch.pm
+++ b/inc/Module/Install/Fetch.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.12';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff --git a/inc/Module/Install/Makefile.pm b/inc/Module/Install/Makefile.pm
index 81cddd5..66993af 100644
--- a/inc/Module/Install/Makefile.pm
+++ b/inc/Module/Install/Makefile.pm
@@ -8,7 +8,7 @@ use Fcntl qw/:flock :seek/;
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.12';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff --git a/inc/Module/Install/Metadata.pm b/inc/Module/Install/Metadata.pm
index 2c66b1e..e547fa0 100644
--- a/inc/Module/Install/Metadata.pm
+++ b/inc/Module/Install/Metadata.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.12';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff --git a/inc/Module/Install/Win32.pm b/inc/Module/Install/Win32.pm
index e48c32d..9706e5f 100644
--- a/inc/Module/Install/Win32.pm
+++ b/inc/Module/Install/Win32.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.12';
+ $VERSION = '1.14';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff --git a/inc/Module/Install/WriteAll.pm b/inc/Module/Install/WriteAll.pm
index 409ef40..dbedc00 100644
--- a/inc/Module/Install/WriteAll.pm
+++ b/inc/Module/Install/WriteAll.pm
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.12';
+ $VERSION = '1.14';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
commit efce1d303b215f17bd45f8a6e81e0bde8c8cebfc
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Tue Jan 27 22:24:47 2015 -0500
Bump version for 0.45_07
diff --git a/Changes b/Changes
index 63121a5..157a8d4 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+0.45_07
+* Skip IPv6 tests in 01live.t on machines where IPv6 isn't configured
+
0.45_06
* Further test iteration and diagnostics for smoke failures
diff --git a/META.yml b/META.yml
index 2e6a222..0d40bf7 100644
--- a/META.yml
+++ b/META.yml
@@ -25,4 +25,4 @@ requires:
Test::More: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.45_06
+version: 0.45_07
diff --git a/lib/HTTP/Server/Simple.pm b/lib/HTTP/Server/Simple.pm
index 2f25fb3..2579488 100644
--- a/lib/HTTP/Server/Simple.pm
+++ b/lib/HTTP/Server/Simple.pm
@@ -7,7 +7,7 @@ use Socket;
use Carp;
use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.45_06';
+$VERSION = '0.45_07';
=head1 NAME
commit 6674db88cb5a4ac5e79ddb18a093fd296ea2b86d
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Thu Jan 29 17:56:18 2015 -0500
tidy Changelog
diff --git a/Changes b/Changes
index 157a8d4..8a5b277 100644
--- a/Changes
+++ b/Changes
@@ -1,276 +1,233 @@
0.45_07
-* Skip IPv6 tests in 01live.t on machines where IPv6 isn't configured
+ - Skip IPv6 tests in 01live.t on machines where IPv6 isn't configured
0.45_06
-* Further test iteration and diagnostics for smoke failures
+ - Further test iteration and diagnostics for smoke failures
0.45_05
-* Test diagnostics for cpantester failures
-* Hopefully better localhost handling
+ - Test diagnostics for cpantester failures
+ - Hopefully better localhost handling
0.45_04
-* Fix compatibility for the IPv6 support in .45_02
-* Hopefully improve the live tests
+ - Fix compatibility for the IPv6 support in .45_02
+ - Hopefully improve the live tests
0.45_03
-* Remove useless VERSION from HTTP::Server::Simple::CGI and HTTP::Server::Simple::CGI::Environment
+ - Remove useless VERSION from HTTP::Server::Simple::CGI and
+ HTTP::Server::Simple::CGI::Environment
0.45_02
-* Support for IPv6 - Daniel Kahn Gillmor [rt.cpan.org #61200]
+ - Support for IPv6 - Daniel Kahn Gillmor [rt.cpan.org #61200]
-0.45_01 Thu Sep 22 10:10:41 EST 2011
+0.45_01 2011-09-22T10:10:41Z
+ - Support full URIs as required by RFC2616 - penfold [rt.cpan.org #69445]
-* Support full URIs as required by RFC2616 - penfold [rt.cpan.org #69445]
+0.44 2011-04-04T16:59:59Z
+ - Fix tests to run in a FreeBSD Jail - Tom Hukins [rt.cpan.org #49807]
-0.44 Mon Apr 4 16:59:59 EST 2011
+0.43 2010-05-01T22:23:55Z
+ - Support for getting REMOTE_PORT -- rgs
-* Fix tests to run in a FreeBSD Jail - Tom Hukins [rt.cpan.org #49807]
+0.42_01 2010-04-02T12:59:48Z
+ - Patch to t/01live.t to prevent spurious win32 test failures.
-0.43 Sat May 1 22:23:55 CST 2010
+0.42 2010-02-18T10:13:11Z
+ - Inline uri_unescape to drop URI::Escape which is the only non-core
+ dependency of this distribution. -- miyagawa
+ - Do not special case COOKIE and sets Cookie header to HTTP_COOKIE. --
+ miyagawa O'Reilly's WebSite server misuses COOKIE environment instead of
+ HTTP_COOKIE. We don't need to replicate that bug since
+ HTTP::Server::Simple is a server, not a CGI library like CGI.pm.
-* Support for getting REMOTE_PORT -- rgs
+0.41_01 2010-02-02T12:08:15Z
+ - Pluggable CGI class support based on a patch from NANIS
-0.42_01 Fri Apr 2 12:59:48 EDT 2010
+0.41 2009-09-29T23:05:04Z
+ - HTTP header concatenation fixes from miyagawa
-* Patch to t/01live.t to prevent spurious win32 test failures.
+0.40 2009-08-17T22:01:07Z
+ - After a fork, we need to reset the random seed lest we have duplicated
+ random numbers in both forks.
-0.42 Thu Feb 18 10:13:11 PST 2010
+0.39 2009-08-17T09:41:05Z
+ - Added signature tests
-* Inline uri_unescape to drop URI::Escape which is the only non-core
- dependency of this distribution. -- miyagawa
+0.38_04 2009-08-12T20:15:14Z
+ - Another pass at the Win32 fixes from KMX
-* Do not special case COOKIE and sets Cookie header to HTTP_COOKIE. -- miyagawa
+0.38_03 2009-04-11T18:47:29Z
+ - Subject: [rt.cpan.org #44961] [PATCH] xdg reports select() is
+ problematic on win32
- O'Reilly's WebSite server misuses COOKIE environment instead of
- HTTP_COOKIE. We don't need to replicate that bug since
- HTTP::Server::Simple is a server, not a CGI library like CGI.pm.
-
-0.41_01 Tue Feb 2 12:08:15 PST 2010
+0.38_02 2009-04-10T20:57:19Z
+ - Specify an HTTP version for our GETs should get escaping to wokr
-* Pluggable CGI class support based on a patch from NANIS
+0.38_01 2009-03-02T18:11:46Z
+ - http://rt.cpan.org/Ticket/Attachment/568795/286902/ from confound++ for
+ http://rt.cpan.org/Public/Bug/Display.html?id=28122
-0.41 Tue Sep 29 23:05:04 JST 2009
+0.38 2009-01-11T14:42:57Z
+ - Improve startup banner generation
-* HTTP header concatenation fixes from miyagawa
-
-0.40 Mon Aug 17 22:01:07 EDT 2009
-
-* After a fork, we need to reset the random seed lest we have
- duplicated random numbers in both forks.
-
-0.39 Mon Aug 17 09:41:05 EDT 2009
-
-* Added signature tests
-
-0.38_04 Wed Aug 12 20:15:14 EDT 2009
-
-Another pass at the Win32 fixes from KMX
-
-0.38_03 Sat Apr 11 18:47:29 EDT 2009
-
-* Subject: [rt.cpan.org #44961] [PATCH] xdg reports select() is problematic on win32
-
-0.38_02 Fri Apr 10 20:57:19 EDT 2009
-
-* Specify an HTTP version for our GETs should get escaping to wokr
-
-0.38_01 Mon Mar 2 18:11:46 EST 2009
-* http://rt.cpan.org/Ticket/Attachment/568795/286902/ from confound++ for
- http://rt.cpan.org/Public/Bug/Display.html?id=28122
-
-0.38 Sun Jan 11 14:42:57 EST 2009
-
-* Improve startup banner generation
-
-0.37 Fri Jan 2 12:21:30 EST 2009
-
-* Several fixes for [rt.cpan.org #38011] designed to help get HSS to pass tests on Strawberry Perl
+0.37 2009-01-02T12:21:30Z
+ - Several fixes for [rt.cpan.org #38011] designed to help get HSS to pass
+ tests on Strawberry Perl
0.36
-
-* Documentation fixups
+ - Documentation fixups
0.35
-
-* Pass arguments to ->run through to Net::Server->run
+ - Pass arguments to ->run through to Net::Server->run
0.34
-
-* Call setup_environment if a Net::Server is being used, for consistency.
-
-* Don't print_banner if a Net::Server is being used.
-
-* Make header parsing comply with RFC 2616. [rt.cpan.org #21411]
-
-0.33 Fri Apr 25 13:57:30 EDT 2008
-
-* The new support for background processes notifying the parent didn't quite work right for some apps using HSS. It's been reverted for now and the tests TODOED
-
-0.32 Thu Apr 24 09:45:14 EDT 2008
-
-* At least Apache and lighttpd put unencoded strings into PATH_INFO, so so should we.
-
-* Patch from ntyni at iki.fi to make backgrounding of the standalone server's server process deterministic. [rt.cpan.org #28122]
-
-0.31 Sun Mar 16 20:51:04 EDT 2008
-
-* Test suite parallelization fixes. Thanks to Slaven Rezic
-
-0.30 Tue Mar 11 12:14:24 EDT 2008
-
-* Minor doc fix from Paul Miller.
-* Fixing doc style from "$this" to "$self" like any self-respecting perl code
-
-0.29 Fri Feb 15 11:43:29 EST 2008
-
-* new example section from almut on perlmonks
-
-0.28 Tue Jan 15 09:33:58 EST 2008
- * New restartability support from Mark Stosberg
-
- After reviewing the code in HTTP::Server::Simple,
- Catalyst::Engine::HTTP and HTTP::Server::Brick, I found and
- implemented an updated signal handling approach that I like and
- understand, and actually works.
-
- The current code restarted immediately if a SIGHUP came in, no
- matter what was happening, including if a request was in process of
- being fulfilled.
-
- The new code works more like "apachectl graceful". It waits for the
- current request cycle to finish, and then restarts the server.
-
- This code has to be integrated in the core, but its just about
- the same amount of signal handling code that was there... it just
- works better. It's also written in such a way I think subclass/mixin
- authors could rewrite just these parts if they wanted.
-
- Also, it looks like a Net::Server based sub-class would already be
- doing its own thing with SIGHUP handling, and should continue to
- be unaffected.
+ - Call setup_environment if a Net::Server is being used, for consistency.
+ - Don't print_banner if a Net::Server is being used.
+ - Make header parsing comply with RFC 2616. [rt.cpan.org #21411]
+
+0.33 2008-04-25T13:57:30Z
+ - The new support for background processes notifying the parent didn't
+ quite work right for some apps using HSS. It's been reverted for now and
+ the tests TODOED
+
+0.32 2008-04-24T09:45:14Z
+ - At least Apache and lighttpd put unencoded strings into PATH_INFO, so so
+ should we.
+ - Patch from ntyni at iki.fi to make backgrounding of the standalone server's
+ server process deterministic. [rt.cpan.org #28122]
+
+0.31 2008-03-16T20:51:04Z
+ - Test suite parallelization fixes. Thanks to Slaven Rezic
+
+0.30 2008-03-11T12:14:24Z
+ - Minor doc fix from Paul Miller.
+ - Fixing doc style from "$this" to "$self" like any self-respecting perl
+ code
+
+0.29 2008-02-15T11:43:29Z
+ - new example section from almut on perlmonks
+
+0.28 2008-01-15T09:33:58Z
+ - New restartability support from Mark Stosberg After reviewing the code
+ in HTTP::Server::Simple, Catalyst::Engine::HTTP and HTTP::Server::Brick,
+ I found and implemented an updated signal handling approach that I like
+ and understand, and actually works. The current code restarted
+ immediately if a SIGHUP came in, no matter what was happening, including
+ if a request was in process of being fulfilled. The new code works more
+ like "apachectl graceful". It waits for the current request cycle to
+ finish, and then restarts the server. This code has to be integrated in
+ the core, but its just about the same amount of signal handling code
+ that was there... it just works better. It's also written in such a way
+ I think subclass/mixin authors could rewrite just these parts if they
+ wanted. Also, it looks like a Net::Server based sub-class would already
+ be doing its own thing with SIGHUP handling, and should continue to be
+ unaffected.
0.27
-
- * 0.26 release apparently didn't get to cpan correctly
+ - 0.26 release apparently didn't get to cpan correctly
0.26
-
- * Supports multi-line encoded values in query_sting (like foo%0Abar) -- Dobrica Pavlinusic
- * Fixes to URI unescaping to behave like apache does
-0.24
+ - Supports multi-line encoded values in query_sting (like foo%0Abar) --
+ Dobrica Pavlinusic
+ - Fixes to URI unescaping to behave like apache does
- * Hopefully deal with an odd case where a poorly behaved Internet Explorer could crash the server.
- Thanks to the Catalyst project.
+0.24
+ - Hopefully deal with an odd case where a poorly behaved Internet Explorer
+ could crash the server. Thanks to the Catalyst project.
0.23
- Fix a release-engineering messup. Thanks to ANDK
-
-
-0.22 Wed Oct 18 23:36:34 EDT 2006
- * Query string processing improvements
+ - Fix a release-engineering messup. Thanks to ANDK
+0.22 2006-10-18T23:36:34Z
+ - Query string processing improvements
-0.21 Wed Oct 18 23:31:42 EDT 2006
- [rt.cpan.org #21727] [PATCH] Support for Perl 5.004
- -- Sébastien Aperghis-Tramoni
-
-0.19
-
- Catch and ignore SIGPIPE, so broken pipes from the client don't cause
- Standalone to drop all the way back to the shell.
+0.21 2006-10-18T23:31:42Z
+ - [rt.cpan.org #21727] [PATCH] Support for Perl 5.004 -- Sébastien
+ Aperghis-Tramoni
0.20
+ - Require POSIX only if we need it, rather than "use" it all the time
+ - [cpan #17533] - Brad Bowman
- Require POSIX only if we need it, rather than "use" it all the time
- [cpan #17533] - Brad Bowman
+0.19
+ - Catch and ignore SIGPIPE, so broken pipes from the client don't cause
+ - Standalone to drop all the way back to the shell.
0.18
-
- new method: valid_http_method() from Chris Dent to make it easier to
- create servers handling non-standard HTTP verbs.
+ - new method: valid_http_method() from Chris Dent to make it easier to
+ - create servers handling non-standard HTTP verbs.
0.17
- Workaround for Class::Spiffy classloading order issue
- Better handling for completely mangled requests.
-
-0.16 Mon Nov 7 14:40:43 EST 2005
-
- SIG{'HUP'} does not exist on Win32 (cpan #15606)
-
-0.15 Thu Oct 6 21:11:02 EDT 2005
-
- Precompute the local host's hostname and IP to save on DNS lookups at runtime
-
-0.14 Thu Oct 6 20:48:49 EDT 2005
-
- Split out HTTP::Server::Simple::CGI::Environment to support non-CGI.pm CGIs
- Ignore SIGPIPE
-
- Signal handlers are now installed on ->run, not on new. Also, they're
- documented. Thanks to Mark Fowler.
-
- We no longer lookup $ENV{'REMOTE_HOST'} by hostname, as it can cause huge performance problems.
-
-0.13 Tue Aug 9 21:25:20 EDT 2005
-
- Signal handlers should be 'localed', so as not to mess with others'
- code. -- Thanks to David Wheeler
-
-0.12 Sun Jul 17 02:14:57 EDT 2005
-
- Test suite improvements from Mattia Barbon
-
-0.11 Fri Jul 8 22:56:01 EDT 2005
- Bogus META.yml broke signature checks. Thanks to sungo.
-
-0.10 Tue Jun 28 11:27:58 EDT 2005
-
-- Allow separate treatment of STDIN and STDOUT handles to the server. This
- gives support for HTTP::Server::Simple::Recorder.
-
-0.09 Tue Apr 19 21:43:31 EDT 2005
-
-- Now we set the GATEWAY_INTERFACE metavariable in H:S:S:CGI.
-
-0.08 Sat Apr 16 01:27:17 EDT 2005
-
-- New tests for HTTP::Server:Simple::CGI from hide.
-
-0.07 Sat Mar 26 14:25:38 CST 2005
-
-- PAUSE broke :/
-
-0.05 Sat Mar 26 14:14:54 CST 2005
-
-- Fix a bug in HTTP::Server::Simple::CGI that clobbered CGI ENV variables
- in some cases. Thanks, Hide.
-- New public subclass-overridable method ->net_server() that can
- optionally take a Net::Server subclass name and use it to replace
- the default ->run() method. -- Autrijus Tang
-
-0.04 Tue Mar 22 23:34:36 CST 2005
-- Changed ->headers calling conventions. This may break backwards compat,
- but is cleaner and safer.
-- Fixed bugs in ::CGI that broke http header handling
-- Refactored code to be more transparent
-- Patch from Sebastian Riedel to do proper parsing of form data from STDIN
-
-0.03_03 Fri Mar 18 15:09:52 EST 2005
-- Finish fixes from http://rt.cpan.org/NoAuth/Bug.html?id=11409
-
-
-0.03_02 Thu Feb 17 23:34:00 NZDT 2005
-- Make test script not depend on LWP
-- Add ->header(), and various generic hook capabilities
-- Made HTTP::Server::Simple::CGI use those hooks
-- Add ->bad_request(), for protocol errors
-
-0.03_01 Thu Feb 17 21:39:34 NZDT 2005
-- Add ->setup() and ->handler()
-- Add support for specifying a host to bind listener to
-- Split out CGI.pm support into sub-class
-- Add Changes file to MANIFEST
-
-0.03 Wed Jan 26 08:55:34 EST 2005
+ - Workaround for Class::Spiffy classloading order issue
+ - Better handling for completely mangled requests.
+
+0.16 2005-11-07T14:40:43Z
+ - SIG{'HUP'} does not exist on Win32 (cpan #15606)
+
+0.15 2005-10-06T21:11:02Z
+ - Precompute the local host's hostname and IP to save on DNS lookups at
+ runtime
+
+0.14 2005-10-06T20:48:49Z
+ - Split out HTTP::Server::Simple::CGI::Environment to support non-CGI.pm
+ CGIs
+ - Ignore SIGPIPE
+ - Signal handlers are now installed on ->run, not on new. Also, they're
+ - documented. Thanks to Mark Fowler.
+ - We no longer lookup $ENV{'REMOTE_HOST'} by hostname, as it can cause
+ huge performance problems.
+
+0.13 2005-08-09T21:25:20Z
+ - Signal handlers should be 'localed', so as not to mess with others'
+ - code. -- Thanks to David Wheeler
+
+0.12 2005-07-17T02:14:57Z
+ - Test suite improvements from Mattia Barbon
+
+0.11 2005-07-08T22:56:01Z
+ - Bogus META.yml broke signature checks. Thanks to sungo.
+
+0.10 2005-06-28T11:27:58Z
+ - Allow separate treatment of STDIN and STDOUT handles to the server.
+ This gives support for HTTP::Server::Simple::Recorder.
+
+0.09 2005-04-19T21:43:31Z
+ - Now we set the GATEWAY_INTERFACE metavariable in H:S:S:CGI.
+
+0.08 2005-04-16T01:27:17Z
+ - New tests for HTTP::Server:Simple::CGI from hide.
+
+0.07 2005-03-26T14:25:38Z
+ - PAUSE broke :/
+
+0.05 2005-03-26T14:14:54Z
+ - Fix a bug in HTTP::Server::Simple::CGI that clobbered CGI ENV variables
+ in some cases. Thanks, Hide.
+ - New public subclass-overridable method ->net_server() that can
+ optionally take a Net::Server subclass name and use it to replace the
+ default ->run() method. -- Autrijus Tang
+
+0.04 2005-03-22T23:34:36Z
+ - Changed ->headers calling conventions. This may break backwards compat,
+ but is cleaner and safer.
+ - Fixed bugs in ::CGI that broke http header handling
+ - Refactored code to be more transparent
+ - Patch from Sebastian Riedel to do proper parsing of form data from STDIN
+
+0.03_03 2005-03-18T15:09:52Z
+ - Finish fixes from http://rt.cpan.org/NoAuth/Bug.html?id=11409
+
+0.03_02 2005-02-17T23:34:00Z
+ - Make test script not depend on LWP
+ - Add ->header(), and various generic hook capabilities
+ - Made HTTP::Server::Simple::CGI use those hooks
+ - Add ->bad_request(), for protocol errors
+
+0.03_01 2005-02-17T21:39:34Z
+ - Add ->setup() and ->handler()
+ - Add support for specifying a host to bind listener to
+ - Split out CGI.pm support into sub-class
+ - Add Changes file to MANIFEST
+
+0.03 2005-01-26T08:55:34Z
+ - Test fixes for Win32
-- Test fixes for Win32
commit ed476fc71adaec3479b84be45f186f4b68796f66
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Thu Jan 29 18:04:39 2015 -0500
Don't always skip ipv6
diff --git a/t/01live.t b/t/01live.t
index aaa58f4..69891c4 100644
--- a/t/01live.t
+++ b/t/01live.t
@@ -18,6 +18,7 @@ my $RUN_IPV6 = eval {
bind $sockh, $r->{'addr'} or die "Cannot bind - $!";
last;
}
+ return 1;
};
if ( $RUN_IPV6) {
plan tests => 34;
commit b2ef06ad08b31641dc555e49be5818e4c1aafad2
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Thu Jan 29 17:57:52 2015 -0500
Bump version for 0.45_08
diff --git a/Changes b/Changes
index 8a5b277..4582303 100644
--- a/Changes
+++ b/Changes
@@ -1,22 +1,26 @@
-0.45_07
+0.45_08 2015-01-29
+ - IPv6 skipping code always turned off tests, rather than just
+ skipping on bad hosts.
+
+0.45_07 2015-01-27T22:24Z
- Skip IPv6 tests in 01live.t on machines where IPv6 isn't configured
-0.45_06
+0.45_06 2015-01-23T17:55Z
- Further test iteration and diagnostics for smoke failures
-0.45_05
+0.45_05 2015-01-22T16:23Z
- Test diagnostics for cpantester failures
- Hopefully better localhost handling
-0.45_04
+0.45_04 2015-01-20T17:40Z
- Fix compatibility for the IPv6 support in .45_02
- Hopefully improve the live tests
-0.45_03
+0.45_03 2015-01-14T19:48Z
- Remove useless VERSION from HTTP::Server::Simple::CGI and
HTTP::Server::Simple::CGI::Environment
-0.45_02
+0.45_02 2012-05-20T18:15Z
- Support for IPv6 - Daniel Kahn Gillmor [rt.cpan.org #61200]
0.45_01 2011-09-22T10:10:41Z
@@ -46,8 +50,8 @@
- HTTP header concatenation fixes from miyagawa
0.40 2009-08-17T22:01:07Z
- - After a fork, we need to reset the random seed lest we have duplicated
- random numbers in both forks.
+ - After a fork, we need to reset the random seed lest we have
+ duplicated random numbers in both forks.
0.39 2009-08-17T09:41:05Z
- Added signature tests
@@ -57,7 +61,7 @@
0.38_03 2009-04-11T18:47:29Z
- Subject: [rt.cpan.org #44961] [PATCH] xdg reports select() is
- problematic on win32
+ problematic on win32
0.38_02 2009-04-10T20:57:19Z
- Specify an HTTP version for our GETs should get escaping to wokr
diff --git a/META.yml b/META.yml
index 0d40bf7..2602fc0 100644
--- a/META.yml
+++ b/META.yml
@@ -25,4 +25,4 @@ requires:
Test::More: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.45_07
+version: 0.45_08
diff --git a/lib/HTTP/Server/Simple.pm b/lib/HTTP/Server/Simple.pm
index 2579488..77397d3 100644
--- a/lib/HTTP/Server/Simple.pm
+++ b/lib/HTTP/Server/Simple.pm
@@ -7,7 +7,7 @@ use Socket;
use Carp;
use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.45_07';
+$VERSION = '0.45_08';
=head1 NAME
commit b79719286de1a4ee56b3663cbd1f852e29b83f27
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Mon Feb 2 10:30:18 2015 -0500
Remove manually maintained SIGNATURE and test
This just bitrots unless you run cpansign and check it in.
We've had WriteAll(sign =>1); in our Makefile.PL for a while, so the
tarball can have a different SIGNATURE file than the repo anyway.
The test is just begging to fail on bitrot.
diff --git a/MANIFEST b/MANIFEST
index 4b0ffaa..873cb53 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -15,9 +15,7 @@ MANIFEST This list of files
META.yml
README
Changes
-SIGNATURE
t/00smoke.t
-t/00signature.t
t/01live.t
t/02pod.t
t/03podcoverage.t
diff --git a/SIGNATURE b/SIGNATURE
deleted file mode 100644
index bb2eb17..0000000
--- a/SIGNATURE
+++ /dev/null
@@ -1,47 +0,0 @@
-This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.66.
-
-To verify the content in this distribution, first make sure you have
-Module::Signature installed, then type:
-
- % cpansign -v
-
-It will check each file's integrity, as well as the signature's
-validity. If "==> Signature verified OK! <==" is not displayed,
-the distribution may already have been compromised, and you should
-not run its Makefile.PL or Build.PL.
-
------BEGIN PGP SIGNED MESSAGE-----
-Hash: SHA1
-
-SHA1 f0ed9096f048f9291c7cccb64caeea6ae50ea031 Changes
-SHA1 949066363c947341783f1fe4c949f02940e8fa73 MANIFEST
-SHA1 e476d8bd724d46eb9e255cc8afc98b92269e2255 MANIFEST.SKIP
-SHA1 be860c588757207ef6626b854627385b4ed191d9 META.yml
-SHA1 bedda9fb5cb7922f391c7f039bc7eb8297e2c999 Makefile.PL
-SHA1 ed0c107672daac3bc9e266876666e1059dbe44b7 README
-SHA1 4ea1e9072ca87399184a46233df52a21e285604d ex/sample_server
-SHA1 7305dbe2904416e28decb05396988a5d51d578be inc/Module/Install.pm
-SHA1 129960509127732258570c122042bc48615222e1 inc/Module/Install/Base.pm
-SHA1 cf3356ed9a5bd2f732527ef9e7bc5ef4458c8a93 inc/Module/Install/Can.pm
-SHA1 bf0a3e1977effc2832d7a813a76dce3f31b437b6 inc/Module/Install/Fetch.pm
-SHA1 b721c93ca5bc9a6aa863b49af15f1b1de6125935 inc/Module/Install/Makefile.pm
-SHA1 026cc0551a0ad399d195e395b46bdf842e115192 inc/Module/Install/Metadata.pm
-SHA1 5457015ea5a50e93465bf2dafa29feebd547f85b inc/Module/Install/Win32.pm
-SHA1 051e7fa8063908befa3440508d0584a2497b97db inc/Module/Install/WriteAll.pm
-SHA1 5fc5e574334c74ff4351fd47dcf2e9475aef4049 lib/HTTP/Server/Simple.pm
-SHA1 c84b60c7ebdcc12d1814909f957bf3b385fa60c2 lib/HTTP/Server/Simple/CGI.pm
-SHA1 d052d3acc92e7f35ece4d195ce8b09d8105f063e lib/HTTP/Server/Simple/CGI/Environment.pm
-SHA1 41afe2c04bb573b40e283e2b210ed70a47a3f8ba t/00signature.t
-SHA1 db064af54cab345a71daec576e32e64b8fb1033d t/00smoke.t
-SHA1 7afffea07d161f377bedff4669ab92e121d28e81 t/01live.t
-SHA1 aca95653cfce68912e08c57b3a4566207e2f99b3 t/02pod.t
-SHA1 a7024d0d8e7b80d26f75a3551a1406a797b382f8 t/03podcoverage.t
-SHA1 27975aef6518de7ef5916ea2dfd3747f134db841 t/04cgi.t
------BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.10 (GNU/Linux)
-
-iEYEARECAAYFAk2ZbOAACgkQEi9d9xCOQEZrcgCgtdOugS1v1a50mU5ovARVYR6/
-ZoIAoJfTNrwVU38QaSeW4GeOqqpcpORk
-=Ouce
------END PGP SIGNATURE-----
diff --git a/t/00signature.t b/t/00signature.t
deleted file mode 100644
index c70c4a3..0000000
--- a/t/00signature.t
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-print "1..1\n";
-
-if (!$ENV{TEST_SIGNATURE}) {
- print "ok 1 # skip set the environment variable TEST_SIGNATURE to enable this test\n";
-}
-elsif (!-s 'SIGNATURE') {
- print "ok 1 # skip No signature file found\n";
-}
-elsif (!eval { require Module::Signature; 1 }) {
- print "ok 1 # skip ",
- "Next time around, consider install Module::Signature, ",
- "so you can verify the integrity of this distribution.\n";
-}
-elsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) {
- print "ok 1 # skip ",
- "Cannot connect to the keyserver\n";
-}
-else {
- (Module::Signature::verify() == Module::Signature::SIGNATURE_OK())
- or print "not ";
- print "ok 1 # Valid signature\n";
-}
-
-__END__
commit 969a84809ba9674217322af840079fe3f7a6540a
Author: Kevin Falcone <falcone at bestpractical.com>
Date: Mon Feb 2 10:32:10 2015 -0500
Bump version for 0.50
diff --git a/Changes b/Changes
index 4582303..ea75c36 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+0.50 2015-02-02
+ - All collected changes since 0.44
+
0.45_08 2015-01-29
- IPv6 skipping code always turned off tests, rather than just
skipping on bad hosts.
diff --git a/META.yml b/META.yml
index 2602fc0..8e84e78 100644
--- a/META.yml
+++ b/META.yml
@@ -25,4 +25,4 @@ requires:
Test::More: 0
resources:
license: http://dev.perl.org/licenses/
-version: 0.45_08
+version: '0.50'
diff --git a/lib/HTTP/Server/Simple.pm b/lib/HTTP/Server/Simple.pm
index 77397d3..89b43e4 100644
--- a/lib/HTTP/Server/Simple.pm
+++ b/lib/HTTP/Server/Simple.pm
@@ -7,7 +7,7 @@ use Socket;
use Carp;
use vars qw($VERSION $bad_request_doc);
-$VERSION = '0.45_08';
+$VERSION = '0.50';
=head1 NAME
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list