Changeset 2026

Timestamp:

08/26/08 12:43:08 (3 months ago)

Author:

pollux

Message:

Use macros PERL_SYS_INIT3 and PERL_SYS_TERM for Perl module.

See http://perldoc.perl.org/perlembed.html for details.

Files:

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

trunk/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) {