From: Vincent Pit Date: Sat, 11 Aug 2012 10:27:57 +0000 (+0200) Subject: Prettify the default no-op callback X-Git-Tag: v0.51~7 X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=commitdiff_plain;h=217c5e03d394382721f9f4365c3e1f146847f81e Prettify the default no-op callback --- diff --git a/Magic.xs b/Magic.xs index e45baea..14eab61 100644 --- a/Magic.xs +++ b/Magic.xs @@ -1189,6 +1189,8 @@ STATIC int vmg_cb_call(pTHX_ SV *cb, unsigned int flags, SV *sv, ...) { #define vmg_cb_call3(I, OI, S, A1, A2, A3) \ vmg_cb_call(aTHX_ (I), VMG_CB_FLAGS((OI), 3), (S), (A1), (A2), (A3)) +/* ... Default no-op magic callback ........................................ */ + STATIC int vmg_svt_default_noop(pTHX_ SV *sv, MAGIC *mg) { return 0; }