diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-02-25 13:57:30 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-02-25 13:57:30 -0800 |
| commit | a7817fa3bc92202fa7b11fd83717c607b65b350e (patch) | |
| tree | c63b928be27edbf78d2582c376479775b7c00b54 | |
| parent | 841c0ede23566f9d4de8e23339bb9e9c45daa920 (diff) | |
| download | perl-a7817fa3bc92202fa7b11fd83717c607b65b350e.tar.gz | |
arybase.xs: Wrap PL_check safely
| -rw-r--r-- | ext/arybase/arybase.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/arybase/arybase.xs b/ext/arybase/arybase.xs index 68b9cf99cc..cde9bb8a84 100644 --- a/ext/arybase/arybase.xs +++ b/ext/arybase/arybase.xs @@ -405,8 +405,8 @@ BOOT: #ifdef USE_ITHREADS MUTEX_INIT(&ab_op_map_mutex); #endif -#define check(uc,lc,ck) ab_old_ck_##lc = PL_check[OP_##uc]; \ - PL_check[OP_##uc] = ab_ck_##ck +#define check(uc,lc,ck) \ + wrap_op_checker(OP_##uc, ab_ck_##ck, &ab_old_ck_##lc) check(SASSIGN, sassign, sassign); check(AASSIGN, aassign, aassign); check(AELEM, aelem, base); |