Commit | Line | Data |
---|---|---|
adfe19db MHM |
1 | /******************************************************************************* |
2 | * | |
3 | * Perl/Pollution/Portability | |
4 | * | |
5 | ******************************************************************************** | |
6 | * | |
b2049988 | 7 | * Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz. |
adfe19db MHM |
8 | * Version 2.x, Copyright (C) 2001, Paul Marquess. |
9 | * Version 1.x, Copyright (C) 1999, Kenneth Albanowski. | |
10 | * | |
11 | * This program is free software; you can redistribute it and/or | |
12 | * modify it under the same terms as Perl itself. | |
13 | * | |
14 | *******************************************************************************/ | |
0a7c7f4f JH |
15 | |
16 | #include "EXTERN.h" | |
17 | #include "perl.h" | |
18 | #include "XSUB.h" | |
19 | ||
cd266515 MHM |
20 | #ifndef PATCHLEVEL |
21 | #include "patchlevel.h" | |
22 | #endif | |
23 | ||
0a7c7f4f | 24 | #define NEED_newCONSTSUB_GLOBAL |
0d0f8426 | 25 | #define NEED_PL_signals_GLOBAL |
c01be2ce MHM |
26 | #define NEED_PL_parser |
27 | #define DPPP_PL_parser_NO_DUMMY | |
0a7c7f4f JH |
28 | #include "ppport.h" |
29 | ||
adfe19db | 30 | void call_newCONSTSUB_2(void) |
0a7c7f4f | 31 | { |
adfe19db | 32 | newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_2", newSViv(2)); |
0a7c7f4f | 33 | } |
0d0f8426 MHM |
34 | |
35 | U32 get_PL_signals_2(void) | |
36 | { | |
37 | return PL_signals; | |
38 | } | |
c01be2ce MHM |
39 | |
40 | int no_dummy_parser_vars(int check) | |
41 | { | |
42 | if (check == 0 || PL_parser) | |
43 | { | |
44 | line_t volatile my_copline; | |
45 | line_t volatile *my_p_copline; | |
46 | my_copline = PL_copline; | |
47 | my_p_copline = &PL_copline; | |
48 | PL_copline = my_copline; | |
49 | PL_copline = *my_p_copline; | |
50 | return 1; | |
51 | } | |
52 | ||
53 | return 0; | |
54 | } |