[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.269 by root, Fri Feb 1 15:54:08 2008 UTC vs.
Revision 1.270 by root, Sat Mar 15 13:52:38 2008 UTC

 /////////////////////////////////////////////////////////////////////////////
 void
 cfperl_init ()
 {
+  extern char **environ;
-  PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);
+  PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
   perl = perl_alloc ();
   perl_construct (perl);
   PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
     "cf->bootstrap;"    // required for datadir :*>
     "unshift @INC, cf::datadir ();"
     "require cf;"
   };
-  if (perl_parse (perl, xs_init, 2, (char **)argv, (char **)NULL)
+  if (perl_parse (perl, xs_init, 2, (char **)argv, environ)
       || perl_run (perl))
     {
       printf ("unable to initialize perl-interpreter, aborting.\n");
       exit (EXIT_FAILURE);
     }
 void abort ()
 void reset_signals ()
-void fork_abort (octet_string cause = "cf::fork_abort")
+void fork_abort (const_octet_string cause = "cf::fork_abort")
-void cleanup (octet_string cause, bool make_core = false)
+void cleanup (const_octet_string cause, bool make_core = false)
 void emergency_save ()
 void _exit (int status = EXIT_SUCCESS)

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines