# HG changeset patch
# User Luke Schierer <lschiere@pidgin.im>
# Date 1074009938 0
# Node ID 4396d108827372dcdac66b1cfbde6502980fd018
# Parent  d3a51be0d5a3fcb9db8574506b5e8e62017a9e1d
[gaim-migrate @ 8794]
"It was reported in #gaim yesterday that errors occurred when trying to
load
a perl plugin containing a '-' char in the filename.  It turns out that the
code for cleaning up to filename in order for it to become part of the
package name had a little bug." --Daniel Atallah

committer: Tailor Script <tailor@pidgin.im>

diff -r d3a51be0d5a3 -r 4396d1088273 plugins/perl/perl.c
--- a/plugins/perl/perl.c	Tue Jan 13 13:54:38 2004 +0000
+++ b/plugins/perl/perl.c	Tue Jan 13 16:05:38 2004 +0000
@@ -227,7 +227,7 @@
 
 	for (c = name; *c != '\0'; c++)
 	{
-		if (*c == '_' && !g_ascii_isalnum(*c))
+		if (*c != '_' && !g_ascii_isalnum(*c))
 			*c = '_';
 	}
 }