[Cascavel-pm] "Subroutine new redefined at"

[Daniel ® Antunes]

    Oi amigos...
    Estou com um probleminha aqui que é o seguinte :

    Tenho uma classe/package chamada Supplier::X e tenho uma classe/package chamada Inquiry.
    Na classe Inquiry eu chamo a classe  X

    use Supplier::X

    E crio objetos : my $obj=new Supplier::X(); dentro desta classe Inquiry.
    Até aí sem novidades, o Supplier::X faz suas declarações e processamentos normalmente.
    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" :

    my $inquiry=new Inquiry();

    Acontece que qdo vou executar o script de primeiro nível que é um server :

daniel em sun4w_nodeF:~/bin/inquiry-server-2$ ./inquiry-server.pl -v -p 10011
Subroutine new redefined at /home/daniel/bin/inquiry-server-2/Inquiry.pm line 147.
--verbose
Inquiry server started, listen on 10011 port.

    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.
    Desde já agradeço alguma ajuda, obrigado.

 
Daniel ® Antunes
profissional de informática
msn daniel.legend em terra.com.br
yahoo-messenger danielrantunes em yahoo.com.br
mobile + 55 11 8965 2999
gnu/linux user #238553




       
____________________________________________________________________________________
Novo Yahoo! Cadê? - Experimente uma nova busca.
http://yahoo.com.br/oqueeuganhocomisso 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070710/96bd97bb/attachment.html