From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 7 Dec 1999 09:33:50 +0000 (+0000)
Subject: typos in change#4660
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5014db98d2c6d95f1afa45bfa9fe6b1ddb1a9dc2;p=p5sagit%2Fp5-mst-13.2.git

typos in change#4660

p4raw-link: @4660 on //depot/perl: 014822e4c0d7b7cfffc319235fe7ea64ec87ecae

p4raw-id: //depot/perl@4661
---

diff --git a/embed.h b/embed.h
index a768cb6..b5c1816 100644
--- a/embed.h
+++ b/embed.h
@@ -49,7 +49,7 @@
 #else
 #endif
 #if defined(USE_ITHREADS)
-#  if defined(USE_IMPLICIT_SYS)
+#  if defined(PERL_IMPLICIT_SYS)
 #  endif
 #endif
 #if defined(MYMALLOC)
@@ -1464,7 +1464,7 @@
 #else
 #endif
 #if defined(USE_ITHREADS)
-#  if defined(USE_IMPLICIT_SYS)
+#  if defined(PERL_IMPLICIT_SYS)
 #  endif
 #endif
 #if defined(MYMALLOC)
@@ -2852,7 +2852,7 @@
 #else
 #endif
 #if defined(USE_ITHREADS)
-#  if defined(USE_IMPLICIT_SYS)
+#  if defined(PERL_IMPLICIT_SYS)
 #  endif
 #endif
 #if defined(MYMALLOC)
diff --git a/embed.pl b/embed.pl
index e545124..ed29faa 100755
--- a/embed.pl
+++ b/embed.pl
@@ -1040,7 +1040,7 @@ jno	|int	|perl_parse	|PerlInterpreter* interp|XSINIT_t xsinit \
 				|int argc|char** argv|char** env
 #if defined(USE_ITHREADS)
 jno	|PerlInterpreter*|perl_clone|PerlInterpreter* interp, UV flags
-#  if defined(USE_IMPLICIT_SYS)
+#  if defined(PERL_IMPLICIT_SYS)
 jno	|PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \
 				|struct IPerlMem* m|struct IPerlMem* ms \
 				|struct IPerlMem* mp|struct IPerlEnv* e \
diff --git a/objXSUB.h b/objXSUB.h
index 62d61b1..6a7d171 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -823,7 +823,7 @@
 #else
 #endif
 #if defined(USE_ITHREADS)
-#  if defined(USE_IMPLICIT_SYS)
+#  if defined(PERL_IMPLICIT_SYS)
 #  endif
 #endif
 #if defined(MYMALLOC)
diff --git a/perl.h b/perl.h
index 7e0656a..eae26bb 100644
--- a/perl.h
+++ b/perl.h
@@ -1986,9 +1986,9 @@ END_EXTERN_C
 #  if defined(NeXT) || defined(__NeXT__) /* or whatever catches all NeXTs */
 char *crypt ();       /* Maybe more hosts will need the unprototyped version */
 #  else
-#    if !defined(WIN32) || !defined(HAVE_DES_FCRYPT)
+#    if !defined(WIN32)
 char *crypt (const char*, const char*);
-#    endif /* !WIN32 && !HAVE_CRYPT_SOURCE */
+#    endif /* !WIN32 */
 #  endif /* !NeXT && !__NeXT__ */
 #  ifndef DONT_DECLARE_STD
 #    ifndef getenv
diff --git a/perlapi.c b/perlapi.c
index 7760255..935085a 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -43,7 +43,7 @@ START_EXTERN_C
 #else
 #endif
 #if defined(USE_ITHREADS)
-#  if defined(USE_IMPLICIT_SYS)
+#  if defined(PERL_IMPLICIT_SYS)
 #  endif
 #endif
 #if defined(MYMALLOC)
diff --git a/pp_sys.c b/pp_sys.c
index 8a1c98c..d853f6c 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3602,7 +3602,7 @@ PP(pp_fork)
     PUSHi(childpid);
     RETURN;
 #else
-#  if defined(USE_ITHREADS) && defined(USE_IMPLICIT_SYS)
+#  if defined(USE_ITHREADS) && defined(PERL_IMPLICIT_SYS)
     djSP; dTARGET;
     Pid_t childpid;
 
@@ -3800,7 +3800,7 @@ PP(pp_exec)
 #endif
     }
 
-#if !defined(HAS_FORK) && defined(USE_ITHREADS) && defined(USE_IMPLICIT_SYS)
+#if !defined(HAS_FORK) && defined(USE_ITHREADS) && defined(PERL_IMPLICIT_SYS)
     if (value >= 0)
 	my_exit(value);
 #endif
diff --git a/proto.h b/proto.h
index f057294..f489870 100644
--- a/proto.h
+++ b/proto.h
@@ -20,7 +20,7 @@ PERL_CALLCONV int	perl_run(PerlInterpreter* interp);
 PERL_CALLCONV int	perl_parse(PerlInterpreter* interp, XSINIT_t xsinit, int argc, char** argv, char** env);
 #if defined(USE_ITHREADS)
 PERL_CALLCONV PerlInterpreter*	perl_clone(PerlInterpreter* interp, UV flags);
-#  if defined(USE_IMPLICIT_SYS)
+#  if defined(PERL_IMPLICIT_SYS)
 PERL_CALLCONV PerlInterpreter*	perl_clone_using(PerlInterpreter *interp, UV flags, struct IPerlMem* m, struct IPerlMem* ms, struct IPerlMem* mp, struct IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d, struct IPerlSock* s, struct IPerlProc* p);
 #  endif
 #endif