1 #include "EXTERN.h"
2 #include "perl.h"
3 
4 #define NO_XSLOCKS
5 #include "XSUB.h"
6 
throws_exception(int throw_e)7 static void throws_exception(int throw_e)
8 {
9   if (throw_e)
10     croak("boo\n");
11 }
12 
13 /* Don't give this the same name as execution() in ext/Devel/PPPort/module3.c
14    as otherwise building entirely statically will cause a test to fail, as
15    PPPort's execption() gets used in place of this one.  */
16 
apitest_exception(int throw_e)17 int apitest_exception(int throw_e)
18 {
19   dTHR;
20   dXCPT;
21   SV *caught = get_sv("XS::APItest::exception_caught", 0);
22 
23   XCPT_TRY_START {
24     throws_exception(throw_e);
25   } XCPT_TRY_END
26 
27   XCPT_CATCH
28   {
29     sv_setiv(caught, 1);
30     XCPT_RETHROW;
31   }
32 
33   sv_setiv(caught, 0);
34 
35   return 42;
36 }
37 
38