doc/PERL-HOWTO.dox

branch
soc.2013.gobjectification.plugins
changeset 36784
e8e23435367d
parent 33955
55aa58076485
--- a/doc/PERL-HOWTO.dox	Sat Sep 21 21:37:20 2013 +0530
+++ b/doc/PERL-HOWTO.dox	Sat Sep 21 22:28:33 2013 +0530
@@ -73,7 +73,7 @@
 	$plugin = shift;
 
 	# Testing was done using AIM, but this should work regardless of the protocol chosen
-	my $protocol = "prpl-aim";
+	my $protocol = "aim";
 	my $account_name = "test";
 
 	# Create a new Account
@@ -149,7 +149,7 @@
 sub plugin_load {
 	my $plugin = shift;
 
-	my $protocol = "prpl-aim";
+	my $protocol = "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-aim";
+	my $protocol = "aim";
 	my $account_name = "test";
 
 	$account = Purple::Accounts::find($account_name, $protocol);

mercurial