Added Win32 fixes for C::E::H::Daemon

diff --git a/lib/Catalyst/Engine/HTTP/Daemon.pm b/lib/Catalyst/Engine/HTTP/Daemon.pm
index feefce8..40cd596 100644 (file)
--- a/lib/Catalyst/Engine/HTTP/Daemon.pm
+++ b/lib/Catalyst/Engine/HTTP/Daemon.pm
@@ -10,21 +10,22 @@ BEGIN {
 
     if ( $^O eq 'MSWin32' ) {
 
-       *EINPROGRESS = sub { 10036 };
-       *EWOULDBLOCK = sub { 10035 };
-       *F_GETFL     = sub {     0 };
-       *F_SETFL     = sub {     0 };
-
-       *IO::Socket::blocking = sub {
-           my ( $self, $blocking ) = @_;
-           my $nonblocking = $blocking ? 0 : 1;
-           ioctl( $self, 0x8004667e, \$nonblocking );
-       };
+        *EINTR       = sub { 10004 };
+        *EINPROGRESS = sub { 10036 };
+        *EWOULDBLOCK = sub { 10035 };
+        *F_GETFL     = sub {     0 };
+        *F_SETFL     = sub {     0 };
+
+        *IO::Socket::blocking = sub {
+            my ( $self, $blocking ) = @_;
+            my $nonblocking = $blocking ? 0 : 1;
+            ioctl( $self, 0x8004667e, \$nonblocking );
+        };
     }
 
     else {
         Errno->require;
-        Errno->import( qw[EWOULDBLOCK EINPROGRESS] );
+        Errno->import( qw[EWOULDBLOCK EINPROGRESS EINTR] );
     }
 }