Use function ref

diff --git a/vnc/index.cgi b/vnc/index.cgi
index b5869b7..3abb36e 100755 (executable)
--- a/vnc/index.cgi
+++ b/vnc/index.cgi
@@ -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);