diff options
author | Timo Sirainen <cras@irssi.org> | 2001-01-15 01:04:30 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-01-15 01:04:30 +0000 |
commit | 0d7e4c1f54979c6e03f36e7dd0a16f4ac946d24f (patch) | |
tree | 6b14120f9a2ab0b56c54cf30360792d5b553b7a0 /src/perl/perl-common.h | |
parent | 51a4e8bcb94f50166259e3e741503c4e0b03e7a8 (diff) | |
download | irssi-0d7e4c1f54979c6e03f36e7dd0a16f4ac946d24f.zip |
Added #define PL_sv_undef sv_undef for 5.004 compatibility
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1119 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-common.h')
-rw-r--r-- | src/perl/perl-common.h | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h index d8774090..e6519681 100644 --- a/src/perl/perl-common.h +++ b/src/perl/perl-common.h @@ -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)) |