# HG changeset patch
# User Daniel Atallah <daniel.atallah@gmail.com>
# Date 1218073596 0
# Node ID b0812ce0ec17c5107e7500fd62f1de0f3ceb3692
# Parent  6f47135f5378a734da39a94664561701667dc80f
Patch from John Hanauer to enable formatted string entry field in perl plugins.
Fixes #6506.

diff -r 6f47135f5378 -r b0812ce0ec17 COPYRIGHT
--- a/COPYRIGHT	Thu Aug 07 01:41:44 2008 +0000
+++ b/COPYRIGHT	Thu Aug 07 01:46:36 2008 +0000
@@ -162,6 +162,7 @@
 Christian Hammond
 Erick Hamness
 Fred Hampton
+John Hanauer
 Phil Hannent
 Casey Harkins
 Andy Harrison
diff -r 6f47135f5378 -r b0812ce0ec17 libpurple/plugins/perl/common/PluginPref.xs
--- a/libpurple/plugins/perl/common/PluginPref.xs	Thu Aug 07 01:41:44 2008 +0000
+++ b/libpurple/plugins/perl/common/PluginPref.xs	Thu Aug 07 01:46:36 2008 +0000
@@ -176,5 +176,7 @@
 		gpp_type = PURPLE_PLUGIN_PREF_CHOICE;
 	} else if (type == 2) {
 		gpp_type = PURPLE_PLUGIN_PREF_INFO;
+	} else if (type == 3) {
+		gpp_type = PURPLE_PLUGIN_PREF_STRING_FORMAT;
 	}
 	purple_plugin_pref_set_type(pref, gpp_type);