Never attempt to redeclare standard functions
authorAaron Crane <arc@cpan.org>
Sat, 14 Oct 2017 13:11:22 +0000 (15:11 +0200)
committerAaron Crane <arc@cpan.org>
Sat, 21 Oct 2017 15:53:13 +0000 (16:53 +0100)
perl.h
vms/vmsish.h

diff --git a/perl.h b/perl.h
index dca428b..ce96d7b 100644 (file)
--- a/perl.h
+++ b/perl.h
 #define DOSISH 1
 #endif
 
-#if defined(__cplusplus) || defined(WIN32) || defined(__sgi) || defined(__EMX__) || defined(__QNX__) || defined(NETWARE) || defined(PERL_MICRO)
-# define DONT_DECLARE_STD 1
-#endif
-
 /* These exist only for back-compat with XS modules. */
 #ifndef PERL_CORE
 #define VOL volatile
@@ -4008,15 +4004,6 @@ static PERL_MG_UFUNC(foo_get, index, val)
 #define PERL_MG_UFUNC(name,ix,sv) I32 name(pTHX_ IV ix, SV *sv)
 #endif
 
-/* Fix these up for __STDC__ */
-#ifndef DONT_DECLARE_STD
-char *mktemp (char*);
-#ifndef atof
-double atof (const char*);
-#endif
-#endif
-
-
 #ifdef I_MATH
 #    include <math.h>
 #    ifdef __VMS
@@ -4045,18 +4032,6 @@ END_EXTERN_C
 char *crypt (const char*, const char*);
 #endif
 #  endif /* !WIN32 */
-#  ifndef DONT_DECLARE_STD
-#    ifndef getenv
-char *getenv (const char*);
-#    endif /* !getenv */
-#    if !defined(HAS_LSEEK_PROTO) && !defined(__hpux)
-#      ifdef _FILE_OFFSET_BITS
-#        if _FILE_OFFSET_BITS == 64
-Off_t lseek (int,Off_t,int);
-#        endif
-#      endif
-#    endif
-#  endif /* !DONT_DECLARE_STD */
 #  ifndef WIN32
 #    ifndef getlogin
 char *getlogin (void);
@@ -4251,8 +4226,7 @@ typedef void (*despatch_signals_proc_t) (pTHX);
 #  define environ (*_NSGetEnviron())
 #elif defined(USE_ENVIRON_ARRAY)
    /* VMS and some other platforms don't use the environ array */
-#    if !defined(DONT_DECLARE_STD) || \
-        (defined(__svr4__) && defined(__GNUC__) && defined(__sun)) || \
+#    if (defined(__svr4__) && defined(__GNUC__) && defined(__sun)) || \
         defined(__sgi)
 extern char ** environ;        /* environment variables supplied via exec */
 #    endif
index 669ed5c..127ae58 100644 (file)
  * we'll use ours, since it gives us the full VMS exit status. */
 #define waitpid my_waitpid
 
-/* Don't redeclare standard RTL routines in Perl's header files;
- * VMS history or extensions makes some of the formal protoypes
- * differ from the common Unix forms.
- */
-#define DONT_DECLARE_STD 1
-
 /* Our own contribution to PerlShr's global symbols . . . */
 
 #if !defined(PERL_IMPLICIT_CONTEXT)