Sophie: perl-B-Hooks-EndOfScope-0.08-3.fc13 noarch

perl-B-Hooks-EndOfScope-0.08-3.fc13.noarch.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

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');