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

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

MODULE = Devel::GlobalDestruction::XS PACKAGE = Devel::GlobalDestruction::XS

PROTOTYPES: ENABLE

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