ah... o syslog faz isso, que eu uso por debaixo dos panos<div><br></div><div><div><br></div><div>use Sys::Syslog;</div><div><br></div><div>openlog 'expurgo',"pid,ndelay,nowait","local0";</div><div>
<br></div><div>eval { die 'ops';};</div><div><br></div><div>print $@;</div><div><br></div><div>syslog "info",$@;</div><div><br></div><div>print "\no syslog esta apagando essa coisa -> '" .$@ . "'\n";</div>
<div><br></div><div>Q puxa :/</div><br><div class="gmail_quote">2010/9/21 Eden Cardim <span dir="ltr"><<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
2010/9/21 Tiago Peczenyj <<a href="mailto:tiago.peczenyj@gmail.com">tiago.peczenyj@gmail.com</a>>:<br>
<div><div></div><div class="h5">> segue codigo exemplo...<br>
> use English;<br>
> ...<br>
> $midia->{'erros'}= [];<br>
> eval{<br>
> $bytes = $midia->qqcoisa();<br>
> };<br>
> if($EVAL_ERROR){<br>
> print "vou adicionar o $EVAL_ERROR aqui\n";<br>
> $erros+=1;<br>
> My::Logger::log("err",$EVAL_ERROR,$id);<br>
> push @{$midia->{'erros'}}, $EVAL_ERROR;<br>
> next; # esta dentro de um foreach<br>
> }<br>
><br>
> Beleza, tudo parece bom, exceto que $EVAL_ERROR simplesmente DESAPARECE<br>
> depois do log(xxx);<br>
> Eu revisei e esta funcao nao tem como alterar os parametros recebidos.<br>
> Existe algum problema ao ler multiplas vezes o erro de um eval???<br>
> Pode ser um problema de concorrencia entre multiplas threads (eu rodo isso<br>
> dentro de um Test::Simple)? E é um problema deterministico.<br>
> Eu tive q pegar o erro na primeira linha dentro do IF... para mim isso é<br>
> mazica... :/<br>
<br>
</div></div>E é uma mágica irritante. Em perldoc -f eval: "...If there was no<br>
error, $@ is guaranteed to be the empty string..."<br>
ou seja, a função log() provavelmente está rodando um eval<br>
bem-sucedido lá dentro, o que está colocando a string vazia em<br>
$EVAL_ERROR. Para contornar o problema, atribua o erro para outra<br>
variável logo após o eval original, e use essa variável invés da<br>
variável padrão de erro.<br>
<br>
--<br>
<font color="#888888"> Eden Cardim Need help with your Catalyst or DBIx::Class project?<br>
Code Monkey <a href="http://www.shadowcat.co.uk/catalyst/" target="_blank">http://www.shadowcat.co.uk/catalyst/</a><br>
Shadowcat Systems Ltd. Want a managed development or deployment platform?<br>
<a href="http://blog.edencardim.com/" target="_blank">http://blog.edencardim.com/</a> <a href="http://www.shadowcat.co.uk/servers/" target="_blank">http://www.shadowcat.co.uk/servers/</a><br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</font></blockquote></div><br><br clear="all"><br>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br><br><a href="http://pacman.blog.br">http://pacman.blog.br</a><br>
</div>