mattn · July 8, 2009 05:05
diff --git a/sock.pl b/sock.pl
 use strict;
 use warnings;
 use YAML;
 use IO::Socket::INET;

 my $sock = IO::Socket::INET->new(PeerAddr => 'www.google.com',
                                 PeerPort => 'http(80)',
                                 Proto    => 'tcp');
 $! = unpack "i", $sock->getsockopt (SOL_SOCKET, SO_ERROR);
 warn Dump $!;
 # --- Bad file descriptor
	use strict;
	use warnings;
	use YAML;
	use IO::Socket::INET;

	my $sock = IO::Socket::INET->new(PeerAddr => 'www.google.com',
	PeerPort => 'http(80)',
	Proto => 'tcp');
	$! = unpack "i", $sock->getsockopt (SOL_SOCKET, SO_ERROR);
	warn Dump $!;
	# --- Bad file descriptor
No results found