Use function ref

This commit is contained in:
Jamie Cameron
2009-03-11 21:14:04 +00:00
parent b39a890cae
commit 4dc26e9d08

View File

@@ -55,7 +55,7 @@ else {
$ENV{'SERVER_NAME'} ? $ENV{'SERVER_NAME'} :
&to_ipaddress(&get_system_hostname());
socket(STEST, PF_INET, SOCK_STREAM, getprotobyname("tcp"));
$SIG{ALRM} = "connect_timeout";
$SIG{ALRM} = \&connect_timeout;
alarm(10);
$rv = connect(STEST, pack_sockaddr_in($config{'port'}, inet_aton($addr)));
close(STEST);