Remove support for perl 5.004 and older.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4706 dbcabf3a-b0e7-0310-adc4-f8d773084564

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
 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

TODO

@@ -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

acconfig.h

@@ -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

configure.in

@@ -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

src/perl/module.h

@@ -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
 

src/perl/perl-common.c

@@ -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;
 

src/perl/perl-common.h

@@ -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

src/perl/perl-core.c

@@ -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;