Mercurial > pidgin

diff plugins/perl/common/Log.xs @ 11290:b284c703d398

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 13490] Did some house cleaning on the code finished up some of the "TODO" stuff that was left over from when I originally did the XSUBs. Furthermore, the dynamically loaded Perl package problems should be corrected now that the context is set before one of the concurrent perl interpreters is run. committer: Tailor Script <tailor@pidgin.im>
author John H. Kelm <johnkelm@gmail.com>
date Thu, 18 Aug 2005 01:35:14 +0000
parents 134d0001983d
children ad976105c306
line wrap: on
line diff
--- a/plugins/perl/common/Log.xs	Wed Aug 17 21:42:28 2005 +0000
+++ b/plugins/perl/common/Log.xs	Thu Aug 18 01:35:14 2005 +0000
@@ -1,11 +1,8 @@
 #include "module.h"
 
-
 MODULE = Gaim::Log  PACKAGE = Gaim::Log  PREFIX = gaim_log_
 PROTOTYPES: ENABLE
 
-
-
 int 
 gaim_log_common_sizer(log)
 	Gaim::Log log
@@ -35,11 +32,10 @@
 void
 gaim_log_get_log_sets()
 PREINIT:
-        GList *l;
+        GHashTable *l;
 PPCODE:
-        for (l = gaim_log_get_log_sets(); l != NULL; l = l->next) {
-                XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry")));
-        }
+        l = gaim_log_get_log_sets(); 
+        XPUSHs(sv_2mortal(gaim_perl_bless_object(l, "GHashTable")));
 
 void
 gaim_log_get_logs(type, name, account)