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

#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
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()
f832e240	13	PROTOTYPE:
	14	CODE:
	15	RETVAL = PL_dirty;
	16	OUTPUT:
	17	RETVAL