1 /*******************************************************************************
3 * Perl/Pollution/Portability
5 ********************************************************************************
7 * Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
8 * Version 2.x, Copyright (C) 2001, Paul Marquess.
9 * Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
11 * This program is free software; you can redistribute it and/or
12 * modify it under the same terms as Perl itself.
14 *******************************************************************************/
19 #define NEED_PL_parser
25 static void throws_exception(int throw_e)
31 int exception(int throw_e)
35 SV *caught = get_sv("Devel::PPPort::exception_caught", 0);
38 throws_exception(throw_e);
52 void call_newCONSTSUB_3(void)
54 newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_3", newSViv(3));
57 U32 get_PL_signals_3(void)
62 int dummy_parser_warning(void)
64 char * volatile my_bufptr;
65 char * volatile *my_p_bufptr;
66 my_bufptr = PL_bufptr;
67 my_p_bufptr = &PL_bufptr;
68 PL_bufptr = my_bufptr;
69 PL_bufptr = *my_p_bufptr;
70 return &PL_bufptr != NULL;