File: GlobalDestruction.xs

package info (click to toggle)
libdevel-globaldestruction-perl 0.06-1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 272 kB
  • sloc: perl: 47; makefile: 2
file content (17 lines) | stat: -rw-r--r-- 268 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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