--- a/libpurple/plugins/perl/scripts/account.pl Sun Mar 28 18:08:38 2010 +0000 +++ b/libpurple/plugins/perl/scripts/account.pl Mon Mar 29 23:35:35 2010 +0000 @@ -27,7 +27,7 @@ # We will create these on load then destroy them on unload my $TEST_NAME = "perlTestName"; - my $PROTOCOL_ID = "prpl-oscar"; + my $PROTOCOL_ID = "prpl-aim"; sub plugin_init {