| 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 | |