perl 5.003_04: utils/perldoc.PL

[p5sagit/p5-mst-13.2.git] / perl.c

diff --git a/perl.c b/perl.c
index 0f2c2c1..f1d4aa2 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -15,11 +15,10 @@
 #include "perl.h"
 #include "patchlevel.h"
 
-/* Omit -- it causes too much grief on mixed systems.
+/* XXX If this causes problems, set i_unistd=undef in the hint file.  */
 #ifdef I_UNISTD
 #include <unistd.h>
 #endif
-*/
 
 dEXT char rcsid[] = "perl.c\nPatch level: ###\n";
 
@@ -35,10 +34,6 @@ dEXT char rcsid[] = "perl.c\nPatch level: ###\n";
 #endif
 #endif
 
-#ifndef OSNAME
-#define OSNAME "unknown"
-#endif
-
 static void find_beginning _((void));
 static void incpush _((char *));
 static void init_ids _((void));
@@ -2123,6 +2118,9 @@ init_perllib()
            incpush(getenv("PERLLIB"));
     }
 
+/* Use the ~-expanded versions of APPLIB (undocumented),
+    ARCHLIB PRIVLIB SITEARCH SITELIB and OLDARCHLIB
+*/
 #ifdef APPLLIB_EXP
     incpush(APPLLIB_EXP);
 #endif