[p5sagit/B-Hooks-EndOfScope-WithFallback.git] / t / exception.t

use strict;
use warnings;
use Test::More tests => 2;

use B::Hooks::EndOfScope;

eval q[
    sub foo {
        BEGIN {
            on_scope_end { die 'bar' };
        }
    }
];

like($@, qr/^bar/);
pass('no segfault');
Commit	Line	Data
58b07c77	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');