Perl_my_p{open,close} do not exist under PERL_IMPLICIT_SYS.
authorNicholas Clark <nick@ccl4.org>
Tue, 19 Jul 2011 11:30:14 +0000 (13:30 +0200)
committerNicholas Clark <nick@ccl4.org>
Sun, 24 Jul 2011 08:22:22 +0000 (10:22 +0200)
PERL_IMPLICIT_SYS only builds on Win32.
Correct embed.fnc to reflect the reality.

embed.fnc
embed.h
global.sym
proto.h

index 9ae216e..089cd43 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -781,8 +781,10 @@ AnpP       |I32    |my_memcmp      |NN const char* s1|NN const char* s2|I32 len
 #if !defined(HAS_MEMSET)
 Anp    |void*  |my_memset      |NN char* loc|I32 ch|I32 len
 #endif
+#if !defined(PERL_IMPLICIT_SYS)
 Ap     |I32    |my_pclose      |NULLOK PerlIO* ptr
 Ap     |PerlIO*|my_popen       |NN const char* cmd|NN const char* mode
+#endif
 Ap     |PerlIO*|my_popen_list  |NN const char* mode|int n|NN SV ** args
 Ap     |void   |my_setenv      |NULLOK const char* nam|NULLOK const char* val
 Apmb   |I32    |my_stat
diff --git a/embed.h b/embed.h
index fa1a2a9..38ce471 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define my_failure_exit()      Perl_my_failure_exit(aTHX)
 #define my_fflush_all()                Perl_my_fflush_all(aTHX)
 #define my_fork                        Perl_my_fork
-#define my_pclose(a)           Perl_my_pclose(aTHX_ a)
-#define my_popen(a,b)          Perl_my_popen(aTHX_ a,b)
 #define my_popen_list(a,b,c)   Perl_my_popen_list(aTHX_ a,b,c)
 #define my_setenv(a,b)         Perl_my_setenv(aTHX_ a,b)
 #define my_socketpair          Perl_my_socketpair
 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
 #define my_chsize(a,b)         Perl_my_chsize(aTHX_ a,b)
 #endif
+#if !defined(PERL_IMPLICIT_SYS)
+#define my_pclose(a)           Perl_my_pclose(aTHX_ a)
+#define my_popen(a,b)          Perl_my_popen(aTHX_ a,b)
+#endif
 #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
 #define my_bcopy               Perl_my_bcopy
 #endif
index 1f59f99..2997fcc 100644 (file)
@@ -342,8 +342,6 @@ Perl_my_fflush_all
 Perl_my_fork
 Perl_my_lstat
 Perl_my_lstat_flags
-Perl_my_pclose
-Perl_my_popen
 Perl_my_popen_list
 Perl_my_setenv
 Perl_my_snprintf
@@ -806,6 +804,8 @@ Perl_signbit
 Perl_my_strlcat
 Perl_my_strlcpy
 Perl_my_chsize
+Perl_my_pclose
+Perl_my_popen
 Perl_my_sprintf
 Perl_my_bcopy
 Perl_hv_assert
diff --git a/proto.h b/proto.h
index 65c89cc..e2c2c8c 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2367,13 +2367,6 @@ PERL_CALLCONV I32        Perl_my_fflush_all(pTHX);
 PERL_CALLCONV Pid_t    Perl_my_fork(void);
 /* PERL_CALLCONV I32   Perl_my_lstat(pTHX); */
 PERL_CALLCONV I32      Perl_my_lstat_flags(pTHX_ const U32 flags);
-PERL_CALLCONV I32      Perl_my_pclose(pTHX_ PerlIO* ptr);
-PERL_CALLCONV PerlIO*  Perl_my_popen(pTHX_ const char* cmd, const char* mode)
-                       __attribute__nonnull__(pTHX_1)
-                       __attribute__nonnull__(pTHX_2);
-#define PERL_ARGS_ASSERT_MY_POPEN      \
-       assert(cmd); assert(mode)
-
 PERL_CALLCONV PerlIO*  Perl_my_popen_list(pTHX_ const char* mode, int n, SV ** args)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_3);
@@ -4689,6 +4682,15 @@ STATIC PerlIO *  S_doopen_pm(pTHX_ SV *name)
        assert(name)
 
 #  endif
+#endif
+#if !defined(PERL_IMPLICIT_SYS)
+PERL_CALLCONV I32      Perl_my_pclose(pTHX_ PerlIO* ptr);
+PERL_CALLCONV PerlIO*  Perl_my_popen(pTHX_ const char* cmd, const char* mode)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+#define PERL_ARGS_ASSERT_MY_POPEN      \
+       assert(cmd); assert(mode)
+
 #endif
 #if !defined(PERL_IS_MINIPERL)
 #  if defined(PERL_IN_PERL_C)