Mercurial > pidgin

comparison plugins/perl/perl-handlers.c @ 6924:d69bc8debac7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 7471] Bye bye, debug statements. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Wed, 24 Sep 2003 01:00:06 +0000
parents 11d05ddf30a3
children 3ec6aac0ff67
comparison
equal deleted inserted replaced
6923:ae36c4d693f9 6924:d69bc8debac7
157 case GAIM_TYPE_UINT64: 157 case GAIM_TYPE_UINT64:
158 *((guint64 *)copy_args[i]) = SvUV(sv_args[i]); 158 *((guint64 *)copy_args[i]) = SvUV(sv_args[i]);
159 break; 159 break;
160 160
161 case GAIM_TYPE_STRING: 161 case GAIM_TYPE_STRING:
162 gaim_debug_misc("perl", "Copying over %s\n",
163 *((char **)copy_args[i]));
164 g_free(*((char **)copy_args[i])); 162 g_free(*((char **)copy_args[i]));
165 *((char **)copy_args[i]) = g_strdup(SvPV(sv_args[i], na)); 163 *((char **)copy_args[i]) = g_strdup(SvPV(sv_args[i], na));
166 gaim_debug_misc("perl", "New value: %s\n",
167 *((char **)copy_args[i]));
168 break; 164 break;
169 165
170 case GAIM_TYPE_POINTER: 166 case GAIM_TYPE_POINTER:
171 *((void **)copy_args[i]) = (void *)SvIV(sv_args[i]); 167 *((void **)copy_args[i]) = (void *)SvIV(sv_args[i]);
172 break; 168 break;