aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-06-23 06:35:36 +00:00
Code

Added #define PL_sv_undef sv_undef for 5.004 compatibility

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1119 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-01-15 01:04:30 +00:00 committed by cras
parent 51a4e8bcb9
commit 0d7e4c1f54
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/perl/perl-common.h
View File

@ -27,6 +27,11 @@ typedef struct {
/* returns the package who called us */
char *perl_get_package(void);
/* For compatibility with perl 5.004 and older */
#ifndef HAVE_PL_PERL
# define PL_sv_undef sv_undef
#endif
#define irssi_bless(object) \
((object) == NULL ? &PL_sv_undef : \
irssi_bless_iobject((object)->type, (object)->chat_type, object))