Changeset e8c6d8f

Timestamp:

Jan 24, 2009, 7:50:22 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

b73ce70

Parents:

bc7037c

git-author:

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

git-committer:

Nelson Elhage <nelhage@mit.edu> (01/24/09 19:50:22)

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
@@ -233 +234 @@
   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

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