document new readline variables "active-region-start-color" and "active-region-end-color"

examples/loadables/perl/bperl.c

@@ -3,23 +3,24 @@
  */
 #include <config.h>
 
-#include <fcntl.h>
 #include <errno.h>
 
 #include "builtins.h"
 #include "shell.h"
+#include "common.h"
 
 #ifndef errno
 extern int errno;
 #endif
 
-extern char **make_builtin_argv ();
+extern char **make_builtin_argv (WORD_LIST *, int *);
 extern char **export_env;
 
-extern int perl_main();
+extern void perl_close(void);
+extern int perl_main(int, char **, char **);
 
-bperl_builtin(list)
-WORD_LIST *list;
+int
+bperl_builtin(WORD_LIST *list)
 {
 	char	**v;
 	int	c, r;
@@ -31,6 +32,12 @@ WORD_LIST *list;
 	return r;
 }
 
+void
+bperl_builtin_unload (char *s)
+{
+	perl_close();
+}
+
 char *bperl_doc[] = {
 	"An interface to a perl5 interpreter.",
 	(char *)0

examples/loadables/perl/iperl.c

@@ -1,15 +1,29 @@
 #include <EXTERN.h>               /* from the Perl distribution     */
 #include <perl.h>                 /* from the Perl distribution     */
 
-extern void xs_init _((void));
+#define iperl my_perl		/* I guess the name `my_perl' is required */
+
+extern void xs_init (pTHX);
 
 static PerlInterpreter *iperl;  /***    The Perl interpreter    ***/
 
+static int first = 1;
+
+void
+perl_close (void)
+{
+	PERL_SYS_TERM();
+}
+
 int
 perl_main(int argc, char **argv, char **env)
 {
 	int	r;
 
+	if (first) {
+		first = 0;
+		PERL_SYS_INIT3(&argc, &argv, &env);
+	}
 	iperl = perl_alloc();
 	perl_construct(iperl);
 	perl_parse(iperl, xs_init, argc, argv, (char **)NULL);