t/exception.t

   1 use strict;
   2 use warnings;
   3 use Test::More tests => 2;
   4
   5 use B::Hooks::EndOfScope;
   6
   7 eval q[
   8     sub foo {
   9         BEGIN {
  10             on_scope_end { die 'bar' };
  11         }
  12     }
  13 ];
  14
  15 like($@, qr/^bar/);
  16 pass('no segfault');