use strict;
use warnings;
-our $VERSION = '0.09';
+our $VERSION = '0.10';
use Sub::Exporter::Progressive -setup => {
exports => [ qw(in_global_destruction) ],
# try to load the xs version if it was compiled
#
elsif (eval {
- require XSLoader;
- XSLoader::load(__PACKAGE__, $VERSION);
+ require Devel::GlobalDestruction::XS;
+ no warnings 'once';
+ *in_global_destruction = \&Devel::GlobalDestruction::XS::in_global_destruction;
1;
}) {
# the eval already installed everything, nothing to do
}
else {
+ # internally, PL_main_start is nulled immediately before entering global destruction
+ # and we can use B to detect that. It will also be null before the main runloop starts,
+ # so we check install a CHECK if needed to detect that.
require B;
- eval 'sub in_global_destruction () { B::main_start()->isa(q[B::NULL]) }; 1'
+ my $started = !B::main_start()->isa(q[B::NULL]);
+ unless ($started) {
+ # work around 5.6 eval bug
+ eval '0 && $started; CHECK { $started = 1 }; 1'
+ or die $@;
+ }
+ eval '0 && $started; sub in_global_destruction () { $started && B::main_start()->isa(q[B::NULL]) }; 1'
or die $@;
}
=head1 NAME
-Devel::GlobalDestruction - Expose the flag which marks global
-destruction.
+Devel::GlobalDestruction - Provides function returning the equivalent of
+C<${^GLOBAL_PHASE} eq 'DESTRUCT'> for older perls.
=head1 SYNOPSIS
=item in_global_destruction
Returns true if the interpreter is in global destruction. In perl 5.14+, this
-returns C<${^GLOBAL_PHASE} eq 'DESTRUCT'>, and on earlier perls, it returns the
-current value of C<PL_dirty>.
+returns C<${^GLOBAL_PHASE} eq 'DESTRUCT'>, and on earlier perls, detects it using
+the value of C<PL_main_start> or C<PL_dirty>.
=back
Elizabeth Mattijsen E<lt>liz@dijkmat.nlE<gt>
+Greham Knop E<lt>haarg@haarg.orgE<gt>
+
=head1 COPYRIGHT
Copyright (c) 2008 Yuval Kogman. All rights reserved