Changeset 2027

Timestamp:

08/26/08 14:31:34 (3 months ago)

Author:

pollux

Message:

Backport r2026 to stable branch:

Use macros PERL_SYS_INIT3 and PERL_SYS_TERM for Perl module.
See http://perldoc.perl.org/perlembed.html for details.

Files:

• branches/0.8/modules/perl/libwzd_perl.c (modified) (2 diffs)

branches/0.8/modules/perl/libwzd_perl.c

@@ -197 +197 @@
-  }
-
+  {
+    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");
@@ -231 +240 @@
-  perl_destruct(my_perl);
-  perl_free(my_perl);
+  PERL_SYS_TERM();
-  my_perl = NULL;
-  if (perl_fd_errlog >= 0) {