1
0
Fork 0

Remove support for perl 5.004 and older.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4706 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Emanuele Giaquinta 2008-02-05 01:01:06 +00:00 committed by exg
parent ffe5bd6930
commit 4fb888ce80
8 changed files with 0 additions and 33 deletions

View File

@ -47,9 +47,6 @@ as well. If you want to use only curses calls for some reason, use
Perl support generates most of the problems. There's quite a many
things that can go wrong:
- Perl 5.004 doesn't work by default, you'll need to edit
src/perl/irssi-core.pl and remove all lines with "delete_package"
in them.
- Compiling fails if you compile irssi with GCC in a system that has
perl compiled with some other C compiler. Very common problem with
non-Linux/BSD systems. You'll need to edit src/perl/*/Makefile files

2
TODO
View File

@ -568,8 +568,6 @@ FIXME translate
signal_add() it
- Irssi::keyboard_entry_redirect()
- Irssi::format_get_text()
- "use Symbol(delete_package)" doesn't work with perl 5.004 and crashes
irssi .. at least remove the crashing!
- Irssi::signal_remove() could accept hashes
- /command parameter parser so it'd be easier to handle -options etc.
- Try to get the Makefiles generated so that compiling with GCC would

View File

@ -1,7 +1,6 @@
/* misc.. */
#undef HAVE_IPV6
#undef HAVE_SOCKS_H
#undef HAVE_PL_PERL
#undef HAVE_STATIC_PERL
#undef HAVE_GMODULE
#undef HAVE_GC_H

View File

@ -477,13 +477,6 @@ if test "$want_perl" != "no"; then
else
PERL_LDFLAGS=`$perlpath -MExtUtils::Embed -e ldopts 2>/dev/null`
dnl * Perl 5.004 and older use perl_xxx variables while
dnl * later use PL_perl_xxx variables ..
have_pl_perl=`$perlpath -e 'print $] < 5.005 ? "no" : "yes";'`
if test "x$have_pl_perl" = "xyes"; then
AC_DEFINE(HAVE_PL_PERL)
fi
if test "x$DYNLIB_MODULES" = "xno" -a "$want_perl" != "static"; then
dnl * wanted perl as module, won't get it.
want_perl=static

View File

@ -10,11 +10,6 @@
# 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

View File

@ -48,10 +48,6 @@ typedef struct {
PERL_OBJECT_FUNC fill_func;
} PERL_OBJECT_REC;
#ifndef HAVE_PL_PERL
STRLEN PL_na;
#endif
static GHashTable *iobject_stashes, *plain_stashes;
static GSList *use_protocols;

View File

@ -26,12 +26,6 @@ char *perl_function_get_package(const char *function);
Increases the reference counter for the return value. */
SV *perl_func_sv_inc(SV *func, const char *package);
/* For compatibility with perl 5.004 and older */
#ifndef HAVE_PL_PERL
# define PL_sv_undef sv_undef
extern STRLEN PL_na;
#endif
#ifndef pTHX_
# define pTHX_
#endif

View File

@ -34,11 +34,6 @@
#include "XSUB.h"
#include "irssi-core.pl.h"
/* For compatibility with perl 5.004 and older */
#ifndef HAVE_PL_PERL
# define PL_perl_destruct_level perl_destruct_level
#endif
GSList *perl_scripts;
PerlInterpreter *my_perl;