Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Checking in changes prior to tagging of version 0.02.

Changelog diff is:

diff --git a/Changes b/Changes
index 677ff1e..70c63c0 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension Cocoa::EventLoop

+0.02  2010-12-29T15:00:31+09:00
+      - fix compilation error on lagacy OS
+
 0.01  2010-12-24T16:35:34+09:00
       - initial release
  • Loading branch information...
commit 28e7449c4433a8c685a8d3a56c296150e33712fe 1 parent 53f7014
@typester authored
Showing with 7 additions and 5 deletions.
  1. +3 −0  Changes
  2. +1 −0  MANIFEST
  3. +1 −1  lib/Cocoa/EventLoop.pm
  4. +2 −4 t/io.t
View
3  Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension Cocoa::EventLoop
+0.02 2010-12-29T15:00:31+09:00
+ - fix compilation error on lagacy OS
+
0.01 2010-12-24T16:35:34+09:00
- initial release
View
1  MANIFEST
@@ -10,6 +10,7 @@ inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
+inc/Module/Install/ReadmeFromPod.pm
inc/Module/Install/Repository.pm
inc/Module/Install/Win32.pm
inc/Module/Install/WriteAll.pm
View
2  lib/Cocoa/EventLoop.pm
@@ -2,7 +2,7 @@ package Cocoa::EventLoop;
use strict;
use XSLoader;
-our $VERSION = '0.01';
+our $VERSION = '0.02';
BEGIN {
XSLoader::load __PACKAGE__, $VERSION;
View
6 t/io.t
@@ -12,8 +12,6 @@ test_tcp(
client => sub {
my ($port) = @_;
- sleep 0.1;
-
my $sock = IO::Socket::INET->new(
PeerHost => '127.0.0.1',
PeerPort => $port,
@@ -58,14 +56,14 @@ test_tcp(
Type => SOCK_STREAM,
Blocking => 0,
ReuseAddr => 1,
- Listen => 10,
+ Listen => 5,
) or die $!;
my $server = Cocoa::EventLoop->io(
fh => fileno($sock),
poll => 'r',
cb => sub {
- my $csock = $sock->accept or die $!;
+ my $csock = $sock->accept or return;
IO::Handle::blocking($csock, 0);
setsockopt($csock, IPPROTO_TCP, TCP_NODELAY, pack('l', 1)) or die;
Please sign in to comment.
Something went wrong with that request. Please try again.