[perl #123398] Segmentation failed on calling method of undef with use warnings FATAL => 'all'

On Wed Dec 10 08:47:43 2014, sprout wrote:
> 
> Either we need to check for a fatal warning and disable it temporarily
> (in die_unwind), or when turning the warning into an error first make
> check that !(PL_in_eval & EVAL_KEEPERR) (in the warnings code itself).

I've attached a patch to do the latter. Comments?

And how can I write a test for this that fails nicely? Some ulimit hackery?

---
via perlbug:  queue: perl5 status: open
https://rt.perl.org/Ticket/Display.html?id=123398

• [perl #123398] Segmentation failed on calling method of undef with use warnings FATAL => 'all' by l.mai@web.de via RT