# HG changeset patch
# User Mark Doliner <mark@kingant.net>
# Date 1271292516 0
# Node ID 36379bf98ed6f8b8fbcc6fc2b8943789a09409ff
# Parent  0646207f360f6992428653d2d797e4c10214104e
Update this to use prpl-aim

diff -r 0646207f360f -r 36379bf98ed6 doc/PERL-HOWTO.dox
--- a/doc/PERL-HOWTO.dox	Mon Mar 29 23:35:35 2010 +0000
+++ b/doc/PERL-HOWTO.dox	Thu Apr 15 00:48:36 2010 +0000
@@ -72,8 +72,8 @@
 sub plugin_load {
 	$plugin = shift;
 
-	# Testing was done using Oscar, but this should work regardless of the protocol chosen
-	my $protocol = "prpl-oscar";
+	# Testing was done using AIM, but this should work regardless of the protocol chosen
+	my $protocol = "prpl-aim";
 	my $account_name = "test";
 
 	# Create a new Account
@@ -149,7 +149,7 @@
 sub plugin_load {
 	my $plugin = shift;
 
-	my $protocol = "prpl-oscar";
+	my $protocol = "prpl-aim";
 	my $account_name = "test";
 
 	# This is how we get an account to use in the following tests.  You should replace the username
@@ -232,7 +232,7 @@
 @code
 sub plugin_load {
 	my $plugin = shift;
-	my $protocol = "prpl-oscar";
+	my $protocol = "prpl-aim";
 	my $account_name = "test";
 
 	$account = Purple::Accounts::find($account_name, $protocol);