diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-11-25 18:34:20 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-11-25 18:34:20 +0000 |
| commit | e246ca668b854e07e992ed548552e03606eceae1 (patch) | |
| tree | 366ea4439cd3889a4c9c913189d7b1670234e7a6 /src/perl | |
| parent | e6f006009ffc82f3ba70fac4b166123f07e8a114 (diff) | |
| download | irssi-e246ca668b854e07e992ed548552e03606eceae1.zip | |
printformat_perl() crashfix was buggy :)
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2151 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/ui/Themes.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/perl/ui/Themes.xs b/src/perl/ui/Themes.xs index 568a8f54..f4283f9b 100644 --- a/src/perl/ui/Themes.xs +++ b/src/perl/ui/Themes.xs @@ -6,16 +6,16 @@ void printformat_perl(TEXT_DEST_REC *dest, char *format, char **arglist) char *module, *str; int formatnum; + module = g_strdup(perl_get_package()); formatnum = format_find_tag(module, format); if (formatnum < 0) { die("printformat(): unregistered format '%s'", format); + g_free(module); return; } - module = g_strdup(perl_get_package()); theme = dest->window->theme == NULL ? current_theme : dest->window->theme; - signal_emit("print format", 5, theme, module, &dest, GINT_TO_POINTER(formatnum), arglist); |