Devel::GlobalDestruction

[p5sagit/Devel-GlobalDestruction.git] / GlobalDestruction.xs

diff --git a/GlobalDestruction.xs b/GlobalDestruction.xs
new file mode 100644 (file)
index 0000000..900edf3
--- /dev/null
+++ b/GlobalDestruction.xs
@@ -0,0 +1,17 @@
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+#include "ppport.h"
+
+MODULE = Devel::GlobalDestruction PACKAGE = Devel::GlobalDestruction
+
+PROTOTYPES: ENABLE
+
+I32
+in_global_destruction()
+       PROTOTYPE:
+       CODE:
+               RETVAL = PL_dirty;
+       OUTPUT:
+               RETVAL