Fala galera,<br><br>Estou (tentando) usar esse módulo, e me parece que ele usa uma função que não está definida, nem em Video::Xine também :<br><br>Justamente no método new :<br><br>sub new {<br> my $type = shift;<br> my ( $xine, $audio_port, $video_port ) = @_;<br>
<br> my $self = {};<br> $self->{'xine'} = $xine;<br> $self->{'audio_port'} = $audio_port;<br> $self->{'video_port'} = $video_port;<br> $self->{'stream'} =<br>
<b>xine_stream_new</b>( $xine, $audio_port->{'driver'},<br> $video_port->{'driver'} );<br><br> bless $self, $type;<br><br> return $self;<br><br>}<br><br>xine_stream_new => esta é a única ocorrência da função, como resultado, quando executo o exemplo dele, tomo o erro:<br>
<br>Video::Xine::Stream::xine_stream_new: xine is not a reference at /usr/local/lib/perl/5.10.0/Video/Xine/Stream.pm line 329.<br><br>Só pra confirmar com a galera, dependendo faço um bug report. Uma coisa estranha que achei é que procurando essa função no google, achei algo sobre este módulo, no próprio CPAN, mas o código parece estar em C:<br>
<br><a href="http://cpansearch.perl.org/src/STEPHEN/Video-Xine-0.18/lib/Video/Xine.xs">http://cpansearch.perl.org/src/STEPHEN/Video-Xine-0.18/lib/Video/Xine.xs</a><br><br>Tive a impressão de que aí parece funcionar, mas não sei, não conheço C direito.<br>
<br>Se alguém souber de uma luz que resolva o problema, seria bem-vindo, to pensando nisso agora, de repente essa função é da libxine (que é para C ??) e em algum ponto existe essa interface entre o libxine e o perl, deve ser aí que se deve definir a função, usando a função original do libxine.<br>
<br>Bom, não sei, peço a luz dos monges =) <br><br>Abraços<br><br><br><br>