X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FClass-C3-XS.git;a=blobdiff_plain;f=XS.xs;fp=XS.xs;h=db14fd525ecfbec52547bb2c68061a18a3c360ed;hp=7135ea8f892c17c0c9e1654917b370c4045f1554;hb=6ed110b7fc5eb75d2ec95703dbbe7cba0f03b6dc;hpb=32b8c8e22db4df8752650e4ab463057f6e98c43d diff --git a/XS.xs b/XS.xs index 7135ea8..db14fd5 100644 --- a/XS.xs +++ b/XS.xs @@ -23,15 +23,15 @@ #ifndef SvREFCNT_inc # ifdef PERL_USE_GCC_BRACE_GROUPS -# define SvREFCNT_inc(sv) \ - ({ \ - SV * const _sv = (SV*)(sv); \ - if (_sv) \ - (SvREFCNT(_sv))++; \ - _sv; \ +# define SvREFCNT_inc(sv) \ + ({ \ + SV * const _sv = (SV*)(sv); \ + if (_sv) \ + (SvREFCNT(_sv))++; \ + _sv; \ }) # else -# define SvREFCNT_inc(sv) \ +# define SvREFCNT_inc(sv) \ ((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL) # endif #endif @@ -633,7 +633,7 @@ XS(XS_Class_C3_XS_calc_mdt) XSRETURN_EMPTY; } -MODULE = Class::C3::XS PACKAGE = Class::C3::XS +MODULE = Class::C3::XS PACKAGE = Class::C3::XS PROTOTYPES: DISABLED