# 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);