in reply to Declaring/Assigning thread shared vars
$socket_errmsg = ""; ($socket_errmsg, $send_socket) = get_sending_socket( $isp, $ra +nk, $cfg::rad_srvrs{$isp}{$rank}{server}, $cfg::rad_srvrs{$isp}{$rank}{acctport} + ); + # Success ... if( !$socket_errmsg ) { # Connect succeeded, so set isp/server values $cfg::rad_srvrs{$isp}{$rank}{conn_status} = 'U'; $cfg::rad_srvrs{$isp}{$rank}{sckt} = $send_socket; # 'In +valid value for shared scalar ' . . . sub get_sending_socket { #blah,blah # Create socket $socket_errmsg = ""; $send_socket = ""; $send_socket = IO::Socket::INET->new(PeerAddr => $server, PeerPort => $port, Proto => "udp", Type => SOCK_DGRAM) or $socket_errmsg = "Couldn't create socket to $server port $port: + $@\n"; return($socket_errmsg, $send_socket); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Declaring/Assigning thread shared vars
by BrowserUk (Patriarch) on Nov 18, 2004 at 09:01 UTC | |
by Anonymous Monk on Nov 18, 2004 at 23:34 UTC | |
by BrowserUk (Patriarch) on Nov 19, 2004 at 03:16 UTC |