libpurple/plugins/perl/common/module.h

branch
soc.2013.gobjectification.plugins
changeset 37145
8826f95514fd
parent 37144
8b63b9948107
parent 36031
9eb8f52893d0
child 37160
8300c06145d8
--- 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;

mercurial