diff pidgin/gtkdialogs.c @ 20365:9401a46da958

applied changes from d6da6a7a5ad01f170f0fd78424183f73200dc78c through ca4c40c7119d3222ca33d10a8f578782de29ad28 applied changes from ca4c40c7119d3222ca33d10a8f578782de29ad28 through 4341e599d112f3be408cb2a92fa459cc7c25b29c applied changes from 1e8c3f6ec50a7e8ea15b850e7e2974e273c1cb6c through fe00ca8a057e772d955ff56c7b6557e221d3e514 applied changes from 35e02ab2f9968d9b567123e1ba43552597218596 through aed8cc0e2684056309c481d621fdafcd366b7d24
author Luke Schierer <lschiere@pidgin.im>
date Sun, 21 Oct 2007 05:07:57 +0000
parents a14208697dcd
children 787b3897ba9f f387e8c671a4
line wrap: on
line diff
--- a/pidgin/gtkdialogs.c	Sun Oct 21 05:05:38 2007 +0000
+++ b/pidgin/gtkdialogs.c	Sun Oct 21 05:07:57 2007 +0000
@@ -645,11 +645,10 @@
 	g_string_append(str, "    <b>Network Security Services (NSS):</b> Disabled<br/>");
 #endif
 
-#ifdef HAVE_PERL
+if (purple_plugins_find_with_id("core-perl") != NULL)
 	g_string_append(str, "    <b>Perl:</b> Enabled<br/>");
-#else
+else
 	g_string_append(str, "    <b>Perl:</b> Disabled<br/>");
-#endif
 
 #ifndef _WIN32
 #ifdef HAVE_STARTUP_NOTIFICATION
@@ -659,17 +658,17 @@
 #endif
 #endif
 
-#ifdef HAVE_TCL
+if (purple_plugins_find_with_id("core-tcl") != NULL) {
 	g_string_append(str, "    <b>Tcl:</b> Enabled<br/>");
-#else
-	g_string_append(str, "    <b>Tcl:</b> Disabled<br/>");
-#endif
-
 #ifdef HAVE_TK
 	g_string_append(str, "    <b>Tk:</b> Enabled<br/>");
 #else
 	g_string_append(str, "    <b>Tk:</b> Disabled<br/>");
 #endif
+} else {
+	g_string_append(str, "    <b>Tcl:</b> Disabled<br/>");
+	g_string_append(str, "    <b>Tk:</b> Disabled<br/>");
+}
 
 #ifndef _WIN32
 #ifdef USE_SM