mirror of
https://github.com/irssi/irssi.git
synced 2024-09-01 04:14:16 -04:00
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:
parent
ffe5bd6930
commit
4fb888ce80
3
INSTALL
3
INSTALL
@ -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
|
Perl support generates most of the problems. There's quite a many
|
||||||
things that can go wrong:
|
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
|
- Compiling fails if you compile irssi with GCC in a system that has
|
||||||
perl compiled with some other C compiler. Very common problem with
|
perl compiled with some other C compiler. Very common problem with
|
||||||
non-Linux/BSD systems. You'll need to edit src/perl/*/Makefile files
|
non-Linux/BSD systems. You'll need to edit src/perl/*/Makefile files
|
||||||
|
2
TODO
2
TODO
@ -568,8 +568,6 @@ FIXME translate
|
|||||||
signal_add() it
|
signal_add() it
|
||||||
- Irssi::keyboard_entry_redirect()
|
- Irssi::keyboard_entry_redirect()
|
||||||
- Irssi::format_get_text()
|
- 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
|
- Irssi::signal_remove() could accept hashes
|
||||||
- /command parameter parser so it'd be easier to handle -options etc.
|
- /command parameter parser so it'd be easier to handle -options etc.
|
||||||
- Try to get the Makefiles generated so that compiling with GCC would
|
- Try to get the Makefiles generated so that compiling with GCC would
|
||||||
|
@ -1,7 +1,6 @@
|
|||||||
/* misc.. */
|
/* misc.. */
|
||||||
#undef HAVE_IPV6
|
#undef HAVE_IPV6
|
||||||
#undef HAVE_SOCKS_H
|
#undef HAVE_SOCKS_H
|
||||||
#undef HAVE_PL_PERL
|
|
||||||
#undef HAVE_STATIC_PERL
|
#undef HAVE_STATIC_PERL
|
||||||
#undef HAVE_GMODULE
|
#undef HAVE_GMODULE
|
||||||
#undef HAVE_GC_H
|
#undef HAVE_GC_H
|
||||||
|
@ -477,13 +477,6 @@ if test "$want_perl" != "no"; then
|
|||||||
else
|
else
|
||||||
PERL_LDFLAGS=`$perlpath -MExtUtils::Embed -e ldopts 2>/dev/null`
|
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
|
if test "x$DYNLIB_MODULES" = "xno" -a "$want_perl" != "static"; then
|
||||||
dnl * wanted perl as module, won't get it.
|
dnl * wanted perl as module, won't get it.
|
||||||
want_perl=static
|
want_perl=static
|
||||||
|
@ -10,11 +10,6 @@
|
|||||||
# undef _
|
# undef _
|
||||||
# undef PACKAGE
|
# 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 */
|
extern PerlInterpreter *my_perl; /* must be called my_perl or some perl implementations won't work */
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
@ -48,10 +48,6 @@ typedef struct {
|
|||||||
PERL_OBJECT_FUNC fill_func;
|
PERL_OBJECT_FUNC fill_func;
|
||||||
} PERL_OBJECT_REC;
|
} PERL_OBJECT_REC;
|
||||||
|
|
||||||
#ifndef HAVE_PL_PERL
|
|
||||||
STRLEN PL_na;
|
|
||||||
#endif
|
|
||||||
|
|
||||||
static GHashTable *iobject_stashes, *plain_stashes;
|
static GHashTable *iobject_stashes, *plain_stashes;
|
||||||
static GSList *use_protocols;
|
static GSList *use_protocols;
|
||||||
|
|
||||||
|
@ -26,12 +26,6 @@ char *perl_function_get_package(const char *function);
|
|||||||
Increases the reference counter for the return value. */
|
Increases the reference counter for the return value. */
|
||||||
SV *perl_func_sv_inc(SV *func, const char *package);
|
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_
|
#ifndef pTHX_
|
||||||
# define pTHX_
|
# define pTHX_
|
||||||
#endif
|
#endif
|
||||||
|
@ -34,11 +34,6 @@
|
|||||||
#include "XSUB.h"
|
#include "XSUB.h"
|
||||||
#include "irssi-core.pl.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;
|
GSList *perl_scripts;
|
||||||
PerlInterpreter *my_perl;
|
PerlInterpreter *my_perl;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user