This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "do_exec() is a mathom, so call its replacement directly"
authorGisle Aas <gisle@aas.no>
Thu, 29 Jan 2009 20:00:50 +0000 (21:00 +0100)
committerGisle Aas <gisle@aas.no>
Thu, 29 Jan 2009 20:00:50 +0000 (21:00 +0100)
The change breaks the build on Windows as this function is really
only a mathom when PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION is defined.

This reverts commit 06ba78de6df7f363272e855cc63710a634eb6100.

pp_sys.c

index 841392b..cfbf918 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4260,7 +4260,7 @@ PP(pp_exec)
        (void) do_spawn(SvPVx_nolen(sv_mortalcopy(*SP)));
        value = 0;
 #  else
-       value = (I32)do_exec3(SvPVx_nolen(sv_mortalcopy(*SP)), 0, 0);
+       value = (I32)do_exec(SvPVx_nolen(sv_mortalcopy(*SP)));
 #  endif
 #endif
     }