Commit | Line | Data |
350bef65 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | BEGIN { |
5 | if ($ENV{DEVEL_GLOBALDESTRUCTION_PP_TEST}) { |
6 | unshift @INC, sub { |
7 | die 'no XS' if $_[1] eq 'Devel/GlobalDestruction/XS.pm'; |
8 | }; |
9 | } |
10 | } |
11 | |
12 | { |
13 | package Test::Scope::Guard; |
14 | sub new { my ($class, $code) = @_; bless [$code], $class; } |
15 | sub DESTROY { my $self = shift; $self->[0]->() } |
16 | } |
17 | |
18 | print "1..1\n"; |
19 | |
20 | our $alive = Test::Scope::Guard->new(sub { |
21 | require Devel::GlobalDestruction; |
22 | my $gd = Devel::GlobalDestruction::in_global_destruction(); |
23 | print(($gd ? '' : 'not ') . "ok 1 - global destruct detected when loaded during GD\n"); |
24 | exit($gd ? 0 : 1); |
25 | }); |
26 | |