# New Ticket Created by  Steve Peters 
# Please include the string:  [perl #42591]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=42591 >


Index: config/gen/platform/generic/exec.c
===================================================================
--- config/gen/platform/generic/exec.c  (revision 18270)
+++ config/gen/platform/generic/exec.c  (working copy)
@@ -32,7 +32,7 @@
            about to be something else */
         int status;
         status = execlp("sh", "sh", "-c",
-            string_to_cstring(interpreter, command), NULL);
+            string_to_cstring(interpreter, command), (void *)NULL);
         /* if we get here, something's horribly wrong... */
         if (status) {
             exit(status);
@@ -93,7 +93,7 @@
        about to be something else */
     int status;
     status = execlp("sh", "sh", "-c",
-            string_to_cstring(interpreter, command), NULL);
+            string_to_cstring(interpreter, command), (void *)NULL);
     /* if we get here, something's horribly wrong... */
     if (status) {
         internal_exception(NOSPAWN, "Exec failed, code %i", status);

Reply via email to