--- deliantra/server/server/cfperl.xs	2008/02/01 15:54:08	1.269
+++ deliantra/server/server/cfperl.xs	2008/03/15 13:52:38	1.270
@@ -607,7 +607,9 @@
 void
 cfperl_init ()
 {
-  PERL_SYS_INIT3 (&settings.argc, &settings.argv, 0);
+  extern char **environ;
+
+  PERL_SYS_INIT3 (&settings.argc, &settings.argv, &environ);
   perl = perl_alloc ();
   perl_construct (perl);
 
@@ -622,7 +624,7 @@
     "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");
@@ -1666,9 +1668,9 @@
 
 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 ()