diff -r 936d7ef5cece -r a38cbb35eecf libpurple/plugins/perl/common/PluginPref.xs
--- 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)