# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1064365616 0
# Node ID 3ec6aac0ff67f72a9df6c2e8f0750f01835eb8d0
# Parent  d69bc8debac7bdad3684d48be20c8f756d7b5c17
[gaim-migrate @ 7472]
Don't free our string if it's the same one we're going to set. Oh yes, and
modifying params in signal callbacks now works. The monkeys will be
pleased.

committer: Tailor Script <tailor@pidgin.im>

diff -r d69bc8debac7 -r 3ec6aac0ff67 plugins/perl/perl-handlers.c
--- a/plugins/perl/perl-handlers.c	Wed Sep 24 01:00:06 2003 +0000
+++ b/plugins/perl/perl-handlers.c	Wed Sep 24 01:06:56 2003 +0000
@@ -159,8 +159,12 @@
 					break;
 
 				case GAIM_TYPE_STRING:
-					g_free(*((char **)copy_args[i]));
-					*((char **)copy_args[i]) = g_strdup(SvPV(sv_args[i], na));
+					if (strcmp(*((char **)copy_args[i]), SvPVX(sv_args[i])))
+					{
+						g_free(*((char **)copy_args[i]));
+						*((char **)copy_args[i]) =
+							g_strdup(SvPV(sv_args[i], na));
+					}
 					break;
 
 				case GAIM_TYPE_POINTER: