Remove support for perl 5.004 and older.

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

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;