comparison 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]>

8094:d3a51be0d5a3

	if (c != NULL)
		*c = '\0';

	for (c = name; *c != '\0'; c++)
	{
		if (*c == '_' && !g_ascii_isalnum(*c))
			*c = '_';
	}
}

static gboolean

8095:4396d1088273

	if (c != NULL)
		*c = '\0';

	for (c = name; *c != '\0'; c++)
	{
		if (*c != '_' && !g_ascii_isalnum(*c))
			*c = '_';
	}
}

static gboolean