Updated for 5.003_07

6 files changed, 35 insertions, 27 deletions

diff --git a/plan9/buildinfo b/plan9/buildinfo
index abd8e5e19e..849d3cef65 100644
--- a/plan9/buildinfo
+++ b/plan9/buildinfo
@@ -1 +1 @@
-p9pvers = 5.003_03
+p9pvers = 5.003_05
diff --git a/plan9/config.plan9 b/plan9/config.plan9
index eccf2fb1b3..1e4ec52521 100644
--- a/plan9/config.plan9
+++ b/plan9/config.plan9
@@ -117,9 +117,9 @@
  *		2 = couldn't cast >= 0x80000000
  *		4 = couldn't cast in argument expression list
  */
-#define	CASTNEGFLOAT		/**/
+#undef	CASTNEGFLOAT		/**/
 #if _P9P_OBJTYPE == 386
-#  define CASTFLAGS 2		/**/ /* config-skip */
+#  define CASTFLAGS 3		/**/ /* config-skip */
 #else
 #  define CASTFLAGS 0		/**/ /* config-skip */
 #endif
@@ -273,7 +273,12 @@
  *	This symbol, if defined, indicates that the getpgrp routine is
  *	available to get the current process group.
  */
+/* USE_BSD_GETPGRP:
+ *	This symbol, if defined, indicates that getpgrp needs one
+ *	arguments whereas USG one needs none.
+ */
 #define HAS_GETPGRP		/**/
+#undef USE_BSD_GETPGRP /**/
 
 /* HAS_GETPGRP2:
  *	This symbol, if defined, indicates that the getpgrp2() (as in DG/UX)
@@ -586,8 +591,14 @@
  *	group is to be used. For instance, you have to say setpgrp(pid, pgrp)
  *	instead of the USG setpgrp().
  */
+/* USE_BSD_SETPGRP:
+ *	This symbol, if defined, indicates that setpgrp needs two
+ *	arguments whereas USG one needs none.  See also HAS_SETPGID
+ *	for a POSIX interface.
+ */
 #undef HAS_SETPGRP		/**/
 #undef USE_BSDPGRP		/**/
+#undef USE_BSD_SETPGRP /**/
 
 /* HAS_SETPGRP2:
  *	This symbol, if defined, indicates that the setpgrp2() (as in DG/UX)
@@ -1340,7 +1351,11 @@
  *	This symbol hold the hexadecimal constant defined in byteorder,
  *	i.e. 0x1234 or 0x4321, etc...
  */
-#define BYTEORDER 0x1234	/* large digits for MSB */
+#if _P9P_OBJTYPE == 386
+#	define BYTEORDER 0x1234	/* little-endian */ /* config-skip */
+#else
+#	define BYTEORDER 0x4321	/* big-endian */  /* config-skip */
+#endif
 
 /* CSH:
  *	This symbol, if defined, indicates that the C-shell exists.
@@ -1580,6 +1595,12 @@
  */
 #undef	USE_SFIO		/**/
 
+/* HAS_GETPGID:
+ *	This symbol, if defined, indicates to the C program that 
+ *	the getpgid(pid) function is available to get the
+ *	process group id.
+ */
+#undef HAS_GETPGID		/**/
 
 /* I_SYS_RESOURCE:
  *	This symbol, if defined, indicates to the C program that it should
diff --git a/plan9/exclude b/plan9/exclude
index 5b52d96d24..2b941ff99c 100644
--- a/plan9/exclude
+++ b/plan9/exclude
@@ -1,29 +1,16 @@
 comp/cpp.t
-comp/script.t
-io/argv.t
 io/dup.t
 io/fs.t
-io/inplace.t
-io/pipe.t
 lib/anydbm.t
-lib/dirhand.t
-lib/filehand.t
 lib/io_dup.t
 lib/io_pipe.t
 lib/io_sock.t
-lib/io_tell.t
 lib/io_udp.t
 lib/posix.t
-lib/safe1.t
-lib/safe2.t
 lib/socket.t
-op/eval.t
 op/exec.t
 op/goto.t
-op/magic.t
 op/misc.t
 op/oct.t
-op/readdir.t
 op/split.t
 op/stat.t
-op/tie.t
diff --git a/plan9/mkfile b/plan9/mkfile
index eeeb045a4b..dc10cf6a70 100644
--- a/plan9/mkfile
+++ b/plan9/mkfile
@@ -8,7 +8,7 @@ archlib = /$objtype/lib/perl/$p9pvers
 sitelib = $privlib/site_perl
 sitearch = $archlib/site_perl
 
-CFLAGS =  -B  -D_POSIX_SOURCE -D_BSD_EXTENSION -DNO_EMBED
+CFLAGS =  -B  -D_POSIX_SOURCE -D_BSD_EXTENSION -DNO_EMBED -DMY_UV_MAX=0x7fffffffUL
 LDFLAGS = -B 
 
 CCCMD = $CC  -c $CFLAGS 
@@ -39,7 +39,7 @@ testlist = base/*.t comp/*.t cmd/*.t io/*.t op/*.t
 
 install:V:	perl preplibrary 
 		cp perl /$objtype/bin/perl
-		cp plan9/aperl /rc/bin/aperl
+		cp plan9/aperl /rc/bin/Perl
 		
 perl:		config.h miniperlmain.$O miniperl $archlib/Config.pm perlmain.$O $perlshr 
 		$LD $CFLAGS -o perl perlmain.$O $perllib $perlshr
diff --git a/plan9/perlplan9.doc b/plan9/perlplan9.doc
index 5fc6e0f3a6..d6d7df8b74 100644
--- a/plan9/perlplan9.doc
+++ b/plan9/perlplan9.doc
@@ -1,5 +1,5 @@
 
-     PLAN9/PERLPLAN9(1)   (perl 5.003, patch 01)    PLAN9/PERLPLAN9(1)
+     PLAN9/PERLPLAN9(1)   (perl 5.003, patch 05)    PLAN9/PERLPLAN9(1)
 
      NNNNAAAAMMMMEEEE
           perlplan9 - Plan 9-specific documentation for Perl
@@ -22,7 +22,7 @@
           should be "#!/bin/perl" if you wish to be able to directly
           invoke the script by its name.
                Alternatively, you may invoke perl with the command
-          "aperl" instead of "perl". This will produce Acme-friendly
+          "Perl" instead of "perl". This will produce Acme-friendly
           error messages of the form "filename:18".
 
           Some scripts, usually identified with a *.PL extension, are
@@ -52,9 +52,9 @@
 
           The functions not currently implemented include:
 
-     Page 1                      6/Aug/96             (printed 8/6/96)
+     Page 1                      9/Oct/96            (printed 10/9/96)
 
-     PLAN9/PERLPLAN9(1)   (perl 5.003, patch 01)    PLAN9/PERLPLAN9(1)
+     PLAN9/PERLPLAN9(1)   (perl 5.003, patch 05)    PLAN9/PERLPLAN9(1)
 
               chown, chroot, dbmclose, dbmopen, getsockopt,
               setsockopt, recvmsg, sendmsg, getnetbyname,
@@ -82,10 +82,10 @@
           the world . . ." - Carl Sagan
 
      RRRReeeevvvviiiissssiiiioooonnnn ddddaaaatttteeee
-          This document was revised 06-August-1996 for Perl 5.003_2.
+          This document was revised 09-October-1996 for Perl 5.003_7.
 
      AAAAUUUUTTTTHHHHOOOORRRR
           Luther Huffman,    lutherh@stratcom.com
 
-     Page 2                      6/Aug/96             (printed 8/6/96)
+     Page 2                      9/Oct/96            (printed 10/9/96)
 
diff --git a/plan9/perlplan9.pod b/plan9/perlplan9.pod
index f632d45abf..fb58149440 100644
--- a/plan9/perlplan9.pod
+++ b/plan9/perlplan9.pod
@@ -21,7 +21,7 @@ such as "#!/usr/local/bin/perl". This is known as a shebang
 the perl interpreter. In Plan 9 Perl this statement should be 
 "#!/bin/perl" if you wish to be able to directly invoke the 
 script by its name.
-     Alternatively, you may invoke perl with the command "aperl"
+     Alternatively, you may invoke perl with the command "Perl"
 instead of "perl". This will produce Acme-friendly error
 messages of the form "filename:18".
 
@@ -80,7 +80,7 @@ world . . ." - Carl Sagan
 
 =head1 Revision date
 
-This document was revised 06-August-1996 for Perl 5.003_2.
+This document was revised 09-October-1996 for Perl 5.003_7.
 
 =head1 AUTHOR