comparison plugins/perl/perl-common.c @ 11170:0e9e2b923d09

[gaim-migrate @ 13271] Fixed some bugs and made some additions to the XSUBS. Added some of my test scripts which are incomplete, but mostly functional. GaimPluginPrefs and GaimGtkPluginPrefs--using evals to do the Gtk widgets with gtk2-perl--work. Plugin actions can now be added, but only one for now. committer: Tailor Script <[e-mail]>

11169:778d5464a9b8

#include "perl-common.h"

extern PerlInterpreter *my_perl;

static GHashTable *object_stashes = NULL;

static int
magic_free_object(pTHX_ SV *sv, MAGIC *mg)
{
	sv_setiv(sv, 0);

11170:0e9e2b923d09

#include "perl-common.h"

extern PerlInterpreter *my_perl;

static GHashTable *object_stashes = NULL;

void gaim_perl_normalize_script_name(char *name)
{
        char *c;

        c = strrchr(name, '.');

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

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


static int
magic_free_object(pTHX_ SV *sv, MAGIC *mg)
{
	sv_setiv(sv, 0);