Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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
Daisuke Murase authored
3  Changes
... ... @@ -1,5 +1,8 @@
1 1 Revision history for Perl extension Cocoa::EventLoop
2 2
  3 +0.02 2010-12-29T15:00:31+09:00
  4 + - fix compilation error on lagacy OS
  5 +
3 6 0.01 2010-12-24T16:35:34+09:00
4 7 - initial release
5 8
1  MANIFEST
@@ -10,6 +10,7 @@ inc/Module/Install/Can.pm
10 10 inc/Module/Install/Fetch.pm
11 11 inc/Module/Install/Makefile.pm
12 12 inc/Module/Install/Metadata.pm
  13 +inc/Module/Install/ReadmeFromPod.pm
13 14 inc/Module/Install/Repository.pm
14 15 inc/Module/Install/Win32.pm
15 16 inc/Module/Install/WriteAll.pm
2  lib/Cocoa/EventLoop.pm
@@ -2,7 +2,7 @@ package Cocoa::EventLoop;
2 2 use strict;
3 3 use XSLoader;
4 4
5   -our $VERSION = '0.01';
  5 +our $VERSION = '0.02';
6 6
7 7 BEGIN {
8 8 XSLoader::load __PACKAGE__, $VERSION;
6 t/io.t
@@ -12,8 +12,6 @@ test_tcp(
12 12 client => sub {
13 13 my ($port) = @_;
14 14
15   - sleep 0.1;
16   -
17 15 my $sock = IO::Socket::INET->new(
18 16 PeerHost => '127.0.0.1',
19 17 PeerPort => $port,
@@ -58,14 +56,14 @@ test_tcp(
58 56 Type => SOCK_STREAM,
59 57 Blocking => 0,
60 58 ReuseAddr => 1,
61   - Listen => 10,
  59 + Listen => 5,
62 60 ) or die $!;
63 61
64 62 my $server = Cocoa::EventLoop->io(
65 63 fh => fileno($sock),
66 64 poll => 'r',
67 65 cb => sub {
68   - my $csock = $sock->accept or die $!;
  66 + my $csock = $sock->accept or return;
69 67 IO::Handle::blocking($csock, 0);
70 68 setsockopt($csock, IPPROTO_TCP, TCP_NODELAY, pack('l', 1)) or die;
71 69

0 comments on commit 28e7449

Please sign in to comment.
Something went wrong with that request. Please try again.