wzdftpd (0.8.3-6.1) 50_PERL_SYS_INIT

Index: wzdftpd-0.8.3/modules/perl/libwzd_perl.c
===================================================================
--- wzdftpd-0.8.3.orig/modules/perl/libwzd_perl.c	2008-08-26 10:04:18.000000000 +0200
+++ wzdftpd-0.8.3/modules/perl/libwzd_perl.c	2008-08-26 10:10:46.000000000 +0200
@@ -196,6 +196,15 @@
     }
   }
 
+  {
+    char *argv[] = { "wzdftpd", NULL };
+    int argc = 1;
+    extern char **environ;
+    char **env = environ;
+
+    PERL_SYS_INIT3(&argc,(char ***)&argv,&env);
+  }
+
   if ( !(my_perl = perl_init()) ) {
     out_log(LEVEL_HIGH,"PERL could not create interpreter\n");
     if (perl_fd_errlog >= 0) {
@@ -230,6 +239,7 @@
 {
   perl_destruct(my_perl);
   perl_free(my_perl);
+  PERL_SYS_TERM();
   my_perl = NULL;
   if (perl_fd_errlog >= 0) {
     close(perl_fd_errlog);