INN commit: branches/2.4/lib (perl.c)

INN Commit Russ_Allbery at isc.org
Sun Jul 20 10:51:39 UTC 2008


    Date: Sunday, July 20, 2008 @ 03:51:39
  Author: iulius
Revision: 7940

Fix a compilation warning with Perl 5.10.

Modified:
  branches/2.4/lib/perl.c

--------+
 perl.c |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

Modified: perl.c
===================================================================
--- perl.c	2008-07-20 10:51:38 UTC (rev 7939)
+++ perl.c	2008-07-20 10:51:39 UTC (rev 7940)
@@ -110,8 +110,9 @@
     if (PerlCode == NULL) {
         /* Perl waits on standard input if not called with '-e'. */
         int argc = 3;
-        const char *argv[] = { "innd", "-e", "0", NULL };
-        char *env[]  = { NULL };
+        const char *argv_innd[] = { "innd", "-e", "0", NULL };
+        char **argv = (char **)argv_innd; /* Cast required by Perl 5.10. */
+        char **env  = { NULL };
 #ifdef PERL_SYS_INIT3
         PERL_SYS_INIT3(&argc, &argv, &env);
 #endif
@@ -120,7 +121,7 @@
 #ifdef PERL_EXIT_DESTRUCT_END
         PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
 #endif
-        perl_parse(PerlCode, xs_init, argc, (char **)argv, env) ;
+        perl_parse(PerlCode, xs_init, argc, argv, env) ;
     }
     
     if (startupfile != NULL && filterfile != NULL) {



More information about the inn-committers mailing list