<div class="gmail_quote">2012/4/20 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">




<div><div dir="ltr">
Desculpe, Bruno (agora certo). Veja, <span></span><span>$self->{PORT}</span> esta dentro de &port, por isso chamar &port.<br></div></div></blockquote><div><br></div><div>Você está fazendo uma grande bagunça ao chamar uma função, colocando um & na frente dela.</div>

<div>Chamar uma função desta forma "&foo;" é a mesma coisa que chamar "foo(@_);". </div><div>Daqui pra frente, pare de colocar "&" na frente das coisas a menos que você saiba o que está fazendo :)</div>

<div><br></div><div>Veja o anexo <a href="http://teste.pl">teste.pl</a>, para ter certeza que você entendeu.</div><div><br></div><div>O que está acontecendo no seu programa é que você está passando o @_, que contem a referencia para o próprio objeto (se você tivesse feito "my $self = shift;" no início da função, não teria ocorrido esse problema) e esta passando isso para a sua função port, que por sua vez está atribuindo essa referencia para $self->{PORT}.</div>

<div><br></div><div>Logo quando o módulo Net::RawIP tenta criar um pacote onde a porta destino é "uma referencia para um objeto" que você passou... ele falha ;)</div><div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div><div dir="ltr">Não acho que o caso seja este, assim mesmo acabei de testar segundo a sua dica e a IDE reclamou o erro, " Global symbol "$self" requires explicit package name at Packs.pm line 40. ".<br>

</div></div></blockquote><div><br></div><div>Adicione o mesmo "my $self = shift;", igual você fez em todas as outras funções do seu pacote e tente novamente.</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div><div dir="ltr"><br>Ainda acho que o erro não esta no meu código e sim algum problema em o Net::RawIP controlar de alguma forma o pcap.<br></div></div></blockquote><div><br></div><div>O erro é no seu código.</div><div>

 </div><div>[ ]'s</div></div>-- <br>Bruno C. Buss<br><a href="http://www.brunobuss.net" target="_blank">http://www.brunobuss.net</a><br>