[Bps-public-commit] Net-Server-Coro branch, master, updated. 1.2-6-g4b7f35f
Alex Vandiver
alexmv at bestpractical.com
Mon Nov 12 03:14:48 EST 2012
The branch, master has been updated
via 4b7f35fee21733400f9b9899206875c1f0ec3bb0 (commit)
via da063d561bf0f5e296ff5d7c8160447fc9f1f167 (commit)
via c98ab4eba83bf9dbc59a6c3493571cf5534ed082 (commit)
via c58bf38097ae6abef98e9e3626117c2d310b9c25 (commit)
via 49b9c13dde7650e374ed463eec159c989c583dc9 (commit)
via 3656b98ca9439301cc3b80f4252b2d847a6e3469 (commit)
from ca829b2aa27af18675d650d1d7f9624d1a07fee2 (commit)
Summary of changes:
.gitignore | 12 +++---
Changes | 5 ++-
META.yml | 13 ++++---
Makefile.PL | 4 +-
inc/Module/Install.pm | 6 +--
inc/Module/Install/Base.pm | 2 +-
inc/Module/Install/Can.pm | 85 +++++++++++++++++++++++++++++++++++++++---
inc/Module/Install/Fetch.pm | 2 +-
inc/Module/Install/Makefile.pm | 27 ++++++++------
inc/Module/Install/Metadata.pm | 22 +++++++----
inc/Module/Install/Win32.pm | 2 +-
inc/Module/Install/WriteAll.pm | 2 +-
lib/Net/Server/Coro.pm | 71 +++++++++++++++++++++--------------
lib/Net/Server/Proto/Coro.pm | 1 +
14 files changed, 179 insertions(+), 75 deletions(-)
- Log -----------------------------------------------------------------
commit 3656b98ca9439301cc3b80f4252b2d847a6e3469
Author: Xavier Guimard <x.guimard at free.fr>
Date: Mon Nov 12 01:29:04 2012 -0500
Fix a POD syntax error
diff --git a/lib/Net/Server/Coro.pm b/lib/Net/Server/Coro.pm
index 2cd0acc..503f916 100644
--- a/lib/Net/Server/Coro.pm
+++ b/lib/Net/Server/Coro.pm
@@ -50,6 +50,8 @@ usage details.
Create new Net::Server::Coro object. It accepts these parameters (in
addition to L<Net::Server> parameters):
+=over
+
=item server_cert
Path to the SSL certificate that the server should use. This can be
@@ -62,6 +64,8 @@ Path to the SSL certificate key that the server should use. This can
be either relative or absolute path. Defaults to
F<certs/server-key.pem>
+=back
+
=cut
sub new {
commit 49b9c13dde7650e374ed463eec159c989c583dc9
Author: Alex Vandiver <alexmv at bestpractical.com>
Date: Mon Nov 12 03:05:17 2012 -0500
Update to work with the Net::Server 2.0 API
Net::Server 2.0, released after a long hiatus, broke backwards
compatibility with the `proto_object` method which this module
overloads. Update to conform to the new API.
Unfortunately, rt.cpan.org #31437 was improperly resolved, and thus the
hotpatch to ->accept is still necessary.
diff --git a/META.yml b/META.yml
index 2f44040..1ae16c1 100644
--- a/META.yml
+++ b/META.yml
@@ -21,7 +21,7 @@ recommends:
requires:
Coro: 0
EV: 0
- Net::Server: 0
+ Net::Server: 2
resources:
license: http://opensource.org/licenses/mit-license.php
version: 1.2
diff --git a/Makefile.PL b/Makefile.PL
index 7616b77..837aaa4 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -8,7 +8,7 @@ license('MIT');
requires('Coro');
requires('EV');
-requires('Net::Server');
+requires('Net::Server' => 2.000);
recommends('Net::SSLeay');
diff --git a/lib/Net/Server/Coro.pm b/lib/Net/Server/Coro.pm
index 503f916..52ec04a 100644
--- a/lib/Net/Server/Coro.pm
+++ b/lib/Net/Server/Coro.pm
@@ -86,7 +86,7 @@ sub post_bind_hook {
delete $prop->{select};
# set up coro::specific variables
- foreach my $key (qw(client sockaddr sockport peeraddr peerport peerhost)) {
+ foreach my $key (qw(client sockaddr sockport sockhost peeraddr peerport peerhost peername)) {
tie $prop->{$key}, Coro::Specific::;
}
}
@@ -100,11 +100,11 @@ L<Net::Server::Proto::Coro> objects.
sub proto_object {
my $self = shift;
- my ($host, $port, $proto) = @_;
+ my ($info) = @_;
- my $is_ssl = ($proto eq "SSL" or $proto eq "SSLEAY");
+ my $is_ssl = ($info->{proto} =~ /^SSL(EAY)?$/);
my $socket = $self->SUPER::proto_object(
- $host, $port, $is_ssl ? "TCP" : $proto
+ { %{$info}, $is_ssl ? (proto => "TCP") : () },
);
$socket = Net::Server::Proto::Coro->new_from_fh(
$socket,
@@ -127,19 +127,33 @@ sub coro_instance {
sub get_client_info {
my $self = shift;
- my $prop = $self->{server};
- my $sock = $prop->{client};
+ my $prop = $self->{'server'};
+ my $client = shift || $prop->{'client'};
+
+ if ($client->sockname) {
+ $prop->{'sockaddr'} = $client->sockhost;
+ $prop->{'sockport'} = $client->sockport;
+ } else {
+ @{ $prop }{qw(sockaddr sockhost sockport)} = ($ENV{'REMOTE_HOST'} || '0.0.0.0', 'inet.test', 0); # commandline
+ }
- ($prop->{sockaddr}, $prop->{sockport}) = ($sock->sockhost, $sock->sockport);
- ($prop->{peeraddr}, $prop->{peerport}) = ($sock->peerhost, $sock->peerport);
+ my $addr;
+ if ($prop->{'peername'} = $client->peername) {
+ $addr = $client->peeraddr;
+ $prop->{'peeraddr'} = $client->peerhost;
+ $prop->{'peerport'} = $client->peerport;
+ } else {
+ @{ $prop }{qw(peeraddr peerhost peerport)} = ('0.0.0.0', 'inet.test', 0); # commandline
+ }
- if (defined $prop->{reverse_lookups}) {
- $prop->{peerhost} = Coro::Util::gethostbyaddr($sock->peeraddr, Socket::AF_INET);
+ if ($addr && defined $prop->{'reverse_lookups'}) {
+ $prop->{peerhost} = Coro::Util::gethostbyaddr($addr, Socket::AF_INET);
}
$self->log(3, $self->log_time
- ." CONNECT TCP Peer: \"$prop->{peeraddr}:$prop->{peerport}\""
- ." Local: \"$prop->{sockaddr}:$prop->{sockport}\"\n");
+ ." CONNECT ".$client->NS_proto
+ ." Peer: \"[$prop->{'peeraddr'}]:$prop->{'peerport'}\""
+ ." Local: \"[$prop->{'sockaddr'}]:$prop->{'sockport'}\"") if $prop->{'log_level'} && 3 <= $prop->{'log_level'};
}
=head2 loop
@@ -291,14 +305,11 @@ package # Hide from PAUSE indexer
no warnings 'redefine';
sub accept {
- my $sock = shift;
- my ( $client, $peername ) = $sock->SUPER::accept();
-
- ### pass items on
- if ($peername) {
- $client->NS_proto( $sock->NS_proto );
+ my ($sock, $class) = (@_);
+ my ($client, $peername) = $sock->SUPER::accept($class);
+ if (defined $client) {
+ $client->NS_port($sock->NS_port);
}
-
return wantarray ? ( $client, $peername ) : $client;
}
diff --git a/lib/Net/Server/Proto/Coro.pm b/lib/Net/Server/Proto/Coro.pm
index 934af79..51477ba 100644
--- a/lib/Net/Server/Proto/Coro.pm
+++ b/lib/Net/Server/Proto/Coro.pm
@@ -17,6 +17,7 @@ sub new_from_fh {
sub NS_host { tied( *${+shift} )->[0]->NS_host(@_) };
sub NS_port { tied( *${+shift} )->[0]->NS_port(@_) };
sub NS_proto { tied( *${+shift} )->[0]->NS_proto(@_) };
+sub NS_ipv { tied( *${+shift} )->[0]->NS_ipv(@_) };
sub sockport { tied( *${+shift} )->[0]->sockport(@_) };
sub connect { tied( *${+shift} )->[0]->connect(@_) };
sub reconnect { tied( *${+shift} )->[0]->reconnect(@_) };
commit c58bf38097ae6abef98e9e3626117c2d310b9c25
Author: Alex Vandiver <alexmv at bestpractical.com>
Date: Mon Nov 12 03:09:16 2012 -0500
Switch from the low-level EV event loop to the more general AnyEvent
diff --git a/META.yml b/META.yml
index 1ae16c1..8ebc257 100644
--- a/META.yml
+++ b/META.yml
@@ -19,8 +19,8 @@ no_index:
recommends:
Net::SSLeay: 0
requires:
+ AnyEvent: 0
Coro: 0
- EV: 0
Net::Server: 2
resources:
license: http://opensource.org/licenses/mit-license.php
diff --git a/Makefile.PL b/Makefile.PL
index 837aaa4..d0cf3b2 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -7,7 +7,7 @@ abstract_from('lib/Net/Server/Coro.pm');
license('MIT');
requires('Coro');
-requires('EV');
+requires('AnyEvent');
requires('Net::Server' => 2.000);
recommends('Net::SSLeay');
diff --git a/lib/Net/Server/Coro.pm b/lib/Net/Server/Coro.pm
index 52ec04a..adc4fba 100644
--- a/lib/Net/Server/Coro.pm
+++ b/lib/Net/Server/Coro.pm
@@ -4,7 +4,7 @@ use warnings;
package Net::Server::Coro;
use vars qw($VERSION);
-use EV;
+use AnyEvent;
use Coro;
use Coro::Specific;
use Coro::Util ();
@@ -174,7 +174,7 @@ coroutines.
=item *
-The L<EV> event loop.
+An L<AnyEvent> infinite wait, which equates to the "run the event loop."
=back
@@ -204,10 +204,12 @@ sub loop {
$Coro::current->prio(3);
$Coro::current->desc("Event loop");
- # Use EV signal handlers;
- my @shutdown = map EV::signal( $_ => sub { $self->server_close; } ),
- qw/INT TERM QUIT/;
- EV::loop() while 1;
+ my $exit = AnyEvent->condvar;
+ my @shutdown = map { AnyEvent->signal(
+ signal => $_,
+ cb => sub { $self->server_close; $exit->send; }
+ ) } qw/INT TERM QUIT/;
+ $exit->recv;
};
schedule;
@@ -247,7 +249,7 @@ sub server_key {
=head1 DEPENDENCIES
-L<Coro>, L<EV>, L<Net::Server>
+L<Coro>, L<AnyEvent>, L<Net::Server>
=head1 BUGS AND LIMITATIONS
commit c98ab4eba83bf9dbc59a6c3493571cf5534ed082
Author: Alex Vandiver <alexmv at bestpractical.com>
Date: Mon Nov 12 03:10:24 2012 -0500
Update inc/ to Module::Install 1.06
diff --git a/META.yml b/META.yml
index 8ebc257..4a5d1cc 100644
--- a/META.yml
+++ b/META.yml
@@ -3,11 +3,12 @@ abstract: 'A co-operative multithreaded server using Coro'
author:
- 'Alex Vandiver <alexmv at bestpractical.com>'
build_requires:
- ExtUtils::MakeMaker: 6.42
+ ExtUtils::MakeMaker: 6.36
configure_requires:
- ExtUtils::MakeMaker: 6.42
+ ExtUtils::MakeMaker: 6.36
distribution_type: module
-generated_by: 'Module::Install version 1.01'
+dynamic_config: 1
+generated_by: 'Module::Install version 1.06'
license: mit
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 74caf9c..4ecf46b 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.01';
+ $VERSION = '1.06';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -451,7 +451,7 @@ sub _version ($) {
}
sub _cmp ($$) {
- _version($_[0]) <=> _version($_[1]);
+ _version($_[1]) <=> _version($_[2]);
}
# Cloned from Params::Util::_CLASS
@@ -467,4 +467,4 @@ sub _CLASS ($) {
1;
-# Copyright 2008 - 2011 Adam Kennedy.
+# Copyright 2008 - 2012 Adam Kennedy.
diff --git a/inc/Module/Install/Base.pm b/inc/Module/Install/Base.pm
index d3662c9..802844a 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.01';
+ $VERSION = '1.06';
}
# Suspend handler for "redefined" warnings
diff --git a/inc/Module/Install/Can.pm b/inc/Module/Install/Can.pm
index 276409a..22167b8 100644
--- a/inc/Module/Install/Can.pm
+++ b/inc/Module/Install/Can.pm
@@ -3,13 +3,12 @@ package Module::Install::Can;
use strict;
use Config ();
-use File::Spec ();
use ExtUtils::MakeMaker ();
use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '1.01';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -29,7 +28,7 @@ sub can_use {
eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}
-# check if we can run some command
+# Check if we can run some command
sub can_run {
my ($self, $cmd) = @_;
@@ -38,14 +37,88 @@ sub can_run {
for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
next if $dir eq '';
- my $abs = File::Spec->catfile($dir, $_[1]);
+ require File::Spec;
+ my $abs = File::Spec->catfile($dir, $cmd);
return $abs if (-x $abs or $abs = MM->maybe_command($abs));
}
return;
}
-# can we locate a (the) C compiler
+# Can our C compiler environment build XS files
+sub can_xs {
+ my $self = shift;
+
+ # Ensure we have the CBuilder module
+ $self->configure_requires( 'ExtUtils::CBuilder' => 0.27 );
+
+ # Do we have the configure_requires checker?
+ local $@;
+ eval "require ExtUtils::CBuilder;";
+ if ( $@ ) {
+ # They don't obey configure_requires, so it is
+ # someone old and delicate. Try to avoid hurting
+ # them by falling back to an older simpler test.
+ return $self->can_cc();
+ }
+
+ # Do we have a working C compiler
+ my $builder = ExtUtils::CBuilder->new(
+ quiet => 1,
+ );
+ unless ( $builder->have_compiler ) {
+ # No working C compiler
+ return 0;
+ }
+
+ # Write a C file representative of what XS becomes
+ require File::Temp;
+ my ( $FH, $tmpfile ) = File::Temp::tempfile(
+ "compilexs-XXXXX",
+ SUFFIX => '.c',
+ );
+ binmode $FH;
+ print $FH <<'END_C';
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+int main(int argc, char **argv) {
+ return 0;
+}
+
+int boot_sanexs() {
+ return 1;
+}
+
+END_C
+ close $FH;
+
+ # Can the C compiler access the same headers XS does
+ my @libs = ();
+ my $object = undef;
+ eval {
+ local $^W = 0;
+ $object = $builder->compile(
+ source => $tmpfile,
+ );
+ @libs = $builder->link(
+ objects => $object,
+ module_name => 'sanexs',
+ );
+ };
+ my $result = $@ ? 0 : 1;
+
+ # Clean up all the build files
+ foreach ( $tmpfile, $object, @libs ) {
+ next unless defined $_;
+ 1 while unlink;
+ }
+
+ return $result;
+}
+
+# Can we locate a (the) C compiler
sub can_cc {
my $self = shift;
my @chunks = split(/ /, $Config::Config{cc}) or return;
@@ -78,4 +151,4 @@ if ( $^O eq 'cygwin' ) {
__END__
-#line 156
+#line 236
diff --git a/inc/Module/Install/Fetch.pm b/inc/Module/Install/Fetch.pm
index 093cb7a..bee0c4f 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.01';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff --git a/inc/Module/Install/Makefile.pm b/inc/Module/Install/Makefile.pm
index 4c71003..7052f36 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.01';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -215,18 +215,22 @@ sub write {
require ExtUtils::MakeMaker;
if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {
- # MakeMaker can complain about module versions that include
- # an underscore, even though its own version may contain one!
- # Hence the funny regexp to get rid of it. See RT #35800
- # for details.
- my $v = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/;
- $self->build_requires( 'ExtUtils::MakeMaker' => $v );
- $self->configure_requires( 'ExtUtils::MakeMaker' => $v );
+ # This previous attempted to inherit the version of
+ # ExtUtils::MakeMaker in use by the module author, but this
+ # was found to be untenable as some authors build releases
+ # using future dev versions of EU:MM that nobody else has.
+ # Instead, #toolchain suggests we use 6.59 which is the most
+ # stable version on CPAN at time of writing and is, to quote
+ # ribasushi, "not terminally fucked, > and tested enough".
+ # TODO: We will now need to maintain this over time to push
+ # the version up as new versions are released.
+ $self->build_requires( 'ExtUtils::MakeMaker' => 6.59 );
+ $self->configure_requires( 'ExtUtils::MakeMaker' => 6.59 );
} else {
# Allow legacy-compatibility with 5.005 by depending on the
# most recent EU:MM that supported 5.005.
- $self->build_requires( 'ExtUtils::MakeMaker' => 6.42 );
- $self->configure_requires( 'ExtUtils::MakeMaker' => 6.42 );
+ $self->build_requires( 'ExtUtils::MakeMaker' => 6.36 );
+ $self->configure_requires( 'ExtUtils::MakeMaker' => 6.36 );
}
# Generate the MakeMaker params
@@ -241,7 +245,6 @@ in a module, and provide its file path via 'version_from' (or
'all_from' if you prefer) in Makefile.PL.
EOT
- $DB::single = 1;
if ( $self->tests ) {
my @tests = split ' ', $self->tests;
my %seen;
@@ -412,4 +415,4 @@ sub postamble {
__END__
-#line 541
+#line 544
diff --git a/inc/Module/Install/Metadata.pm b/inc/Module/Install/Metadata.pm
index 3b01e09..58430f3 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.01';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -151,15 +151,21 @@ sub install_as_site { $_[0]->installdirs('site') }
sub install_as_vendor { $_[0]->installdirs('vendor') }
sub dynamic_config {
- my $self = shift;
- unless ( @_ ) {
- warn "You MUST provide an explicit true/false value to dynamic_config\n";
- return $self;
+ my $self = shift;
+ my $value = @_ ? shift : 1;
+ if ( $self->{values}->{dynamic_config} ) {
+ # Once dynamic we never change to static, for safety
+ return 0;
}
- $self->{values}->{dynamic_config} = $_[0] ? 1 : 0;
+ $self->{values}->{dynamic_config} = $value ? 1 : 0;
return 1;
}
+# Convenience command
+sub static_config {
+ shift->dynamic_config(0);
+}
+
sub perl_version {
my $self = shift;
return $self->{values}->{perl_version} unless @_;
@@ -170,7 +176,7 @@ sub perl_version {
# Normalize the version
$version = $self->_perl_version($version);
- # We don't support the reall old versions
+ # We don't support the really old versions
unless ( $version >= 5.005 ) {
die "Module::Install only supports 5.005 or newer (use ExtUtils::MakeMaker)\n";
}
@@ -582,7 +588,7 @@ sub bugtracker_from {
sub requires_from {
my $self = shift;
my $content = Module::Install::_readperl($_[0]);
- my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+([\d\.]+)/mg;
+ my @requires = $content =~ m/^use\s+([^\W\d]\w*(?:::\w+)*)\s+(v?[\d\.]+)/mg;
while ( @requires ) {
my $module = shift @requires;
my $version = shift @requires;
diff --git a/inc/Module/Install/Win32.pm b/inc/Module/Install/Win32.pm
index 3139a63..eeaa3fe 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.01';
+ $VERSION = '1.06';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
diff --git a/inc/Module/Install/WriteAll.pm b/inc/Module/Install/WriteAll.pm
index 1f724a7..85d8018 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.01';
+ $VERSION = '1.06';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
commit da063d561bf0f5e296ff5d7c8160447fc9f1f167
Author: Alex Vandiver <alexmv at bestpractical.com>
Date: Mon Nov 12 03:10:59 2012 -0500
Update .gitignore, anchoring expressions and ignoring MYMETA.*
diff --git a/.gitignore b/.gitignore
index 926156a..f53c2ef 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,6 +1,6 @@
-Makefile
-Makefile.old
-MYMETA.yml
-blib
-pm_to_blib
-Net-Server-Coro-*.tar.gz
\ No newline at end of file
+/Makefile
+/Makefile.old
+/MYMETA.*
+/blib
+/pm_to_blib
+/Net-Server-Coro-*.tar.gz
commit 4b7f35fee21733400f9b9899206875c1f0ec3bb0
Author: Alex Vandiver <alexmv at bestpractical.com>
Date: Mon Nov 12 03:13:18 2012 -0500
Version 1.3 releng
diff --git a/Changes b/Changes
index 480f414..3a2fd46 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
Revision history for Net-Server-Coro
+1.3 Mon Nov 12 03:11:17 2012
+ * Require Net::Server 2.0, and adjust to its API
+
1.2 Sat Oct 29 02:26:17 2011
* Net::SSLeay is now an optional dependency
@@ -7,7 +10,7 @@ Revision history for Net-Server-Coro
* Fix SIGNATURE; no code changes
1.0 Mon Sep 5 00:03:17 2011
- * Catch and watn of possible CVE-2011-0411 attacks
+ * Catch and warn of possible CVE-2011-0411 attacks
* No longer make use of a bug in perl pre 5.14 wherein TIEHANDLE
happened to be called on scalars containing typeglobs
diff --git a/META.yml b/META.yml
index 4a5d1cc..bbcf824 100644
--- a/META.yml
+++ b/META.yml
@@ -25,4 +25,4 @@ requires:
Net::Server: 2
resources:
license: http://opensource.org/licenses/mit-license.php
-version: 1.2
+version: 1.3
diff --git a/lib/Net/Server/Coro.pm b/lib/Net/Server/Coro.pm
index adc4fba..82ca51b 100644
--- a/lib/Net/Server/Coro.pm
+++ b/lib/Net/Server/Coro.pm
@@ -12,7 +12,7 @@ use Socket ();
use base qw(Net::Server);
use Net::Server::Proto::Coro;
-$VERSION = '1.2';
+$VERSION = '1.3';
=head1 NAME
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list