--- a/libpurple/plugins/perl/common/module.h Sat May 10 03:56:36 2014 +0530 +++ b/libpurple/plugins/perl/common/module.h Thu May 15 10:16:32 2014 +0530 @@ -81,6 +81,17 @@ #include "whiteboard.h" #include "xmlnode.h" +#ifdef __COVERITY__ + +/* avoid extra_comma false positives */ +#undef SvPOK_only +#define SvPOK_only(sv) { \ + SvFLAGS(sv) &= ~(SVf_OK | SVf_IVisUV | SVf_UTF8); \ + SvFLAGS(sv) |= (SVf_POK | SVp_POK); \ + } + +#endif /* __COVERITY__ */ + /* account.h */ typedef PurpleAccount * Purple__Account; typedef PurpleAccountOption * Purple__Account__Option;