Commit | Line | Data |
---|---|---|
a91e8a78 | 1 | #include "EXTERN.h" |
2 | #include "perl.h" | |
3 | #include "XSUB.h" | |
4 | ||
5 | #include "ppport.h" | |
6 | ||
7 | MODULE = Devel::GlobalDestruction PACKAGE = Devel::GlobalDestruction | |
8 | ||
9 | PROTOTYPES: ENABLE | |
10 | ||
11 | I32 | |
12 | in_global_destruction() | |
13 | PROTOTYPE: | |
14 | CODE: | |
15 | RETVAL = PL_dirty; | |
16 | OUTPUT: | |
17 | RETVAL |