--- a/libpurple/plugins/perl/scripts/account.pl Sun Sep 22 21:56:10 2013 +0530 +++ b/libpurple/plugins/perl/scripts/account.pl Sun Sep 22 22:19:30 2013 +0530 @@ -27,7 +27,7 @@ # We will create these on load then destroy them on unload my $TEST_NAME = "perlTestName"; - my $PROTOCOL_ID = "prpl-aim"; + my $PROTOCOL_ID = "aim"; sub plugin_init {