--- a/libpurple/plugins/perl/perl-handlers.c Thu Mar 23 21:01:15 2017 +0300 +++ b/libpurple/plugins/perl/perl-handlers.c Fri Mar 24 02:23:46 2017 +0300 @@ -367,7 +367,7 @@ case PURPLE_TYPE_STRING: if (!*((char **)copy_args[i]) || !SvPVX(sv_args[i]) || - strcmp(*((char **)copy_args[i]), SvPVX(sv_args[i]))) { + !purple_strequal(*((char **)copy_args[i]), SvPVX(sv_args[i]))) { g_free(*((char **)copy_args[i])); *((char **)copy_args[i]) = g_strdup(SvPVutf8_nolen(sv_args[i]));