sub doMcastSubscription
{
...
    while(1)
    {
	my($message,$peer);

	$drop=1 unless $peer=recv($sock,$message,1400,0);
	
	if($drop == 1)
	{
	    $DEBUG && msg("recv failed");
	    #sleep(2);
	}
	else
	{
	    $actualPlugin->processMessage("$message");
	}
	
	$drop=0;	
    }    
}