Remove support for perl 5.004 and older.

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

4 files changed, 0 insertions, 20 deletions

diff --git a/src/perl/module.h b/src/perl/module.h
index 9a2e8063..2fd15137 100644
--- a/src/perl/module.h
+++ b/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
 
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c
index 9fe8d587..517e6102 100644
--- a/src/perl/perl-common.c
+++ b/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;
 
diff --git a/src/perl/perl-common.h b/src/perl/perl-common.h
index 32e6e655..e2992ee9 100644
--- a/src/perl/perl-common.h
+++ b/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
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c
index 1f6188be..5e401ead 100644
--- a/src/perl/perl-core.c
+++ b/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;