modules: remove ancient broken perl module.

* modules/perl.c, modules/perl.m4: Remove.
* po/POTFILES.in: Remove reference to perl.c.
* Makefile.am: Remove commented out rules for building perl.so.

Signed-off-by: Gary V. Vaughan <gary@gnu.org>

4 files changed, 0 insertions, 148 deletions

diff --git a/Makefile.am b/Makefile.am
index 5a0ed3c4..7920b9df 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -187,21 +187,6 @@ modules_mpeval_la_LDFLAGS	= $(module_ldflags)
 modules_mpeval_la_LIBADD	= $(module_libadd) $(LIBADD_GMP)
 endif
 
-## Disabled for now.  It is too fragile to be useful.
-## pkglib_LTLIBRARIES         += modules/perl.la
-## modules_perl_la_CPPFLAGS	= `$(PERL) -MExtUtils::Embed -e ccopts`
-## modules_perl_la_LDFLAGS		= \
-##		  $(module_ldflags) `$(PERL) -MExtUtils::Embed -e ldopts`
-## modules_perl_la_LIBADD		= $(module_libadd)
-## BUILT_SOURCES			= perlxsi.c
-## DISTCLEANFILES		       += $(BUILT_SOURCES)
-##
-## perlxsi.c:
-##	$(PERL) -MExtUtils::Embed -e xsinit -- -o perlxsi.c
-
-## but we should still distribute it, because it is listed in POTFILES.in:
-EXTRA_DIST += modules/perl.c
-
 module_check	= -rpath /dev/null
 check_LTLIBRARIES = \
 		  tests/import.la \
diff --git a/modules/perl.c b/modules/perl.c
deleted file mode 100644
index edccecf0..00000000
--- a/modules/perl.c
+++ /dev/null
@@ -1,125 +0,0 @@
-/* GNU m4 -- A simple macro processor
-   Copyright (C) 1999-2000, 2006-2008, 2010, 2013 Free Software
-   Foundation, Inc.
-
-   This file is part of GNU M4.
-
-   GNU M4 is free software: you can redistribute it and/or modify
-   it under the terms of the GNU General Public License as published by
-   the Free Software Foundation, either version 3 of the License, or
-   (at your option) any later version.
-
-   GNU M4 is distributed in the hope that it will be useful,
-   but WITHOUT ANY WARRANTY; without even the implied warranty of
-   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-   GNU General Public License for more details.
-
-   You should have received a copy of the GNU General Public License
-   along with this program.  If not, see <http://www.gnu.org/licenses/>.
-*/
-
-#include <config.h>
-
-/* Build using only the exported interfaces, unless NDEBUG is set, in
-   which case use private symbols to speed things up as much as possible.  */
-#ifndef NDEBUG
-#  include <m4/m4module.h>
-#else
-#  include "m4private.h"
-#endif
-
-#undef PACKAGE
-#include "perlxsi.c"                    /* Perl stuff */
-#undef try
-#undef _
-
-/* Rename exported symbols for dlpreload()ing.  */
-#define m4_builtin_table        perl_LTX_m4_builtin_table
-#define m4_macro_table          perl_LTX_m4_macro_table
-
-/*         function     macros  blind   side    minargs maxargs */
-#define builtin_functions                                       \
-  BUILTIN (perleval,    false,  false,  false,  0,      -1  )   \
-
-
-#define BUILTIN(handler, macros, blind, side, min, max)  M4BUILTIN (handler)
-  builtin_functions
-#undef BUILTIN
-
-const m4_builtin m4_builtin_table[] =
-{
-#define BUILTIN(handler, macros, blind, side, min, max)                 \
-  M4BUILTIN_ENTRY (handler, #handler, macros, blind, side, min, max)
-
-  builtin_functions
-#undef BUILTIN
-
-  { NULL, NULL, 0, 0, 0 },
-};
-
-/* A table for mapping m4 symbol names to simple expansion text. */
-const m4_macro m4_macro_table[] =
-{
-  /* name               text    min     max */
-  { "__perleval__",     "",     0,      0 },
-  { NULL,               NULL,   0,      0 },
-};
-
-
-
-static PerlInterpreter *my_perl;
-
-M4INIT_HANDLER (perl)
-{
-  const lt_dlinfo *info = 0;
-  char *embedding[] = { "", "-e", "0" };
-
-  if (module)
-    info = lt_dlgetinfo (module);
-
-  /* Start up a perl parser, when loaded for the first time.  */
-  if (info && (info->ref_count == 1))
-    {
-      my_perl = perl_alloc ();
-      perl_construct (my_perl);
-
-      perl_parse (my_perl, xs_init, 3, embedding, NULL);
-      perl_run (my_perl);
-    }
-}
-
-M4FINISH_HANDLER (perl)
-{
-  const lt_dlinfo *info = 0;
-
-  if (module)
-    info = lt_dlgetinfo (module);
-
-  /* Recycle the perl parser, when unloaded for the last time.  */
-  if (info && (info->ref_count == 1))
-    {
-      perl_destruct (my_perl);
-      perl_free (my_perl);
-    }
-}
-
-
-
-/**
- * perleval([PERLCODE], [...])
- **/
-M4BUILTIN_HANDLER (perleval)
-{
-  SV *val;
-  size_t i;
-
-  for (i = 1; i < argc; i++)
-    {
-      if (i > 1)
-        obstack_1grow (obs, ',');
-
-      val = perl_eval_pv (M4ARG (i), true);
-
-      m4_shipout_string (context, obs, SvPV (val, PL_na), SIZE_MAX, false);
-    }
-}
diff --git a/modules/perl.m4 b/modules/perl.m4
deleted file mode 100644
index d3308a03..00000000
--- a/modules/perl.m4
+++ /dev/null
@@ -1,7 +0,0 @@
-dnl Copyright (C) 2006, 2010, 2013 Free Software Foundation, Inc.
-dnl This file is free software; the Free Software Foundation
-dnl gives unlimited permission to copy and/or distribute it
-dnl with or without modifications, as long as this notice is preserved.
-load(`perl')
-
-perleval(`"reverse 'rekcaH lreP rehtonA tsuJ'"')
diff --git a/po/POTFILES.in b/po/POTFILES.in
index 94415f90..0109259a 100644
--- a/po/POTFILES.in
+++ b/po/POTFILES.in
@@ -23,7 +23,6 @@ modules/gnu.c
 modules/load.c
 modules/m4.c
 modules/mpeval.c
-modules/perl.c
 modules/traditional.c
 src/freeze.c
 src/getopt.c