diff -r 997a3fb7f1c0 -r 21af2b190cfa libpurple/plugins/perl/scripts/plugin_pref.pl
--- a/libpurple/plugins/perl/scripts/plugin_pref.pl	Sun Sep 22 21:56:10 2013 +0530
+++ b/libpurple/plugins/perl/scripts/plugin_pref.pl	Sun Sep 22 22:19:30 2013 +0530
@@ -28,7 +28,7 @@
 	my $TEST_GROUP		= "perlTestGroup";
 	my $TEST_NAME	 	= "perlTestName";
 	my $TEST_ALIAS	 	= "perlTestAlias";
-	my $PROTOCOL_ID 	= "prpl-aim";
+	my $PROTOCOL_ID 	= "aim";
 
 sub foo {
 	$frame = Purple::PluginPref::Frame->new();