¿Por qué necesito localizar $ @ antes de usar eval?

Question

Soy consciente del hecho de que $@ es una variable global, todavía no puedo entender por qué necesito localizarlo antes de usar eval:

Por ejemplo:

eval { SOME_FUNC_THAT_MAY_DIE(); }; 
if ($@) { 
    print "An error occured!\n"; 
} 

La única posible Lo que se me ocurre es que si algún manejador de señales llama al die al mismo tiempo que intento leer $@, ¿qué es lo que me falta aquí?

Answer 1

La razón para decir local $@ antes de llamar eval es evitar pisar a su interlocutor de $@. Es grosero para una subrutina alterar cualquier variable global (a menos que sea uno de los propósitos declarados de la subrutina). Esto no es realmente un problema con el código de nivel superior (no dentro de una subrutina).

Además, en los más antiguos de Perl, cualquier eval llamada durante la destrucción de objetos habría clobber lo global $@ (si el objeto estaba siendo destruido debido a una excepción estaba siendo arrojado desde un bloque de eval) a menos $@ fue localizado por primera vez. Esto fue fixed in 5.14.0, pero muchas personas aún ejecutan Perls más antiguas.

Answer 2

La documentación del módulo Try::Tiny da la razón (así como proporcionar una alternativa):

Cuando se ejecuta un bloque eval y tiene éxito, $ @ se borrará, potencialmente clobbering un error que se recibe actualmente atrapado Esto provoca una acción a distancia, borrando los errores previos que su interlocutor aún no haya manejado. $ @ debe estar correctamente localizado antes de invocar eval para evitar este problema. Más específicamente, $ @ se destruye al principio de la evaluación, lo que también hace que sea imposible capturar el error anterior antes de morir (por ejemplo, al hacer objetos de excepción con pilas de errores).