libpurple/plugins/perl/perl-handlers.c

branch
string-comparison-r2
changeset 38259
c593fc9f5438
parent 38258
9a6551eba09c
equal deleted inserted replaced
38258:9a6551eba09c 38259:c593fc9f5438
365 *((guint64 *)copy_args[i]) = SvUV(sv_args[i]); 365 *((guint64 *)copy_args[i]) = SvUV(sv_args[i]);
366 break; 366 break;
367 367
368 case PURPLE_TYPE_STRING: 368 case PURPLE_TYPE_STRING:
369 if (!*((char **)copy_args[i]) || !SvPVX(sv_args[i]) || 369 if (!*((char **)copy_args[i]) || !SvPVX(sv_args[i]) ||
370 strcmp(*((char **)copy_args[i]), SvPVX(sv_args[i]))) { 370 !purple_strequal(*((char **)copy_args[i]), SvPVX(sv_args[i]))) {
371 g_free(*((char **)copy_args[i])); 371 g_free(*((char **)copy_args[i]));
372 *((char **)copy_args[i]) = 372 *((char **)copy_args[i]) =
373 g_strdup(SvPVutf8_nolen(sv_args[i])); 373 g_strdup(SvPVutf8_nolen(sv_args[i]));
374 } 374 }
375 /* Clean up sv_args[i] - we're done with it */ 375 /* Clean up sv_args[i] - we're done with it */

mercurial