[Cascavel-pm] Re: Usando Perl e samba, ssh, smtp, etc ....

Felipe Kellermann stdfk em terra.com.br
Quinta Janeiro 9 22:35:14 CST 2003


On Thu, 9 Jan 2003 9:10pm  -0200, Ednardo Lobo wrote:

>     if (not undef $sock) {

	Condição sempre verdadeira. Troque,

	printf("%s/%s!\n",
		$sock?"aberto":"fechado",
		getservbyport(139, 'tcp'));
	close($sock);


-- 
Felipe Kellermann



Mais detalhes sobre a lista de discussão Cascavel-pm