Mercurial > pidgin3 / file diff

--- a/libpurple/plugins/perl/common/Cipher.xs	Sat Sep 28 23:07:35 2013 -0700
+++ b/libpurple/plugins/perl/common/Cipher.xs	Fri Oct 04 11:51:07 2013 +0200
@@ -67,7 +67,7 @@
 		size_t max_digest_len = 100;
 	CODE:
 		data = (guchar *)SvPV(data_sv, data_len);
-		SvUPGRADE(digest, SVt_PV);
+		SvUPGRADE_common(digest, SVt_PV);
 		buff = (guchar *)SvGROW(digest, max_digest_len);
 		digest_len = purple_cipher_digest_region(name, data, data_len, buff, max_digest_len);
 		if(digest_len == -1) {
@@ -182,7 +182,7 @@
 		size_t digest_size;
 	CODE:
 		digest_size = purple_cipher_context_get_digest_size(context);
-		SvUPGRADE(digest, SVt_PV);
+		SvUPGRADE_common(digest, SVt_PV);
 		buff = (guchar *)SvGROW(digest, digest_size);
 		if (purple_cipher_context_digest(context, buff, digest_size)) {
 			SvCUR_set(digest, digest_size);
@@ -205,7 +205,7 @@
 	CODE:
 		digest_size = purple_cipher_context_get_digest_size(context);
 		str_len = 2 * digest_size;
-		SvUPGRADE(digest_s, SVt_PV);
+		SvUPGRADE_common(digest_s, SVt_PV);
 		buff = SvGROW(digest_s, str_len + 1);
 		if (purple_cipher_context_digest_to_str(context, buff, str_len + 1)) {
 			SvCUR_set(digest_s, str_len);
@@ -231,7 +231,7 @@
 	CODE:
 		data = (guchar *)SvPV(input, input_len);
 		output_len = input_len + purple_cipher_context_get_block_size(context);
-		SvUPGRADE(output, SVt_PV);
+		SvUPGRADE_common(output, SVt_PV);
 		buff = (guchar *)SvGROW(output, output_len);
 		ret = purple_cipher_context_encrypt(context, data, input_len, buff, output_len);
 		if (ret >= 0) {
@@ -258,7 +258,7 @@
 	CODE:
 		data = (guchar *)SvPV(input, input_len);
 		output_len = input_len + purple_cipher_context_get_block_size(context);
-		SvUPGRADE(output, SVt_PV);
+		SvUPGRADE_common(output, SVt_PV);
 		buff = (guchar *)SvGROW(output, output_len);
 		ret = purple_cipher_context_decrypt(context, data, input_len, buff, output_len);
 		if (ret >= 0) {