mirror of
https://github.com/irssi/irssi.git
synced 2024-11-03 04:27:19 -05:00
6774b4b30f
use a destroyed server record when some /command disconnects the server (shouldn't happen really) or when irc_send_cmd() fails sending data to server and disconnects the server (I don't know if this ever happens, but if it does, it very well could have caused crashes) git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2243 dbcabf3a-b0e7-0310-adc4-f8d773084564
26 lines
597 B
C
26 lines
597 B
C
#ifdef NEED_PERL_H
|
|
# include <EXTERN.h>
|
|
# ifndef _SEM_SEMUN_UNDEFINED
|
|
# define HAS_UNION_SEMUN
|
|
# endif
|
|
# include <perl.h>
|
|
|
|
# undef _
|
|
# undef PACKAGE
|
|
|
|
/* For compatibility with perl 5.004 and older */
|
|
# ifndef ERRSV
|
|
# define ERRSV GvSV(errgv)
|
|
# endif
|
|
|
|
extern PerlInterpreter *my_perl; /* must be called my_perl or some perl implementations won't work */
|
|
#endif
|
|
|
|
#include "common.h"
|
|
|
|
#define MODULE_NAME "perl/core"
|
|
|
|
/* Change this every time when some API changes between irssi's perl module
|
|
(or irssi itself) and irssi's perl libraries. */
|
|
#define IRSSI_PERL_API_VERSION 20011214
|