Macro PL_warnhook 

macro_rules! PL_warnhook {
    ($my_perl:expr) => { ... };
}

PL_warnhook — PERLVAR(I, warnhook, SV*)