aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

printformat_perl() crashfix was buggy :)

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2151 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-11-25 18:34:20 +00:00 committed by cras
parent e6f006009f
commit e246ca668b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/perl/ui/Themes.xs
View File

@ -6,16 +6,16 @@ void printformat_perl(TEXT_DEST_REC *dest, char *format, char **arglist)
char *module, *str; char *module, *str;
int formatnum; int formatnum;
module = g_strdup(perl_get_package());
formatnum = format_find_tag(module, format); formatnum = format_find_tag(module, format);
if (formatnum < 0) { if (formatnum < 0) {
die("printformat(): unregistered format '%s'", format); die("printformat(): unregistered format '%s'", format);
g_free(module);
return; return;
} }
module = g_strdup(perl_get_package());
theme = dest->window->theme == NULL ? current_theme : theme = dest->window->theme == NULL ? current_theme :
dest->window->theme; dest->window->theme;
signal_emit("print format", 5, theme, module, signal_emit("print format", 5, theme, module,
&dest, GINT_TO_POINTER(formatnum), arglist); &dest, GINT_TO_POINTER(formatnum), arglist);