diff options
Diffstat (limited to 'gnu/usr.bin/perl/ext/B/O.pm')
| -rw-r--r-- | gnu/usr.bin/perl/ext/B/O.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/ext/B/O.pm b/gnu/usr.bin/perl/ext/B/O.pm index 352f8d42069..2ef91edbd92 100644 --- a/gnu/usr.bin/perl/ext/B/O.pm +++ b/gnu/usr.bin/perl/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; |