--- a/libpurple/plugins/perl/scripts/plugin_pref.pl Sun Mar 28 18:08:38 2010 +0000 +++ b/libpurple/plugins/perl/scripts/plugin_pref.pl Mon Mar 29 23:35:35 2010 +0000 @@ -28,7 +28,7 @@ my $TEST_GROUP = "perlTestGroup"; my $TEST_NAME = "perlTestName"; my $TEST_ALIAS = "perlTestAlias"; - my $PROTOCOL_ID = "prpl-oscar"; + my $PROTOCOL_ID = "prpl-aim"; sub foo { $frame = Purple::PluginPref::Frame->new();