Commit | Line | Data |
adfe19db |
1 | /******************************************************************************* |
2 | * |
3 | * Perl/Pollution/Portability |
4 | * |
5 | ******************************************************************************** |
6 | * |
9132e1a3 |
7 | * $Revision: 6 $ |
adfe19db |
8 | * $Author: mhx $ |
9132e1a3 |
9 | * $Date: 2005/01/31 08:10:50 +0100 $ |
adfe19db |
10 | * |
11 | ******************************************************************************** |
12 | * |
9132e1a3 |
13 | * Version 3.x, Copyright (C) 2004-2005, 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 |
31 | #include "ppport.h" |
32 | |
adfe19db |
33 | void call_newCONSTSUB_2(void) |
0a7c7f4f |
34 | { |
adfe19db |
35 | newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_2", newSViv(2)); |
0a7c7f4f |
36 | } |