<div>segue codigo exemplo...</div><div><br></div>use English;<div><br></div><div>...</div><div><div><span class="Apple-tab-span" style="white-space: pre; ">                </span>$midia-&gt;{&#39;erros&#39;}= [];<span class="Apple-tab-span" style="white-space: pre; ">                </span></div>

</div><div><span class="Apple-tab-span" style="white-space: pre; "><br></span></div><div><div><span class="Apple-tab-span" style="white-space:pre">                </span>eval{</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>$bytes = $midia-&gt;qqcoisa(); </div>

<div><span class="Apple-tab-span" style="white-space:pre">                </span>};</div><div><span class="Apple-tab-span" style="white-space:pre">                </span></div><div><span class="Apple-tab-span" style="white-space:pre">                </span>if($EVAL_ERROR){</div>

<div><span class="Apple-tab-span" style="white-space:pre">                        </span>print &quot;vou adicionar o $EVAL_ERROR aqui\n&quot;;</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>$erros+=1;</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>My::Logger::log(&quot;err&quot;,$EVAL_ERROR,$id);</div>

<div><span class="Apple-tab-span" style="white-space:pre">                        </span>push @{$midia-&gt;{&#39;erros&#39;}}, $EVAL_ERROR;</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>next; # esta dentro de um foreach</div>

<div><span class="Apple-tab-span" style="white-space:pre">                </span>}</div><div><br></div><div><br></div>Beleza, tudo parece bom, exceto que $EVAL_ERROR  simplesmente DESAPARECE depois do log(xxx);</div><div><br></div><div>

Eu revisei e esta funcao nao tem como alterar os parametros recebidos.</div><div><br></div><div>Existe algum problema ao ler multiplas vezes o erro de um eval???</div><div><br></div><div>Pode ser um problema de concorrencia entre multiplas threads (eu rodo isso dentro de um Test::Simple)? E é um problema deterministico.</div>

<div><br></div><div>Eu tive q pegar o erro na primeira linha dentro do IF... para mim isso é mazica... :/</div><div>&#39;</div><div>Ideias<br>-- <br>Tiago B. Peczenyj<br>Linux User #405772<br><br><a href="http://pacman.blog.br">http://pacman.blog.br</a><br>


</div>