This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to Devel::PPPort 3.07
[perl5.git] / ext / Devel / PPPort / parts / inc / variables
CommitLineData
0d0f8426
MHM
1################################################################################
2##
3## $Revision: 4 $
4## $Author: mhx $
5## $Date: 2006/01/14 18:07:58 +0100 $
6##
7################################################################################
8##
9## Version 3.x, Copyright (C) 2004-2006, Marcus Holland-Moritz.
10## Version 2.x, Copyright (C) 2001, Paul Marquess.
11## Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
12##
13## This program is free software; you can redistribute it and/or
14## modify it under the same terms as Perl itself.
15##
16################################################################################
17
18=provides
19
20PL_signals
21PERL_SIGNALS_UNSAFE_FLAG
22
23=implementation
24
25#ifndef PERL_SIGNALS_UNSAFE_FLAG
26
27#define PERL_SIGNALS_UNSAFE_FLAG 0x0001
28
29__NEED_VAR__ U32 PL_signals = PERL_SIGNALS_UNSAFE_FLAG;
30
31#endif
32
33=xsinit
34
35#define NEED_PL_signals
36
37=xsmisc
38
39U32 get_PL_signals_1(void)
40{
41 return PL_signals;
42}
43
44extern U32 get_PL_signals_2(void);
45extern U32 get_PL_signals_3(void);
46
47=xsubs
48
49int
50compare_PL_signals()
51 CODE:
52 {
53 U32 ref = get_PL_signals_1();
54 RETVAL = ref == get_PL_signals_2() && ref == get_PL_signals_3();
55 }
56 OUTPUT:
57 RETVAL
58
59=tests plan => 1
60
61ok(Devel::PPPort::compare_PL_signals());
62