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