Mercurial > pidgin
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 23652:27eacd38c721 | 23653: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 |