--- a/libpurple/plugins/perl/common/Cipher.xs Wed May 07 00:50:48 2014 +0200 +++ b/libpurple/plugins/perl/common/Cipher.xs Wed May 07 01:28:19 2014 +0200 @@ -75,6 +75,7 @@ XSRETURN_UNDEF; } SvCUR_set(digest, RETVAL); + /* coverity[extra_comma] */ SvPOK_only(digest); OUTPUT: RETVAL @@ -188,6 +189,7 @@ XSRETURN_UNDEF; } SvCUR_set(digest, RETVAL); + /* coverity[extra_comma] */ SvPOK_only(digest); OUTPUT: RETVAL @@ -210,6 +212,7 @@ XSRETURN_UNDEF; } SvCUR_set(digest_s, RETVAL); + /* coverity[extra_comma] */ SvPOK_only(digest_s); OUTPUT: RETVAL @@ -230,6 +233,7 @@ buff = (guchar *)SvGROW(output, datalen); RETVAL = purple_cipher_context_encrypt(context, data, datalen, buff, &outlen); if(outlen != 0) { + /* coverity[extra_comma] */ SvPOK_only(output); SvCUR_set(output, outlen); } else { @@ -254,6 +258,7 @@ buff = (guchar *)SvGROW(output, datalen); RETVAL = purple_cipher_context_decrypt(context, data, datalen, buff, &outlen); if(outlen != 0) { + /* coverity[extra_comma] */ SvPOK_only(output); SvCUR_set(output, outlen); } else {