diff -r 256604cbbe34 -r 2897add11757 libpurple/plugins/perl/common/module.h
--- a/libpurple/plugins/perl/common/module.h	Sun May 11 22:22:03 2014 +0200
+++ b/libpurple/plugins/perl/common/module.h	Mon May 12 21:13:35 2014 +0200
@@ -71,6 +71,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;