Mercurial > pidgin
diff libpurple/plugins/perl/common/PluginPref.xs @ 23653:6f47135f5378
Some cleanup and a couple leak fixes.
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Thu, 07 Aug 2008 01:41:44 +0000 |
parents | ca1d23ae3a21 |
children | b0812ce0ec17 |
line wrap: on
line diff
--- a/libpurple/plugins/perl/common/PluginPref.xs Thu Aug 07 01:08:37 2008 +0000 +++ b/libpurple/plugins/perl/common/PluginPref.xs Thu Aug 07 01:41:44 2008 +0000 @@ -62,7 +62,7 @@ const char *label # Do the appropriate conversion based on the perl type specified. # Currently only Strings and Ints will work. - gpointer choice = (SvPOKp($arg) ? SvPV($arg, PL_na) : (SvIOKp($arg) ? GINT_TO_POINTER(SvIV($arg)) : NULL)); + gpointer choice = (SvPOKp($arg) ? SvPVutf8_nolen($arg) : (SvIOKp($arg) ? GINT_TO_POINTER(SvIV($arg)) : NULL)); void purple_plugin_pref_destroy(pref)