# HG changeset patch
# User Mark Doliner <mark@kingant.net>
# Date 1082667459 0
# Node ID 10caa1ec2dc4d22f52d567d2b73c2240b833dc5b
# Parent  16d91ca1a3538430bab53bea23bd1059950ef5ef
[gaim-migrate @ 9516]
Wordski

committer: Tailor Script <tailor@pidgin.im>

diff -r 16d91ca1a353 -r 10caa1ec2dc4 plugins/perl/perl.c
--- a/plugins/perl/perl.c	Thu Apr 22 20:19:05 2004 +0000
+++ b/plugins/perl/perl.c	Thu Apr 22 20:57:39 2004 +0000
@@ -289,7 +289,7 @@
 			info = g_new0(GaimPluginInfo, 1);
 			gps  = g_new0(GaimPerlScript, 1);
 
-			info->api_version = 2;
+			info->api_version = GAIM_PLUGIN_API_VERSION;
 			info->type = GAIM_PLUGIN_STANDARD;
 
 			info->dependencies = g_list_append(info->dependencies,
diff -r 16d91ca1a353 -r 10caa1ec2dc4 plugins/tcl/tcl.c
--- a/plugins/tcl/tcl.c	Thu Apr 22 20:19:05 2004 +0000
+++ b/plugins/tcl/tcl.c	Thu Apr 22 20:57:39 2004 +0000
@@ -211,20 +211,20 @@
 			if (Tcl_ListObjGetElements(interp, result, &nelems, &listitems) == TCL_OK) {
 				if (nelems == 6) {
 					info = g_new0(GaimPluginInfo, 1);
-					
-					info->api_version = 2;
+
+					info->api_version = GAIM_PLUGIN_API_VERSION;
 					info->type = GAIM_PLUGIN_STANDARD;
 					info->dependencies = g_list_append(info->dependencies, "core-tcl");
-					
+
 					info->name = g_strdup(Tcl_GetString(listitems[0]));
 					info->version = g_strdup(Tcl_GetString(listitems[1]));
 					info->summary = g_strdup(Tcl_GetString(listitems[2]));
 					info->description = g_strdup(Tcl_GetString(listitems[3]));;
 					info->author = g_strdup(Tcl_GetString(listitems[5]));
 					info->homepage = g_strdup(Tcl_GetString(listitems[5]));
-					
+
 					plugin->info = info;
-					
+
 					if (gaim_plugin_register(plugin))
 						status = TRUE;
 				}