mirror of
https://github.com/irssi/irssi.git
synced 2026-08-09 20:00:23 +02:00
76c6e9ab83
separately now). Added statusbar code to available to perl, it's now possible to create new statusbar items with perl scripts. statusbar_items_redraw(char *name) can now be used to easily redraw all named statusbar items in screen. Probably several other changes I've already forgotten :) git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1861 dbcabf3a-b0e7-0310-adc4-f8d773084564
25 lines
579 B
C
25 lines
579 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
|
|
and irssi's perl libraries. */
|
|
#define IRSSI_PERL_API_VERSION 20011021
|