$Event::DIED isn't doing what I expected

<man>
If you do not want to continue looping after an error, you can do
something like this:

 $Event::DIED = sub { die &Event::verbose_exception_handler(@_) };
</man>

I did that and I get this trap message

Event: trapped error: <my_error/>
  in Event::timer=HASH(0x85b52dc) --
                at: 976126624.577258
              hard: ''
          interval: 15
                cb: 'CODE(0x85b2114)'
            cbtime: 976126624.583098
              desc: '?? foo:97'
             debug: ''
              prio: 4
         reentrant: 1
            repeat: 1
         max_cb_tm: 1
Event: '?? foo:97' died and then $Event::DIED died with: 1 at foo line 86.

but my loop() seems to keep going.  What am I missing :(

paul

--
Paul Sharpe                   Tel: +44 (20) 7407 5557
Miraclefish Ltd.              Fax: +44 (20) 7378 8711
Studio 12                     mailto:[email protected]
37 Tanner Street
London SE1 3LF
UNITED KINGDOM