<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt"> Acho que resolvi...<br> Eu estava colocando o método "new" no @EXPORT.<br> Tirei, ele parou de reclamar...<br><div> </div>Daniel ® Antunes<br><em><font color="#007f40">profissional de informática</font></em><br><em><font color="#007f40">msn</font></em> daniel.legend@terra.com.br<br><em></em><em><font color="#007f40">yahoo-messenger</font></em> danielrantunes@yahoo.com.br<br><em></em><em><font color="#007f40">mobile</font></em> + 55 11 8965 2999<br><em><font color="#007f40">gnu/linux user</font></em> #238553<div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Daniel ® Antunes
<danielrantunes@yahoo.com.br><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org><br>Enviadas: Terça-feira, 10 de Julho de 2007 14:26:49<br>Assunto: [Cascavel-pm] "Subroutine new redefined at"<br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"> Oi amigos...<br> Estou com um probleminha aqui que é o seguinte :<br><br> Tenho uma classe/package chamada Supplier::X e tenho uma classe/package chamada Inquiry.<br> Na classe Inquiry eu chamo a classe X<br><br> use Supplier::X<br><br> E crio objetos : my $obj=new Supplier::X(); dentro desta classe Inquiry.<br> Até aí sem novidades, o Supplier::X faz suas declarações e processamentos normalmente.<br> Acontece que na classe Inquiry eu declaro um método (ou member function como chamamos em C) "new" também, pq no script de primeiro nível
chamado "inquiry-server.pl" eu crio objetos "Inquiry" :<br><br> my $inquiry=new
Inquiry();<br><br> Acontece que qdo vou executar o script de primeiro nível que é um server :<br><br>daniel@sun4w_nodeF:~/bin/inquiry-server-2$ ./inquiry-server.pl -v -p 10011<br>Subroutine new redefined at /home/daniel/bin/inquiry-server-2/Inquiry.pm line 147.<br>--verbose<br>Inquiry server started, listen on 10011 port.<br><br> Eu já dei uma caçada na web buscando algum meio de contornar esta warning, pelo que entendi ele está reclamando que eu tenho o método "new" no package Supplier::X e no package Inquiry.<br> Desde já agradeço alguma ajuda, obrigado.<br><br><div> </div>Daniel ® Antunes<br><em><font color="#007f40">profissional de informática</font></em><br><em><font color="#007f40">msn</font></em> daniel.legend@terra.com.br<br><em></em><em><font color="#007f40">yahoo-messenger</font></em> danielrantunes@yahoo.com.br<br><em></em><em><font color="#007f40">mobile</font></em> + 55 11 8965 2999<br><em><font
color="#007f40">gnu/linux user</font></em> #238553<div><br></div></div><br>
Flickr agora em português. Você cria, todo mundo vê. <a rel="nofollow" target="_blank" href="http://www.flickr.com.br/">Saiba mais</a>.
<div>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br><a target="_blank" href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a></div></div><br></div></div><br>
<hr size=1>Novo <a href="http://yahoo.com.br/oqueeuganhocomisso ">Yahoo! Cadê?</a> - Experimente uma nova busca. </body></html>