diff options
Diffstat (limited to 'ext/B/O.pm')
| -rw-r--r-- | ext/B/O.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/B/O.pm b/ext/B/O.pm index 352f8d4206..2ef91edbd9 100644 --- a/ext/B/O.pm +++ b/ext/B/O.pm @@ -1,5 +1,5 @@ package O; -use B qw(minus_c); +use B qw(minus_c save_BEGINs); use Carp; sub import { @@ -11,6 +11,7 @@ sub import { my $compilesub = &{"B::${backend}::compile"}(@options); if (ref($compilesub) eq "CODE") { minus_c; + save_BEGINs; eval 'CHECK { &$compilesub() }'; } else { die $compilesub; |