comparison: libpurple/plugins/perl/common/PluginPref.xs
libpurple/plugins/perl/common/PluginPref.xs
- changeset 23980
- a38cbb35eecf
- parent 21641
- a0d410a35eb8
- child 23981
- 4dcc884ffee0
equal
deleted
inserted
replaced
| 23979:936d7ef5cece | 23980:a38cbb35eecf |
|---|---|
| 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 |
