zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-23 10:32:31 +02:00
Code Issues Projects Releases Packages Wiki Activity

Fix segfault when 'script error' handlers fail

Browse source 
Add logic to detect errors in 'script error' handlers, and prevent
them from causing infinite recursion that crashes the entire program.
This commit is contained in:
Stephen Oberholtzer 2017-03-01 21:07:14 -05:00
commit bfa217b283
4 changed files with 72 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/perl/perl-core.h
View file

@ -8,6 +8,10 @@ typedef struct {
/* Script can be loaded from a file, or from some data in memory */
char *path; /* FILE: full path for file */
char *data; /* DATA: data used for the script */
/* internal bookkeeping */
char script_error_status; /* script error status */
char disable_signals; /* don't deliver signals to this script */
} PERL_SCRIPT_REC;
extern GSList *perl_scripts;
@ -55,4 +59,9 @@ int perl_get_api_version(void);
void perl_core_init(void);
void perl_core_deinit(void);
/* Reports script errors.
* Upon return, @param script may have been (and probably was) freed.
*/
void perl_report_script_error(PERL_SCRIPT_REC *script, const char *error);
#endif