Exception objects in BEGIN, UNITCHECK etc?

Hi,

$ perl -le 'eval q/BEGIN {die \"huhu"}/; print ref($@)?${$@}:$@'
SCALAR(0x6267b0)BEGIN failed--compilation aborted at (eval 1) line 1.

$ perl -le 'eval q/UNITCHECK {die \"huhu"}/; print ref($@)?${$@}:$@'
SCALAR(0x6267c0)UNITCHECK failed--call queue aborted.

That seems to be a bug. I'd expect the string "huhu\n" in both cases.

Torsten Förtsch

-- 
Need professional modperl support? Hire me! (http://foertsch.name)

Like fantasy? http://kabatinte.net

• Exception objects in BEGIN, UNITCHECK etc? by Torsten Förtsch
• Re: Exception objects in BEGIN, UNITCHECK etc? by Zefram
• Re: Exception objects in BEGIN, UNITCHECK etc? by Torsten Förtsch
• Re: Exception objects in BEGIN, UNITCHECK etc? by Torsten Förtsch
• Re: Exception objects in BEGIN, UNITCHECK etc? by Nicholas Clark