diff plugins/perl/perl.c @ 8095:4396d1088273

[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 <[e-mail]>

--- 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 = '_';
 	}
 }