Make substr = $utf8 call get-magic once
[perl.git] / ext / XS-APItest / exception.c
1 #include "EXTERN.h"
2 #include "perl.h"
3
4 #define NO_XSLOCKS
5 #include "XSUB.h"
6
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    
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