libpurple/plugins/perl/common/BuddyList.xs

changeset 23980
a38cbb35eecf
parent 21737
fa92350ed598
child 23983
586866581434
equal deleted inserted replaced
23979:936d7ef5cece 23980:a38cbb35eecf
360 t_GHash = g_hash_table_new(g_str_hash, g_str_equal); 360 t_GHash = g_hash_table_new(g_str_hash, g_str_equal);
361 361
362 for (t_HE = hv_iternext(t_HV); t_HE != NULL; t_HE = hv_iternext(t_HV) ) { 362 for (t_HE = hv_iternext(t_HV); t_HE != NULL; t_HE = hv_iternext(t_HV) ) {
363 t_key = hv_iterkey(t_HE, &len); 363 t_key = hv_iterkey(t_HE, &len);
364 t_SV = *hv_fetch(t_HV, t_key, len, 0); 364 t_SV = *hv_fetch(t_HV, t_key, len, 0);
365 t_value = SvPV(t_SV, PL_na); 365 t_value = SvPVutf8_nolen(t_SV);
366 366
367 g_hash_table_insert(t_GHash, t_key, t_value); 367 g_hash_table_insert(t_GHash, t_key, t_value);
368 } 368 }
369 369
370 RETVAL = purple_chat_new(account, alias, t_GHash); 370 RETVAL = purple_chat_new(account, alias, t_GHash);

mercurial