diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-11-16 21:35:18 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-11-16 21:35:18 +0000 |
| commit | 15933dcea016248e78fc021658a7ddef1f4eb809 (patch) | |
| tree | 683cb5f88236feb34259dca3b4012aef55381474 | |
| parent | 05d3bb58cb157078df72f53bd7777e476996b466 (diff) | |
| download | irssi-15933dcea016248e78fc021658a7ddef1f4eb809.zip | |
Fixed a few memory leaks
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2035 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -rw-r--r-- | src/perl/common/Core.xs | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index 036deb32..6e0503d1 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -402,28 +402,32 @@ OUTPUT: MODULE = Irssi::Core PACKAGE = Irssi::Server #******************************* -char * +void parse_special(server, cmd, data="", flags=0) Irssi::Server server char *cmd char *data int flags -CODE: - RETVAL = parse_special_string(cmd, server, NULL, data, NULL, flags); -OUTPUT: - RETVAL +PREINIT: + char *ret; +PPCODE: + ret = parse_special_string(cmd, server, NULL, data, NULL, flags); + XPUSHs(sv_2mortal(new_pv(ret))); + g_free_not_null(ret); #******************************* MODULE = Irssi::Core PACKAGE = Irssi::Windowitem #******************************* -char * +void parse_special(item, cmd, data="", flags=0) Irssi::Windowitem item char *cmd char *data int flags -CODE: - RETVAL = parse_special_string(cmd, item->server, item, data, NULL, flags); -OUTPUT: - RETVAL +PREINIT: + char *ret; +PPCODE: + ret = parse_special_string(cmd, item->server, item, data, NULL, flags); + XPUSHs(sv_2mortal(new_pv(ret))); + g_free_not_null(ret); |