do_exec needs no compatibility version in mathoms.c as it's not in the API.
authorNicholas Clark <nick@ccl4.org>
Tue, 19 Jul 2011 09:35:22 +0000 (11:35 +0200)
committerNicholas Clark <nick@ccl4.org>
Sun, 24 Jul 2011 08:22:22 +0000 (10:22 +0200)
9555a685dbd794b0 replaced it with a macro and added the full-name version in
mathoms.c to retain compatibility with any program whose source code uses
the full name. However, as do_exec was never in the API, no program would be
using it. (It's also unconditionally explicitly not exported on various
platforms including Win32. Google Codesearch and grep.cpan.me find no users
of it outside the core.)

embed.fnc
global.sym
mathoms.c
proto.h

index 077955f..9ae216e 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -311,7 +311,7 @@ Ap  |bool   |do_close       |NULLOK GV* gv|bool not_implicit
 p      |bool   |do_eof         |NN GV* gv
 
 #ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
-pmb    |bool   |do_exec        |NN const char* cmd
+pm     |bool   |do_exec        |NN const char* cmd
 #else
 p      |bool   |do_exec        |NN const char* cmd
 #endif
index 4f01c7b..1f59f99 100644 (file)
@@ -820,7 +820,6 @@ Perl_get_mstats
 Perl_my_htonl
 Perl_my_ntohl
 Perl_my_swap
-Perl_do_exec
 Perl_gv_SVadd
 Perl_GetVars
 Perl_free_global_struct
index 9ffdf39..8c1c304 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -66,7 +66,6 @@ PERL_CALLCONV HE * Perl_hv_iternext(pTHX_ HV *hv);
 PERL_CALLCONV void Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how);
 PERL_CALLCONV bool Perl_do_open(pTHX_ GV *gv, register const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp);
 PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp);
-PERL_CALLCONV bool Perl_do_exec(pTHX_ const char *cmd);
 PERL_CALLCONV U8 * Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv);
 PERL_CALLCONV bool Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **ep);
 PERL_CALLCONV void Perl_sv_nolocking(pTHX_ SV *sv);
@@ -685,16 +684,6 @@ Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp)
 }
 #endif
 
-#ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
-bool
-Perl_do_exec(pTHX_ const char *cmd)
-{
-    PERL_ARGS_ASSERT_DO_EXEC;
-
-    return do_exec3(cmd,0,0);
-}
-#endif
-
 /* Backwards compatibility. */
 int
 Perl_init_i18nl14n(pTHX_ int printwarn)
diff --git a/proto.h b/proto.h
index 27788b5..65c89cc 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -5008,8 +5008,6 @@ PERL_CALLCONV void        Perl_pending_Slabs_to_ro(pTHX);
 #if defined(PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION)
 /* PERL_CALLCONV bool  Perl_do_exec(pTHX_ const char* cmd)
                        __attribute__nonnull__(pTHX_1); */
-#define PERL_ARGS_ASSERT_DO_EXEC       \
-       assert(cmd)
 
 #endif
 #if defined(PERL_DONT_CREATE_GVSV)