Changeset 5b37c063

Timestamp:

Jan 24, 2009, 8:39:30 PM (15 years ago)

Author:

Evan Broder <broder@mit.edu>

Children:

209ea94

Parents:

e729e3b

git-author:

Sam Hartman <hartmans@mit.edu> (12/13/08 18:37:44)

git-committer:

Evan Broder <broder@mit.edu> (01/24/09 20:39:30)

Message:

Call perl_sys_init3

Closes debian #495056

This is necessary for libperl to work at all on several
architectures/OSes.

Files:

• owl.c (modified) (2 diffs)
• perlconfig.c (modified) (2 diffs)

owl.c

@@ -20 +20 @@
 #include <locale.h>
 #include "owl.h"
+
 
 #if OWL_STDERR_REDIR
@@ -232 +233 @@
   owl_function_debugmsg("startup: processing config file");
   owl_context_set_readconfig(owl_global_get_context(&g));
-  perlerr=owl_perlconfig_initperl(configfile);
+  perlerr=owl_perlconfig_initperl(configfile, &argc, &argv, &env);
   if (perlerr) {
     endwin();

perlconfig.c

@@ -286 +286 @@
 
 
-char *owl_perlconfig_initperl(char * file)
+char *owl_perlconfig_initperl(char * file, int *Pargc, char ***Pargv, char *** Penv)
 {
   int ret;
@@ -294 +294 @@
 
   /* create and initialize interpreter */
+  PERL_SYS_INIT3(Pargc, Pargv, Penv);
   p=perl_alloc();
   owl_global_set_perlinterp(&g, (void*)p);