228 |
else |
else |
229 |
{ |
{ |
230 |
$! = $udpserver->sockopt(SO_ERROR); |
$! = $udpserver->sockopt(SO_ERROR); |
231 |
$LASTERROR = sprintf "Socket RECV error: %s\n", $!; |
$LASTERROR = sprintf "Socket RECV error: %s\n", $! if $!; |
232 |
return(undef); |
return(undef); |
233 |
} |
} |
234 |
} |
} |
837 |
else |
else |
838 |
{ |
{ |
839 |
$! = $udpserver->sockopt(SO_ERROR); |
$! = $udpserver->sockopt(SO_ERROR); |
840 |
$LASTERROR = sprintf "Socket RECV error: %s\n", $!; |
$LASTERROR = sprintf "Socket RECV error: %s\n", $! if $!; |
841 |
return(undef); |
return(undef); |
842 |
} |
} |
843 |
} |
} |