# HG changeset patch
# User Daniel Atallah <datallah@pidgin.im>
# Date 1192731210 0
# Node ID 86df0be4383a79faa954b181d4aacef0c745d4b2
# Parent  09b0df9c0dd3abf985ceae5a90e48490247099e2
Make Perl and Tcl debug information in the About dialog based on runtime information (the Perl and Tcl plugins being present) instead of compile time information.  This should be more accurate.  I don't know how this affects statically linked plugins (is that even possible for these plugins?).

diff -r 09b0df9c0dd3 -r 86df0be4383a pidgin/gtkdialogs.c
--- a/pidgin/gtkdialogs.c	Thu Oct 18 16:23:23 2007 +0000
+++ b/pidgin/gtkdialogs.c	Thu Oct 18 18:13:30 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