changeset 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 <tailor@pidgin.im>
author Luke Schierer <lschiere@pidgin.im>
date Tue, 13 Jan 2004 16:05:38 +0000
parents d3a51be0d5a3
children 81079e3eda47
files plugins/perl/perl.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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 = '_';
 	}
 }