Mercurial > pidgin.yaz
changeset 565:7209b474bdc3
[gaim-migrate @ 575]
perl changes
committer: Tailor Script <tailor@pidgin.im>
| author | Eric Warmenhoven <eric@warmenhoven.org> |
|---|---|
| date | Tue, 01 Aug 2000 05:10:53 +0000 |
| parents | c6f1e88ec3cb |
| children | 59564dbeddc8 |
| files | configure.in src/perl.c |
| diffstat | 2 files changed, 31 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/configure.in Tue Aug 01 04:45:44 2000 +0000 +++ b/configure.in Tue Aug 01 05:10:53 2000 +0000 @@ -84,7 +84,7 @@ AC_MSG_RESULT([not found, building without perl.]) enable_perl = no else - PERL_LDFLAGS=`$perlpath -MExtUtils::Embed -e ldopts |$sedpath 's/-lgdbm //'` + PERL_LDFLAGS=`$perlpath -MExtUtils::Embed -e ldopts 2>/dev/null |$sedpath 's/-lgdbm //'` PERL_LDFLAGS=`echo $PERL_LDFLAGS |$sedpath 's/-ldb //'` PERL_LDFLAGS=`echo $PERL_LDFLAGS |$sedpath 's/-lndbm //'` if test "$system" = "Linux"; then
--- a/src/perl.c Tue Aug 01 04:45:44 2000 +0000 +++ b/src/perl.c Tue Aug 01 05:10:53 2000 +0000 @@ -29,7 +29,7 @@ #undef PACKAGE /* #ifdef USE_PERL */ -#if 0 /* still has problems */ +#if 0 #include <EXTERN.h> #ifndef _SEM_SEMUN_UNDEFINED @@ -174,6 +174,19 @@ void perl_end() { + struct perlscript *scp; + + while (perl_list) { + scp = perl_list->data; + perl_list = g_list_remove(perl_list, scp); + if (scp->shutdowncallback[0]) + execute_perl(scp->shutdowncallback, ""); + g_free(scp->name); + g_free(scp->version); + g_free(scp->shutdowncallback); + g_free(scp); + } + if (my_perl != NULL) { perl_destruct(my_perl); perl_free(my_perl); @@ -242,6 +255,22 @@ XS (XS_AIM_get_info) { + int junk; + dXSARGS; + items = 0; + + switch(atoi(SvPV(ST(0), junk))) { + case 0: + XST_mPV(0, VERSION); + break; + case 1: + XST_mPV(0, current_user->username); + break; + default: + XST_mPV(0, "Error2"); + } + + XSRETURN(1); } #endif /* USE_PERL */