--- AnyEvent/lib/AnyEvent/Handle.pm	2010/06/05 09:08:14	1.195
+++ AnyEvent/lib/AnyEvent/Handle.pm	2010/06/08 10:04:17	1.196
@@ -538,7 +538,7 @@
    # with AnyEvent::Handle, do them a favour.
    my $type = getsockopt $self->{fh}, Socket::SOL_SOCKET (), Socket::SO_TYPE ();
    Carp::croak "AnyEvent::Handle: only stream sockets supported, anything else will NOT work!"
-      if Socket::SOCK_STREAM != (unpack "I", $type) && defined $type;
+      if Socket::SOCK_STREAM () != (unpack "I", $type) && defined $type;
 
    AnyEvent::Util::fh_nonblocking $self->{fh}, 1;