X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mop.c;h=9945d187c2d5657b377b141b9b13abeb97ff44aa;hb=e3dcef7f581468b83fea67b9437c6e01ebf10543;hp=425cd4850ecde0f435b25875100eca95f7985af6;hpb=3ecaf6a072dbe632e5116216244922ec77bbd1a2;p=gitmo%2FClass-MOP.git diff --git a/mop.c b/mop.c index 425cd48..9945d18 100644 --- a/mop.c +++ b/mop.c @@ -3,10 +3,10 @@ void mop_call_xs (pTHX_ void (*subaddr) (pTHX_ CV *), CV *cv, SV **mark) { - dSP; - PUSHMARK(mark); - (*subaddr)(aTHX_ cv); - PUTBACK; + dSP; + PUSHMARK(mark); + (*subaddr)(aTHX_ cv); + PUTBACK; } #if PERL_VERSION >= 10