Commit | Line | Data |
adfe19db |
1 | /******************************************************************************* |
2 | * |
3 | * Perl/Pollution/Portability |
4 | * |
5 | ******************************************************************************** |
6 | * |
c1a049cb |
7 | * $Revision: 10 $ |
adfe19db |
8 | * $Author: mhx $ |
c1a049cb |
9 | * $Date: 2008/01/04 10:47:38 +0100 $ |
adfe19db |
10 | * |
11 | ******************************************************************************** |
12 | * |
c1a049cb |
13 | * Version 3.x, Copyright (C) 2004-2008, Marcus Holland-Moritz. |
adfe19db |
14 | * Version 2.x, Copyright (C) 2001, Paul Marquess. |
15 | * Version 1.x, Copyright (C) 1999, Kenneth Albanowski. |
16 | * |
17 | * This program is free software; you can redistribute it and/or |
18 | * modify it under the same terms as Perl itself. |
19 | * |
20 | *******************************************************************************/ |
0a7c7f4f |
21 | |
22 | #include "EXTERN.h" |
23 | #include "perl.h" |
24 | #include "XSUB.h" |
25 | |
cd266515 |
26 | #ifndef PATCHLEVEL |
27 | #include "patchlevel.h" |
28 | #endif |
29 | |
0a7c7f4f |
30 | #define NEED_newCONSTSUB_GLOBAL |
0d0f8426 |
31 | #define NEED_PL_signals_GLOBAL |
0a7c7f4f |
32 | #include "ppport.h" |
33 | |
adfe19db |
34 | void call_newCONSTSUB_2(void) |
0a7c7f4f |
35 | { |
adfe19db |
36 | newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_2", newSViv(2)); |
0a7c7f4f |
37 | } |
0d0f8426 |
38 | |
39 | U32 get_PL_signals_2(void) |
40 | { |
41 | return PL_signals; |
42 | } |