INN commit: trunk/lib (perl.c)

[INN Commit]

    Date: Sunday, July 20, 2008 @ 03:51:38
  Author: iulius
Revision: 7939

Fix a compilation warning with Perl 5.10.

Modified:
  trunk/lib/perl.c

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

Modified: perl.c
===================================================================
--- perl.c	2008-07-20 10:27:24 UTC (rev 7938)
+++ perl.c	2008-07-20 10:51:38 UTC (rev 7939)
@@ -113,8 +113,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
@@ -123,7 +124,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) {