Changeset c1d2e6c

Timestamp:

Dec 13, 2008, 6:37:44 PM (15 years ago)

Author:

Sam Hartman <hartmans@mit.edu>

Branches:

debian

Children:

2c0f4f7

Parents:

8d07892a

Message:

* Call perl_sys_init3; Closes: 495056

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);