Mercurial > pidgin.yaz
comparison libpurple/plugins/perl/common/PluginPref.xs @ 23710: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 |
comparison
equal
deleted
inserted
replaced
23709:27eacd38c721 | 23710:6f47135f5378 |
---|---|
60 purple_plugin_pref_add_choice(pref, label, choice) | 60 purple_plugin_pref_add_choice(pref, label, choice) |
61 Purple::PluginPref pref | 61 Purple::PluginPref pref |
62 const char *label | 62 const char *label |
63 # Do the appropriate conversion based on the perl type specified. | 63 # Do the appropriate conversion based on the perl type specified. |
64 # Currently only Strings and Ints will work. | 64 # Currently only Strings and Ints will work. |
65 gpointer choice = (SvPOKp($arg) ? SvPV($arg, PL_na) : (SvIOKp($arg) ? GINT_TO_POINTER(SvIV($arg)) : NULL)); | 65 gpointer choice = (SvPOKp($arg) ? SvPVutf8_nolen($arg) : (SvIOKp($arg) ? GINT_TO_POINTER(SvIV($arg)) : NULL)); |
66 | 66 |
67 void | 67 void |
68 purple_plugin_pref_destroy(pref) | 68 purple_plugin_pref_destroy(pref) |
69 Purple::PluginPref pref | 69 Purple::PluginPref pref |
70 | 70 |