home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume20 / perl / patch07 < prev    next >
Encoding:
Text File  |  1991-06-19  |  52.4 KB  |  1,878 lines
  1. Newsgroups: comp.sources.misc
  2. From: Larry Wall <lwall@netlabs.com>
  3. Subject:  v20i059:  perl - The perl programming language, Patch07
  4. Message-ID: <1991Jun20.030604.8730@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: 4fa1de934e390fe5250280b21130be67
  6. Date: Thu, 20 Jun 1991 03:06:04 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Larry Wall <lwall@netlabs.com>
  10. Posting-number: Volume 20, Issue 59
  11. Archive-name: perl/patch07
  12. Patch-To: perl: Volume 18, Issue 19-54
  13.  
  14. System: perl version 4.0
  15. Patch #: 7
  16. Priority: High
  17. Subject: patch #4, continued
  18.  
  19. Description:
  20.     See patch #4.
  21.  
  22. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your perl source
  23.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  24.     If you don't have the patch program, apply the following by hand,
  25.     or get patch (version 2.0, latest patchlevel).
  26.  
  27.     After patching:
  28.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #09 FIRST ***
  29.  
  30.     If patch indicates that patchlevel is the wrong version, you may need
  31.     to apply one or more previous patches, or the patch may already
  32.     have been applied.  See the patchlevel.h file to find out what has or
  33.     has not been applied.  In any event, don't continue with the patch.
  34.  
  35.     If you are missing previous patches they can be obtained from me:
  36.  
  37.     Larry Wall
  38.     lwall@netlabs.com
  39.  
  40.     If you send a mail message of the following form it will greatly speed
  41.     processing:
  42.  
  43.     Subject: Command
  44.     @SH mailpatch PATH perl 4.0 LIST
  45.            ^ note the c
  46.  
  47.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  48.     or in bang notation from some well-known host, and LIST is the number
  49.     of one or more patches you need, separated by spaces, commas, and/or
  50.     hyphens.  Saying 35- says everything from 35 to the end.
  51.  
  52.  
  53. Index: patchlevel.h
  54. Prereq: 6
  55. 1c1
  56. < #define PATCHLEVEL 6
  57. ---
  58. > #define PATCHLEVEL 7
  59.  
  60. Index: x2p/hash.c
  61. Prereq: 4.0
  62. *** x2p/hash.c.old    Fri Jun  7 12:28:04 1991
  63. --- x2p/hash.c    Fri Jun  7 12:28:05 1991
  64. ***************
  65. *** 1,11 ****
  66. ! /* $Header: hash.c,v 4.0 91/03/20 01:57:49 lwall Locked $
  67.    *
  68. !  *    Copyright (c) 1989, Larry Wall
  69.    *
  70. !  *    You may distribute under the terms of the GNU General Public License
  71. !  *    as specified in the README file that comes with the perl 3.0 kit.
  72.    *
  73.    * $Log:    hash.c,v $
  74.    * Revision 4.0  91/03/20  01:57:49  lwall
  75.    * 4.0 baseline.
  76.    * 
  77. --- 1,14 ----
  78. ! /* $RCSfile: hash.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:15:55 $
  79.    *
  80. !  *    Copyright (c) 1991, Larry Wall
  81.    *
  82. !  *    You may distribute under the terms of either the GNU General Public
  83. !  *    License or the Artistic License, as specified in the README file.
  84.    *
  85.    * $Log:    hash.c,v $
  86. +  * Revision 4.0.1.1  91/06/07  12:15:55  lwall
  87. +  * patch4: new copyright notice
  88. +  * 
  89.    * Revision 4.0  91/03/20  01:57:49  lwall
  90.    * 4.0 baseline.
  91.    * 
  92.  
  93. Index: hash.h
  94. Prereq: 4.0
  95. *** hash.h.old    Fri Jun  7 12:24:15 1991
  96. --- hash.h    Fri Jun  7 12:24:15 1991
  97. ***************
  98. *** 1,11 ****
  99. ! /* $Header: hash.h,v 4.0 91/03/20 01:22:38 lwall Locked $
  100.    *
  101. !  *    Copyright (c) 1989, Larry Wall
  102.    *
  103. !  *    You may distribute under the terms of the GNU General Public License
  104. !  *    as specified in the README file that comes with the perl 3.0 kit.
  105.    *
  106.    * $Log:    hash.h,v $
  107.    * Revision 4.0  91/03/20  01:22:38  lwall
  108.    * 4.0 baseline.
  109.    * 
  110. --- 1,14 ----
  111. ! /* $RCSfile: hash.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:10:33 $
  112.    *
  113. !  *    Copyright (c) 1991, Larry Wall
  114.    *
  115. !  *    You may distribute under the terms of either the GNU General Public
  116. !  *    License or the Artistic License, as specified in the README file.
  117.    *
  118.    * $Log:    hash.h,v $
  119. +  * Revision 4.0.1.1  91/06/07  11:10:33  lwall
  120. +  * patch4: new copyright notice
  121. +  * 
  122.    * Revision 4.0  91/03/20  01:22:38  lwall
  123.    * 4.0 baseline.
  124.    * 
  125.  
  126. Index: x2p/hash.h
  127. Prereq: 4.0
  128. *** x2p/hash.h.old    Fri Jun  7 12:28:07 1991
  129. --- x2p/hash.h    Fri Jun  7 12:28:07 1991
  130. ***************
  131. *** 1,11 ****
  132. ! /* $Header: hash.h,v 4.0 91/03/20 01:57:53 lwall Locked $
  133.    *
  134. !  *    Copyright (c) 1989, Larry Wall
  135.    *
  136. !  *    You may distribute under the terms of the GNU General Public License
  137. !  *    as specified in the README file that comes with the perl 3.0 kit.
  138.    *
  139.    * $Log:    hash.h,v $
  140.    * Revision 4.0  91/03/20  01:57:53  lwall
  141.    * 4.0 baseline.
  142.    * 
  143. --- 1,14 ----
  144. ! /* $RCSfile: hash.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:16:04 $
  145.    *
  146. !  *    Copyright (c) 1991, Larry Wall
  147.    *
  148. !  *    You may distribute under the terms of either the GNU General Public
  149. !  *    License or the Artistic License, as specified in the README file.
  150.    *
  151.    * $Log:    hash.h,v $
  152. +  * Revision 4.0.1.1  91/06/07  12:16:04  lwall
  153. +  * patch4: new copyright notice
  154. +  * 
  155.    * Revision 4.0  91/03/20  01:57:53  lwall
  156.    * 4.0 baseline.
  157.    * 
  158.  
  159. Index: hints/hpux.sh
  160. *** hints/hpux.sh.old    Fri Jun  7 12:24:28 1991
  161. --- hints/hpux.sh    Fri Jun  7 12:24:29 1991
  162. ***************
  163. *** 1,4 ****
  164. - d_syscall=$undef
  165.   echo " "
  166.   echo "NOTE: regression test op.read may fail due to an NFS bug in HP/UX."
  167.   echo "If so, don't worry about it."
  168. --- 1,7 ----
  169.   echo " "
  170.   echo "NOTE: regression test op.read may fail due to an NFS bug in HP/UX."
  171.   echo "If so, don't worry about it."
  172. + case `(uname -r) 2>/dev/null` in
  173. + *3.1*) d_syscall=$undef ;;
  174. + *2.1*) libswanted=`echo $libswanted | sed 's/ malloc / /'` ;;
  175. + esac
  176.  
  177. Index: installperl
  178. *** installperl.old    Fri Jun  7 12:25:08 1991
  179. --- installperl    Fri Jun  7 12:25:08 1991
  180. ***************
  181. *** 6,13 ****
  182.       shift;
  183.   }
  184.   
  185. ! @scripts = 'h2ph';
  186. ! @manpages = ('perl.man', 'h2ph.man');
  187.   
  188.   $version = sprintf("%5.3f", $]);
  189.   $release = substr($version,0,3);
  190. --- 6,13 ----
  191.       shift;
  192.   }
  193.   
  194. ! @scripts = ('h2ph', 'x2p/s2p', 'x2p/find2perl');
  195. ! @manpages = ('perl.man', 'h2ph.man', 'x2p/a2p.man', 'x2p/s2p.man');
  196.   
  197.   $version = sprintf("%5.3f", $]);
  198.   $release = substr($version,0,3);
  199. ***************
  200. *** 72,77 ****
  201. --- 72,85 ----
  202.       &link("$installbin/sperl$ver", "$installbin/suidperl") if $d_dosuid;
  203.   }
  204.   
  205. + ($bdev,$bino) = stat($installbin);
  206. + ($ddev,$dino) = stat('x2p');
  207. + 
  208. + if ($bdev != $ddev || $bino != $dino) {
  209. +     &unlink("$installbin/a2p");
  210. +     &cmd("cp x2p/a2p $installbin/a2p");
  211. + }
  212. + 
  213.   # Make some enemies in the name of standardization.   :-)
  214.   
  215.   ($udev,$uino) = stat("/usr/bin");
  216. ***************
  217. *** 85,95 ****
  218.   
  219.   # Install scripts.
  220.   
  221. ! &makedir($scriptdir);
  222.   
  223.   for (@scripts) {
  224. !     &cmd("cp $_ $scriptdir");
  225. !     &chmod(0755, "$scriptdir/$_");
  226.   }
  227.   
  228.   # Install library files.
  229. --- 93,103 ----
  230.   
  231.   # Install scripts.
  232.   
  233. ! &makedir($installscr);
  234.   
  235.   for (@scripts) {
  236. !     &cmd("cp $_ $installscr");
  237. !     s#.*/##; &chmod(0755, "$installscr/$_");
  238.   }
  239.   
  240.   # Install library files.
  241. ***************
  242. *** 111,116 ****
  243. --- 119,125 ----
  244.       if ($mdev != $ddev || $mino != $dino) {
  245.       for (@manpages) {
  246.           ($new = $_) =~ s/man$/$manext/;
  247. +         $new =~ s#.*/##;
  248.           print STDERR "  Installing $mansrc/$new\n";
  249.           next if $nonono;
  250.           open(MI,$_);
  251.  
  252. Index: makedepend.SH
  253. Prereq: 4.0
  254. *** makedepend.SH.old    Fri Jun  7 12:25:25 1991
  255. --- makedepend.SH    Fri Jun  7 12:25:26 1991
  256. ***************
  257. *** 15,23 ****
  258.   echo "Extracting makedepend (with variable substitutions)"
  259.   $spitshell >makedepend <<!GROK!THIS!
  260.   $startsh
  261. ! # $Header: makedepend.SH,v 4.0 91/03/20 01:27:04 lwall Locked $
  262.   #
  263.   # $Log:    makedepend.SH,v $
  264.   # Revision 4.0  91/03/20  01:27:04  lwall
  265.   # 4.0 baseline.
  266.   # 
  267. --- 15,29 ----
  268.   echo "Extracting makedepend (with variable substitutions)"
  269.   $spitshell >makedepend <<!GROK!THIS!
  270.   $startsh
  271. ! # $RCSfile: makedepend.SH,v $$Revision: 4.0.1.2 $$Date: 91/06/07 15:40:06 $
  272.   #
  273.   # $Log:    makedepend.SH,v $
  274. + # Revision 4.0.1.2  91/06/07  15:40:06  lwall
  275. + # patch4: fixed cppstdin to run in the right directory
  276. + # 
  277. + # Revision 4.0.1.1  91/06/07  11:20:06  lwall
  278. + # patch4: Makefile is no longer self-modifying code under makedepend
  279. + # 
  280.   # Revision 4.0  91/03/20  01:27:04  lwall
  281.   # 4.0 baseline.
  282.   # 
  283. ***************
  284. *** 28,34 ****
  285.   cat='$cat'
  286.   cppflags='$cppflags'
  287.   cp='$cp'
  288. ! cpp='$cppstdin'
  289.   echo='$echo'
  290.   egrep='$egrep'
  291.   expr='$expr'
  292. --- 34,41 ----
  293.   cat='$cat'
  294.   cppflags='$cppflags'
  295.   cp='$cp'
  296. ! cppstdin='$cppstdin'
  297. ! cppminus='$cppminus'
  298.   echo='$echo'
  299.   egrep='$egrep'
  300.   expr='$expr'
  301. ***************
  302. *** 46,55 ****
  303.   $cat /dev/null >.deptmp
  304.   $rm -f *.c.c c/*.c.c
  305.   if test -f Makefile; then
  306. !     mf=Makefile
  307. ! else
  308. !     mf=makefile
  309.   fi
  310.   if test -f $mf; then
  311.       defrule=`<$mf sed -n        \
  312.       -e '/^\.c\.o:.*;/{'        \
  313. --- 53,61 ----
  314.   $cat /dev/null >.deptmp
  315.   $rm -f *.c.c c/*.c.c
  316.   if test -f Makefile; then
  317. !     cp Makefile makefile
  318.   fi
  319. + mf=makefile
  320.   if test -f $mf; then
  321.       defrule=`<$mf sed -n        \
  322.       -e '/^\.c\.o:.*;/{'        \
  323. ***************
  324. *** 84,90 ****
  325.       -e 's|\\$||' \
  326.       -e p \
  327.       -e '}'
  328. !     $cpp -I/usr/local/include -I. $cppflags $file.c | \
  329.       $sed \
  330.       -e '/^# *[0-9]/!d' \
  331.       -e 's/^.*"\(.*\)".*$/'$filebase'.o: \1/' \
  332. --- 90,96 ----
  333.       -e 's|\\$||' \
  334.       -e p \
  335.       -e '}'
  336. !     $cppstdin -I/usr/local/include -I. $cppflags $cppminus <$file.c | sed -e 's#\.[0-9][0-9]*\.c#'"$file.c#" | \
  337.       $sed \
  338.       -e '/^# *[0-9]/!d' \
  339.       -e 's/^.*"\(.*\)".*$/'$filebase'.o: \1/' \
  340. ***************
  341. *** 93,144 ****
  342.       $uniq | $sort | $uniq >> .deptmp
  343.   done
  344.   
  345. ! $sed <Makefile >Makefile.new -e '1,/^# AUTOMATICALLY/!d'
  346.   
  347.   make shlist || ($echo "Searching for .SH files..."; \
  348.       $echo *.SH | $tr ' ' '\012' | $egrep -v '\*' >.shlist)
  349.   if $test -s .deptmp; then
  350.       for file in `cat .shlist`; do
  351. !     $echo `$expr X$file : 'X\(.*\).SH`: $file config.sh \; \
  352.           /bin/sh $file >> .deptmp
  353.       done
  354. !     $echo "Updating Makefile..."
  355.       $echo "# If this runs make out of memory, delete /usr/include lines." \
  356. !     >> Makefile.new
  357.       $sed 's|^\(.*\.o:\) *\(.*/.*\.c\) *$|\1 \2; '"$defrule \2|" .deptmp \
  358. !        >>Makefile.new
  359.   else
  360.       make hlist || ($echo "Searching for .h files..."; \
  361.       $echo *.h | $tr ' ' '\012' | $egrep -v '\*' >.hlist)
  362.       $echo "You don't seem to have a proper C preprocessor.  Using grep instead."
  363.       $egrep '^#include ' `cat .clist` `cat .hlist`  >.deptmp
  364. !     $echo "Updating Makefile..."
  365.       <.clist $sed -n                            \
  366.       -e '/\//{'                            \
  367.       -e   's|^\(.*\)/\(.*\)\.c|\2.o: \1/\2.c; '"$defrule \1/\2.c|p"    \
  368.       -e   d                                \
  369.       -e '}'                                \
  370. !     -e 's|^\(.*\)\.c|\1.o: \1.c|p' >> Makefile.new
  371.       <.hlist $sed -n 's|\(.*/\)\(.*\)|s= \2= \1\2=|p' >.hsed
  372.       <.deptmp $sed -n 's|c:#include "\(.*\)".*$|o: \1|p' | \
  373.          $sed 's|^[^;]*/||' | \
  374. !        $sed -f .hsed >> Makefile.new
  375.       <.deptmp $sed -n 's|c:#include <\(.*\)>.*$|o: /usr/include/\1|p' \
  376. !        >> Makefile.new
  377.       <.deptmp $sed -n 's|h:#include "\(.*\)".*$|h: \1|p' | \
  378. !        $sed -f .hsed >> Makefile.new
  379.       <.deptmp $sed -n 's|h:#include <\(.*\)>.*$|h: /usr/include/\1|p' \
  380. !        >> Makefile.new
  381.       for file in `$cat .shlist`; do
  382. !     $echo `$expr X$file : 'X\(.*\).SH`: $file config.sh \; \
  383. !         /bin/sh $file >> Makefile.new
  384.       done
  385.   fi
  386. ! $rm -f Makefile.old
  387. ! $cp Makefile Makefile.old
  388. ! $cp Makefile.new Makefile
  389. ! $rm Makefile.new
  390. ! $echo "# WARNING: Put nothing here or make depend will gobble it up!" >> Makefile
  391.   $rm -f .deptmp `sed 's/\.c/.c.c/' .clist` .shlist .clist .hlist .hsed
  392.   
  393.   !NO!SUBS!
  394. --- 99,150 ----
  395.       $uniq | $sort | $uniq >> .deptmp
  396.   done
  397.   
  398. ! $sed <$mf >$mf.new -e '1,/^# AUTOMATICALLY/!d'
  399.   
  400.   make shlist || ($echo "Searching for .SH files..."; \
  401.       $echo *.SH | $tr ' ' '\012' | $egrep -v '\*' >.shlist)
  402.   if $test -s .deptmp; then
  403.       for file in `cat .shlist`; do
  404. !     $echo `$expr X$file : 'X\(.*\).SH'`: $file config.sh \; \
  405.           /bin/sh $file >> .deptmp
  406.       done
  407. !     $echo "Updating $mf..."
  408.       $echo "# If this runs make out of memory, delete /usr/include lines." \
  409. !     >> $mf.new
  410.       $sed 's|^\(.*\.o:\) *\(.*/.*\.c\) *$|\1 \2; '"$defrule \2|" .deptmp \
  411. !        >>$mf.new
  412.   else
  413.       make hlist || ($echo "Searching for .h files..."; \
  414.       $echo *.h | $tr ' ' '\012' | $egrep -v '\*' >.hlist)
  415.       $echo "You don't seem to have a proper C preprocessor.  Using grep instead."
  416.       $egrep '^#include ' `cat .clist` `cat .hlist`  >.deptmp
  417. !     $echo "Updating $mf..."
  418.       <.clist $sed -n                            \
  419.       -e '/\//{'                            \
  420.       -e   's|^\(.*\)/\(.*\)\.c|\2.o: \1/\2.c; '"$defrule \1/\2.c|p"    \
  421.       -e   d                                \
  422.       -e '}'                                \
  423. !     -e 's|^\(.*\)\.c|\1.o: \1.c|p' >> $mf.new
  424.       <.hlist $sed -n 's|\(.*/\)\(.*\)|s= \2= \1\2=|p' >.hsed
  425.       <.deptmp $sed -n 's|c:#include "\(.*\)".*$|o: \1|p' | \
  426.          $sed 's|^[^;]*/||' | \
  427. !        $sed -f .hsed >> $mf.new
  428.       <.deptmp $sed -n 's|c:#include <\(.*\)>.*$|o: /usr/include/\1|p' \
  429. !        >> $mf.new
  430.       <.deptmp $sed -n 's|h:#include "\(.*\)".*$|h: \1|p' | \
  431. !        $sed -f .hsed >> $mf.new
  432.       <.deptmp $sed -n 's|h:#include <\(.*\)>.*$|h: /usr/include/\1|p' \
  433. !        >> $mf.new
  434.       for file in `$cat .shlist`; do
  435. !     $echo `$expr X$file : 'X\(.*\).SH'`: $file config.sh \; \
  436. !         /bin/sh $file >> $mf.new
  437.       done
  438.   fi
  439. ! $rm -f $mf.old
  440. ! $cp $mf $mf.old
  441. ! $cp $mf.new $mf
  442. ! $rm $mf.new
  443. ! $echo "# WARNING: Put nothing here or make depend will gobble it up!" >> $mf
  444.   $rm -f .deptmp `sed 's/\.c/.c.c/' .clist` .shlist .clist .hlist .hsed
  445.   
  446.   !NO!SUBS!
  447.  
  448. Index: malloc.c
  449. *** malloc.c.old    Fri Jun  7 12:25:29 1991
  450. --- malloc.c    Fri Jun  7 12:25:30 1991
  451. ***************
  452. *** 1,6 ****
  453. ! /* $RCSfile: malloc.c,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:48:31 $
  454.    *
  455.    * $Log:    malloc.c,v $
  456.    * Revision 4.0.1.1  91/04/11  17:48:31  lwall
  457.    * patch1: Configure now figures out malloc ptr type
  458.    * 
  459. --- 1,9 ----
  460. ! /* $RCSfile: malloc.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 11:20:45 $
  461.    *
  462.    * $Log:    malloc.c,v $
  463. +  * Revision 4.0.1.2  91/06/07  11:20:45  lwall
  464. +  * patch4: many, many itty-bitty portability fixes
  465. +  * 
  466.    * Revision 4.0.1.1  91/04/11  17:48:31  lwall
  467.    * patch1: Configure now figures out malloc ptr type
  468.    * 
  469. ***************
  470. *** 160,166 ****
  471.       p->ov_rmagic = RMAGIC;
  472.         *((u_int *)((caddr_t)p + nbytes - RSLOP)) = RMAGIC;
  473.   #endif
  474. !       return ((char *)(p + 1));
  475.   }
  476.   
  477.   /*
  478. --- 163,169 ----
  479.       p->ov_rmagic = RMAGIC;
  480.         *((u_int *)((caddr_t)p + nbytes - RSLOP)) = RMAGIC;
  481.   #endif
  482. !       return ((MALLOCPTRTYPE *)(p + 1));
  483.   }
  484.   
  485.   /*
  486. ***************
  487. *** 230,240 ****
  488.   }
  489.   
  490.   void
  491. ! free(cp)
  492. !     char *cp;
  493.   {   
  494.         register int size;
  495.       register union overhead *op;
  496.   
  497.         if (cp == NULL)
  498.             return;
  499. --- 233,244 ----
  500.   }
  501.   
  502.   void
  503. ! free(mp)
  504. !     MALLOCPTRTYPE *mp;
  505.   {   
  506.         register int size;
  507.       register union overhead *op;
  508. +     char *cp = (char*)mp;
  509.   
  510.         if (cp == NULL)
  511.             return;
  512. ***************
  513. *** 277,284 ****
  514.   int reall_srchlen = 4;    /* 4 should be plenty, -1 =>'s whole list */
  515.   
  516.   MALLOCPTRTYPE *
  517. ! realloc(cp, nbytes)
  518. !     char *cp; 
  519.       unsigned nbytes;
  520.   {   
  521.         register u_int onb;
  522. --- 281,288 ----
  523.   int reall_srchlen = 4;    /* 4 should be plenty, -1 =>'s whole list */
  524.   
  525.   MALLOCPTRTYPE *
  526. ! realloc(mp, nbytes)
  527. !     MALLOCPTRTYPE *mp; 
  528.       unsigned nbytes;
  529.   {   
  530.         register u_int onb;
  531. ***************
  532. *** 286,291 ****
  533. --- 290,296 ----
  534.         char *res;
  535.       register int i;
  536.       int was_alloced = 0;
  537. +     char *cp = (char*)mp;
  538.   
  539.         if (cp == NULL)
  540.             return (malloc(nbytes));
  541. ***************
  542. *** 331,345 ****
  543.               *((u_int *)((caddr_t)op + nbytes - RSLOP)) = RMAGIC;
  544.           }
  545.   #endif
  546. !         return(cp);
  547.       }
  548. !       if ((res = malloc(nbytes)) == NULL)
  549.             return (NULL);
  550.         if (cp != res)            /* common optimization */
  551.           (void)bcopy(cp, res, (int)((nbytes < onb) ? nbytes : onb));
  552.         if (was_alloced)
  553.           free(cp);
  554. !       return (res);
  555.   }
  556.   
  557.   /*
  558. --- 336,350 ----
  559.               *((u_int *)((caddr_t)op + nbytes - RSLOP)) = RMAGIC;
  560.           }
  561.   #endif
  562. !         return((MALLOCPTRTYPE*)cp);
  563.       }
  564. !       if ((res = (char*)malloc(nbytes)) == NULL)
  565.             return (NULL);
  566.         if (cp != res)            /* common optimization */
  567.           (void)bcopy(cp, res, (int)((nbytes < onb) ? nbytes : onb));
  568.         if (was_alloced)
  569.           free(cp);
  570. !       return ((MALLOCPTRTYPE*)res);
  571.   }
  572.   
  573.   /*
  574.  
  575. Index: hints/mips.sh
  576. *** hints/mips.sh.old    Fri Jun  7 12:24:31 1991
  577. --- hints/mips.sh    Fri Jun  7 12:24:31 1991
  578. ***************
  579. *** 1,6 ****
  580. ! optimize='-g'
  581.   d_volatile=undef
  582.   d_castneg=undef
  583.   cc=cc
  584.   libpth="/usr/lib/cmplrs/cc $libpth"
  585.   groupstype=int
  586. --- 1,17 ----
  587. ! cmd_cflags='optimize="-g"'
  588. ! perl_cflags='optimize="-g"'
  589. ! tcmd_cflags='optimize="-g"'
  590. ! tperl_cflags='optimize="-g"'
  591.   d_volatile=undef
  592.   d_castneg=undef
  593.   cc=cc
  594.   libpth="/usr/lib/cmplrs/cc $libpth"
  595.   groupstype=int
  596. + nm_opts='-B'
  597. + case $PATH in
  598. + *bsd*:/bin:*) cat <<END
  599. + NOTE:  Some people have reported having much better luck with Mips CC than
  600. + with the BSD cc.  Put /bin first in your PATH if you have difficulties.
  601. + END
  602. + ;;
  603. + esac
  604.  
  605. Index: h2pl/mkvars
  606. *** h2pl/mkvars.old    Fri Jun  7 12:24:06 1991
  607. --- h2pl/mkvars    Fri Jun  7 12:24:06 1991
  608. ***************
  609. *** 19,25 ****
  610.           $val = eval "&$var;";
  611.           if ($@) {
  612.           warn "$@: $_";
  613. !         print <<EOT
  614.   warn "\$$var isn't correctly set" if defined \$_main{'$var'};
  615.   EOT
  616.           next;
  617. --- 19,25 ----
  618.           $val = eval "&$var;";
  619.           if ($@) {
  620.           warn "$@: $_";
  621. !         print <<EOT;
  622.   warn "\$$var isn't correctly set" if defined \$_main{'$var'};
  623.   EOT
  624.           next;
  625.  
  626. Index: msdos/msdos.c
  627. Prereq: 4.0
  628. *** msdos/msdos.c.old    Fri Jun  7 12:25:45 1991
  629. --- msdos/msdos.c    Fri Jun  7 12:25:45 1991
  630. ***************
  631. *** 1,11 ****
  632. ! /* $Header: msdos.c,v 4.0 91/03/20 01:34:46 lwall Locked $
  633.    *
  634.    *    (C) Copyright 1989, 1990 Diomidis Spinellis.
  635.    *
  636. !  *    You may distribute under the terms of the GNU General Public License
  637. !  *    as specified in the README file that comes with the perl 3.0 kit.
  638.    *
  639.    * $Log:    msdos.c,v $
  640.    * Revision 4.0  91/03/20  01:34:46  lwall
  641.    * 4.0 baseline.
  642.    * 
  643. --- 1,14 ----
  644. ! /* $RCSfile: msdos.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:22:37 $
  645.    *
  646.    *    (C) Copyright 1989, 1990 Diomidis Spinellis.
  647.    *
  648. !  *    You may distribute under the terms of either the GNU General Public
  649. !  *    License or the Artistic License, as specified in the README file.
  650.    *
  651.    * $Log:    msdos.c,v $
  652. +  * Revision 4.0.1.1  91/06/07  11:22:37  lwall
  653. +  * patch4: new copyright notice
  654. +  * 
  655.    * Revision 4.0  91/03/20  01:34:46  lwall
  656.    * 4.0 baseline.
  657.    * 
  658.  
  659. Index: lib/newgetopt.pl
  660. *** lib/newgetopt.pl.old    Fri Jun  7 12:25:16 1991
  661. --- lib/newgetopt.pl    Fri Jun  7 12:25:16 1991
  662. ***************
  663. *** 0 ****
  664. --- 1,204 ----
  665. + # newgetopt.pl -- new options parsing
  666. + 
  667. + # SCCS Status     : @(#)@ newgetopt.pl    1.7
  668. + # Author          : Johan Vromans
  669. + # Created On      : Tue Sep 11 15:00:12 1990
  670. + # Last Modified By: Johan Vromans
  671. + # Last Modified On: Sun Oct 14 14:35:36 1990
  672. + # Update Count    : 34
  673. + # Status          : Okay
  674. + 
  675. + # This package implements a new getopt function. This function adheres
  676. + # to the new syntax (long option names, no bundling).
  677. + #
  678. + # Arguments to the function are:
  679. + #
  680. + #  - a list of possible options. These should designate valid perl
  681. + #    identifiers, optionally followed by an argument specifier ("="
  682. + #    for mandatory arguments or ":" for optional arguments) and an
  683. + #    argument type specifier: "n" or "i" for integer numbers, "f" for
  684. + #    real (fix) numbers or "s" for strings.
  685. + #
  686. + #  - if the first option of the list consists of non-alphanumeric
  687. + #    characters only, it is interpreted as a generic option starter.
  688. + #    Everything starting with one of the characters from the starter
  689. + #    will be considered an option.
  690. + #    Likewise, a double occurrence (e.g. "--") signals end of
  691. + #    the options list.
  692. + #    The default value for the starter is "-".
  693. + #
  694. + # Upon return, the option variables, prefixed with "opt_", are defined
  695. + # and set to the respective option arguments, if any.
  696. + # Options that do not take an argument are set to 1. Note that an
  697. + # option with an optional argument will be defined, but set to '' if
  698. + # no actual argument has been supplied.
  699. + # A return status of 0 (false) indicates that the function detected
  700. + # one or more errors.
  701. + #
  702. + # Special care is taken to give a correct treatment to optional arguments.
  703. + #
  704. + # E.g. if option "one:i" (i.e. takes an optional integer argument),
  705. + # then the following situations are handled:
  706. + #
  707. + #    -one -two        -> $opt_one = '', -two is next option
  708. + #    -one -2        -> $opt_one = -2
  709. + #
  710. + # Also, assume "foo=s" and "bar:s" :
  711. + #
  712. + #    -bar -xxx        -> $opt_bar = '', '-xxx' is next option
  713. + #    -foo -bar        -> $opt_foo = '-bar'
  714. + #    -foo --        -> $opt_foo = '--'
  715. + #
  716. + 
  717. + # HISTORY 
  718. + # 20-Sep-1990        Johan Vromans    
  719. + #    Set options w/o argument to 1.
  720. + #    Correct the dreadful semicolon/require bug.
  721. + 
  722. + 
  723. + package newgetopt;
  724. + 
  725. + $debug = 0;            # for debugging
  726. + 
  727. + sub main'NGetOpt {
  728. +     local (@optionlist) = @_;
  729. +     local ($[) = 0;
  730. +     local ($genprefix) = "-";
  731. +     local ($error) = 0;
  732. +     local ($opt, $optx, $arg, $type, $mand, @hits);
  733. + 
  734. +     # See if the first element of the optionlist contains option
  735. +     # starter characters.
  736. +     $genprefix = shift (@optionlist) if $optionlist[0] =~ /^\W+$/;
  737. + 
  738. +     # Turn into regexp.
  739. +     $genprefix =~ s/(\W)/\\\1/g;
  740. +     $genprefix = "[" . $genprefix . "]";
  741. + 
  742. +     # Verify correctness of optionlist.
  743. +     @hits = grep ($_ !~ /^\w+([=:][infse])?$/, @optionlist);
  744. +     if ( $#hits >= 0 ) {
  745. +     foreach $opt ( @hits ) {
  746. +         print STDERR ("Error in option spec: \"", $opt, "\"\n");
  747. +         $error++;
  748. +     }
  749. +     return 0;
  750. +     }
  751. + 
  752. +     # Process argument list
  753. + 
  754. +     while ( $#main'ARGV >= 0 ) {        #'){
  755. + 
  756. +     # >>> See also the continue block <<<
  757. + 
  758. +     # Get next argument
  759. +     $opt = shift (@main'ARGV);        #');
  760. +     print STDERR ("=> option \"", $opt, "\"\n") if $debug;
  761. +     $arg = undef;
  762. + 
  763. +     # Check for exhausted list.
  764. +     if ( $opt =~ /^$genprefix/o ) {
  765. +         # Double occurrence is terminator
  766. +         return ($error == 0) if $opt eq "$+$+";
  767. +         $opt = $';        # option name (w/o prefix)
  768. +     }
  769. +     else {
  770. +         # Apparently not an option - push back and exit.
  771. +         unshift (@main'ARGV, $opt);        #');
  772. +         return ($error == 0);
  773. +     }
  774. + 
  775. +     # Grep in option list. Hide regexp chars from option.
  776. +     ($optx = $opt) =~ s/(\W)/\\\1/g;
  777. +     @hits = grep (/^$optx([=:].+)?$/, @optionlist);
  778. +     if ( $#hits != 0 ) {
  779. +         print STDERR ("Unknown option: ", $opt, "\n");
  780. +         $error++;
  781. +         next;
  782. +     }
  783. + 
  784. +     # Determine argument status.
  785. +     undef $type;
  786. +     $type = $+ if $hits[0] =~ /[=:].+$/;
  787. +     print STDERR ("=> found \"$hits[0]\" for ", $opt, "\n") if $debug;
  788. + 
  789. +     # If it is an option w/o argument, we're almost finished with it.
  790. +     if ( ! defined $type ) {
  791. +         $arg = 1;        # supply explicit value
  792. +         next;
  793. +     }
  794. + 
  795. +     # Get mandatory status and type info.
  796. +     ($mand, $type) = $type =~ /^(.)(.)$/;
  797. + 
  798. +     # Check if the argument list is exhausted.
  799. +     if ( $#main'ARGV < 0 ) {        #'){
  800. + 
  801. +         # Complain if this option needs an argument.
  802. +         if ( $mand eq "=" ) {
  803. +         print STDERR ("Option ", $opt, " requires an argument\n");
  804. +         $error++;
  805. +         }
  806. +         next;
  807. +     }
  808. + 
  809. +     # Get (possibly optional) argument.
  810. +     $arg = shift (@main'ARGV);        #');
  811. + 
  812. +     # Check if it is a valid argument. A mandatory string takes
  813. +      # anything. 
  814. +     if ( "$mand$type" ne "=s" && $arg =~ /^$genprefix/o ) {
  815. + 
  816. +         # Check for option list terminator.
  817. +         if ( $arg eq "$+$+" ) {
  818. +         # Complain if an argument is required.
  819. +         if ($mand eq "=") {
  820. +             print STDERR ("Option ", $opt, " requires an argument\n");
  821. +             $error++;
  822. +         }
  823. +         # Push back so the outer loop will terminate.
  824. +         unshift (@main'ARGV, $arg);    #');
  825. +         $arg = "";    # don't assign it
  826. +         next;
  827. +         }
  828. + 
  829. +         # Maybe the optional argument is the next option?
  830. +         if ( $mand eq ":" && $' =~ /[a-zA-Z_]/ ) {
  831. +         # Yep. Push back.
  832. +         unshift (@main'ARGV, $arg);    #');
  833. +         $arg = "";    # don't assign it
  834. +         next;
  835. +         }
  836. +     }
  837. + 
  838. +     if ( $type eq "n" || $type eq "i" ) { # numeric/integer
  839. +         if ( $arg !~ /^-?[0-9]+$/ ) {
  840. +         print STDERR ("Value \"", $arg, "\" invalid for option ",
  841. +                    $opt, " (numeric required)\n");
  842. +         $error++;
  843. +         }
  844. +         next;
  845. +     }
  846. + 
  847. +     if ( $type eq "f" ) { # fixed real number, int is also ok
  848. +         if ( $arg !~ /^-?[0-9.]+$/ ) {
  849. +         print STDERR ("Value \"", $arg, "\" invalid for option ",
  850. +                    $opt, " (real number required)\n");
  851. +         $error++;
  852. +         }
  853. +         next;
  854. +     }
  855. + 
  856. +     if ( $type eq "s" ) { # string
  857. +         next;
  858. +     }
  859. + 
  860. +     }
  861. +     continue {
  862. +     print STDERR ("=> \$main'opt_$opt = $arg\n") if $debug;
  863. +     eval ("\$main'opt_$opt = \$arg");
  864. +     }
  865. + 
  866. +     return ($error == 0);
  867. + }
  868. + 1;
  869.  
  870. Index: hints/next.sh
  871. *** hints/next.sh.old    Fri Jun  7 12:24:33 1991
  872. --- hints/next.sh    Fri Jun  7 12:24:34 1991
  873. ***************
  874. *** 1,2 ****
  875.   : Just disable defaulting to -fpcc-struct-return, since gcc is native compiler.
  876. ! ccflags="$ccflags "
  877. --- 1,4 ----
  878.   : Just disable defaulting to -fpcc-struct-return, since gcc is native compiler.
  879. ! nativegcc='define'
  880. ! groupstype="int"
  881. ! usemymalloc="n"
  882.  
  883. Index: os2/os2.c
  884. Prereq: 4.0
  885. *** os2/os2.c.old    Fri Jun  7 12:25:51 1991
  886. --- os2/os2.c    Fri Jun  7 12:25:52 1991
  887. ***************
  888. *** 1,11 ****
  889. ! /* $Header: os2.c,v 4.0 91/03/20 01:36:21 lwall Locked $
  890.    *
  891.    *    (C) Copyright 1989, 1990 Diomidis Spinellis.
  892.    *
  893. !  *    You may distribute under the terms of the GNU General Public License
  894. !  *    as specified in the README file that comes with the perl 3.0 kit.
  895.    *
  896.    * $Log:    os2.c,v $
  897.    * Revision 4.0  91/03/20  01:36:21  lwall
  898.    * 4.0 baseline.
  899.    * 
  900. --- 1,14 ----
  901. ! /* $RCSfile: os2.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:23:06 $
  902.    *
  903.    *    (C) Copyright 1989, 1990 Diomidis Spinellis.
  904.    *
  905. !  *    You may distribute under the terms of either the GNU General Public
  906. !  *    License or the Artistic License, as specified in the README file.
  907.    *
  908.    * $Log:    os2.c,v $
  909. +  * Revision 4.0.1.1  91/06/07  11:23:06  lwall
  910. +  * patch4: new copyright notice
  911. +  * 
  912.    * Revision 4.0  91/03/20  01:36:21  lwall
  913.    * 4.0 baseline.
  914.    * 
  915.  
  916. Index: t/op/pat.t
  917. Prereq: 4.0
  918. *** t/op/pat.t.old    Fri Jun  7 12:27:08 1991
  919. --- t/op/pat.t    Fri Jun  7 12:27:09 1991
  920. ***************
  921. *** 1,8 ****
  922.   #!./perl
  923.   
  924. ! # $Header: pat.t,v 4.0 91/03/20 01:54:01 lwall Locked $
  925.   
  926. ! print "1..43\n";
  927.   
  928.   $x = "abc\ndef\n";
  929.   
  930. --- 1,8 ----
  931.   #!./perl
  932.   
  933. ! # $RCSfile: pat.t,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:01:26 $
  934.   
  935. ! print "1..48\n";
  936.   
  937.   $x = "abc\ndef\n";
  938.   
  939. ***************
  940. *** 118,120 ****
  941. --- 118,176 ----
  942.   print $1 eq 'yyy ' ? "ok 41\n" : "not ok 41\n";
  943.   print /x {3,4}/ ? "not ok 42\n" : "ok 42\n";
  944.   print /^xxx {3,4}/ ? "not ok 43\n" : "ok 43\n";
  945. + 
  946. + $_ = "now is the time for all good men to come to.";
  947. + @words = /(\w+)/g;
  948. + print join(':',@words) eq "now:is:the:time:for:all:good:men:to:come:to"
  949. +     ? "ok 44\n"
  950. +     : "not ok 44\n";
  951. + 
  952. + @words = ();
  953. + while (/\w+/g) {
  954. +     push(@words, $&);
  955. + }
  956. + print join(':',@words) eq "now:is:the:time:for:all:good:men:to:come:to"
  957. +     ? "ok 45\n"
  958. +     : "not ok 45\n";
  959. + 
  960. + @words = ();
  961. + while (/to/g) {
  962. +     push(@words, $&);
  963. + }
  964. + print join(':',@words) eq "to:to"
  965. +     ? "ok 46\n"
  966. +     : "not ok 46 @words\n";
  967. + 
  968. + @words = /to/g;
  969. + print join(':',@words) eq "to:to"
  970. +     ? "ok 47\n"
  971. +     : "not ok 47 @words\n";
  972. + 
  973. + $_ = "abcdefghi";
  974. + 
  975. + $pat1 = 'def';
  976. + $pat2 = '^def';
  977. + $pat3 = '.def.';
  978. + $pat4 = 'abc';
  979. + $pat5 = '^abc';
  980. + $pat6 = 'abc$';
  981. + $pat7 = 'ghi';
  982. + $pat8 = '\w*ghi';
  983. + $pat9 = 'ghi$';
  984. + 
  985. + $t1=$t2=$t3=$t4=$t5=$t6=$t7=$t8=$t9=0;
  986. + 
  987. + for $iter (1..5) {
  988. +     $t1++ if /$pat1/o;
  989. +     $t2++ if /$pat2/o;
  990. +     $t3++ if /$pat3/o;
  991. +     $t4++ if /$pat4/o;
  992. +     $t5++ if /$pat5/o;
  993. +     $t6++ if /$pat6/o;
  994. +     $t7++ if /$pat7/o;
  995. +     $t8++ if /$pat8/o;
  996. +     $t9++ if /$pat9/o;
  997. + }
  998. + 
  999. + $x = "$t1$t2$t3$t4$t5$t6$t7$t8$t9";
  1000. + print $x eq '505550555' ? "ok 48\n" : "not ok 48 $x\n";
  1001.  
  1002. Index: emacs/perl-mode.el
  1003. *** emacs/perl-mode.el.old    Fri Jun  7 12:23:45 1991
  1004. --- emacs/perl-mode.el    Fri Jun  7 12:23:46 1991
  1005. ***************
  1006. *** 572,578 ****
  1007.     (or arg (setq arg 1))
  1008.     (if (< arg 0) (forward-char 1))
  1009.     (and (/= arg 0)
  1010. !        (re-search-backward "^\\s(\\|^\\s-*sub\\b[^{]+{\\|^\\s-*format\\b[^=]*="
  1011.                  nil 'move arg)
  1012.          (goto-char (1- (match-end 0))))
  1013.     (point))
  1014. --- 572,578 ----
  1015.     (or arg (setq arg 1))
  1016.     (if (< arg 0) (forward-char 1))
  1017.     (and (/= arg 0)
  1018. !        (re-search-backward "^\\s(\\|^\\s-*sub\\b[^{]+{\\|^\\s-*format\\b[^=]*=\\|^\\."
  1019.                  nil 'move arg)
  1020.          (goto-char (1- (match-end 0))))
  1021.     (point))
  1022.  
  1023. Index: perl.c
  1024. *** perl.c.old    Fri Jun  7 12:25:55 1991
  1025. --- perl.c    Fri Jun  7 12:25:57 1991
  1026. ***************
  1027. *** 1,11 ****
  1028. ! char rcsid[] = "$RCSfile: perl.c,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:49:05 $\nPatch level: ###\n";
  1029.   /*
  1030. !  *    Copyright (c) 1989, Larry Wall
  1031.    *
  1032. !  *    You may distribute under the terms of the GNU General Public License
  1033. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1034.    *
  1035.    * $Log:    perl.c,v $
  1036.    * Revision 4.0.1.1  91/04/11  17:49:05  lwall
  1037.    * patch1: fixed undefined environ problem
  1038.    * 
  1039. --- 1,20 ----
  1040. ! char rcsid[] = "$RCSfile: perl.c,v $$Revision: 4.0.1.3 $$Date: 91/06/07 11:40:18 $\nPatch level: ###\n";
  1041.   /*
  1042. !  *    Copyright (c) 1991, Larry Wall
  1043.    *
  1044. !  *    You may distribute under the terms of either the GNU General Public
  1045. !  *    License or the Artistic License, as specified in the README file.
  1046.    *
  1047.    * $Log:    perl.c,v $
  1048. +  * Revision 4.0.1.3  91/06/07  11:40:18  lwall
  1049. +  * patch4: changed old $^P to $^X
  1050. +  * 
  1051. +  * Revision 4.0.1.2  91/06/07  11:26:16  lwall
  1052. +  * patch4: new copyright notice
  1053. +  * patch4: added $^P variable to control calling of perldb routines
  1054. +  * patch4: added $^F variable to specify maximum system fd, default 2
  1055. +  * patch4: debugger lost track of lines in eval
  1056. +  * 
  1057.    * Revision 4.0.1.1  91/04/11  17:49:05  lwall
  1058.    * patch1: fixed undefined environ problem
  1059.    * 
  1060. ***************
  1061. *** 23,28 ****
  1062. --- 32,39 ----
  1063.   #include "patchlevel.h"
  1064.   #endif
  1065.   
  1066. + char *getenv();
  1067. + 
  1068.   #ifdef IAMSUID
  1069.   #ifndef DOSUID
  1070.   #define DOSUID
  1071. ***************
  1072. *** 50,56 ****
  1073.   {
  1074.       register STR *str;
  1075.       register char *s;
  1076. !     char *index(), *strcpy(), *getenv();
  1077.       bool dosearch = FALSE;
  1078.   #ifdef DOSUID
  1079.       char *validarg = "";
  1080. --- 61,67 ----
  1081.   {
  1082.       register STR *str;
  1083.       register char *s;
  1084. !     char *getenv();
  1085.       bool dosearch = FALSE;
  1086.   #ifdef DOSUID
  1087.       char *validarg = "";
  1088. ***************
  1089. *** 656,662 ****
  1090.       (void)hadd(sigstab);
  1091.       }
  1092.   
  1093. !     magicalize("!#?^~=-%.+&*()<>,\\/[|`':\004\t\024\027");
  1094.       userinit();        /* in case linked C routines want magical variables */
  1095.   
  1096.       amperstab = stabent("&",allstabs);
  1097. --- 667,673 ----
  1098.       (void)hadd(sigstab);
  1099.       }
  1100.   
  1101. !     magicalize("!#?^~=-%.+&*()<>,\\/[|`':\004\t\020\024\027\006");
  1102.       userinit();        /* in case linked C routines want magical variables */
  1103.   
  1104.       amperstab = stabent("&",allstabs);
  1105. ***************
  1106. *** 740,746 ****
  1107.       str_set(stab_val(tmpstab),origfilename);
  1108.       magicname("0", Nullch, 0);
  1109.       }
  1110. !     if (tmpstab = stabent("\020",allstabs))
  1111.       str_set(stab_val(tmpstab),origargv[0]);
  1112.       if (argvstab = stabent("ARGV",allstabs)) {
  1113.       argvstab->str_pok |= SP_MULTI;
  1114. --- 751,757 ----
  1115.       str_set(stab_val(tmpstab),origfilename);
  1116.       magicname("0", Nullch, 0);
  1117.       }
  1118. !     if (tmpstab = stabent("\030",allstabs))
  1119.       str_set(stab_val(tmpstab),origargv[0]);
  1120.       if (argvstab = stabent("ARGV",allstabs)) {
  1121.       argvstab->str_pok |= SP_MULTI;
  1122. ***************
  1123. *** 830,835 ****
  1124. --- 841,871 ----
  1125.       }
  1126.   }
  1127.   
  1128. + void
  1129. + savelines(array, str)
  1130. + ARRAY *array;
  1131. + STR *str;
  1132. + {
  1133. +     register char *s = str->str_ptr;
  1134. +     register char *send = str->str_ptr + str->str_cur;
  1135. +     register char *t;
  1136. +     register int line = 1;
  1137. + 
  1138. +     while (s && s < send) {
  1139. +     STR *tmpstr = Str_new(85,0);
  1140. + 
  1141. +     t = index(s, '\n');
  1142. +     if (t)
  1143. +         t++;
  1144. +     else
  1145. +         t = send;
  1146. + 
  1147. +     str_nset(tmpstr, s, t - s);
  1148. +     astore(array, line++, tmpstr);
  1149. +     s = t;
  1150. +     }
  1151. + }
  1152. + 
  1153.   /* this routine is in perl.c by virtue of being sort of an alternate main() */
  1154.   
  1155.   int
  1156. ***************
  1157. *** 871,877 ****
  1158.       curcmd->c_filestab = fstab("(eval)");
  1159.       curcmd->c_line = 1;
  1160.       str_sset(linestr,str);
  1161. !     str_cat(linestr,";");        /* be kind to them */
  1162.       }
  1163.       else {
  1164.       if (last_root && !in_eval) {
  1165. --- 907,915 ----
  1166.       curcmd->c_filestab = fstab("(eval)");
  1167.       curcmd->c_line = 1;
  1168.       str_sset(linestr,str);
  1169. !     str_cat(linestr,";\n");        /* be kind to them */
  1170. !     if (perldb)
  1171. !         savelines(stab_xarray(curcmd->c_filestab), linestr);
  1172.       }
  1173.       else {
  1174.       if (last_root && !in_eval) {
  1175. ***************
  1176. *** 1201,1206 ****
  1177. --- 1239,1247 ----
  1178.       fprintf(stderr, "unexec of %s into %s failed!\n", perlpath, dumpname);
  1179.       exit(status);
  1180.   #else
  1181. + #ifdef MSDOS
  1182. +     abort();    /* nothing else to do */
  1183. + #else /* ! MSDOS */
  1184.   #   ifndef SIGABRT
  1185.   #    define SIGABRT SIGILL
  1186.   #   endif
  1187. ***************
  1188. *** 1208,1213 ****
  1189. --- 1249,1255 ----
  1190.   #    define SIGILL 6        /* blech */
  1191.   #   endif
  1192.       kill(getpid(),SIGABRT);    /* for use with undump */
  1193. + #endif /* ! MSDOS */
  1194.   #endif
  1195.   }
  1196.   
  1197.  
  1198. Index: perl.h
  1199. *** perl.h.old    Fri Jun  7 12:26:00 1991
  1200. --- perl.h    Fri Jun  7 12:26:01 1991
  1201. ***************
  1202. *** 1,11 ****
  1203. ! /* $RCSfile: perl.h,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:49:51 $
  1204.    *
  1205. !  *    Copyright (c) 1989, Larry Wall
  1206.    *
  1207. !  *    You may distribute under the terms of the GNU General Public License
  1208. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1209.    *
  1210.    * $Log:    perl.h,v $
  1211.    * Revision 4.0.1.1  91/04/11  17:49:51  lwall
  1212.    * patch1: hopefully straightened out some of the Xenix mess
  1213.    * 
  1214. --- 1,16 ----
  1215. ! /* $RCSfile: perl.h,v $$Revision: 4.0.1.2 $$Date: 91/06/07 11:28:33 $
  1216.    *
  1217. !  *    Copyright (c) 1991, Larry Wall
  1218.    *
  1219. !  *    You may distribute under the terms of either the GNU General Public
  1220. !  *    License or the Artistic License, as specified in the README file.
  1221.    *
  1222.    * $Log:    perl.h,v $
  1223. +  * Revision 4.0.1.2  91/06/07  11:28:33  lwall
  1224. +  * patch4: new copyright notice
  1225. +  * patch4: made some allowances for "semi-standard" C
  1226. +  * patch4: many, many itty-bitty portability fixes
  1227. +  * 
  1228.    * Revision 4.0.1.1  91/04/11  17:49:51  lwall
  1229.    * patch1: hopefully straightened out some of the Xenix mess
  1230.    * 
  1231. ***************
  1232. *** 47,53 ****
  1233.   
  1234.   #endif /* !MSDOS */
  1235.   
  1236. ! #if defined(HASVOLATILE) || defined(__STDC__)
  1237.   #define VOLATILE volatile
  1238.   #else
  1239.   #define VOLATILE
  1240. --- 52,62 ----
  1241.   
  1242.   #endif /* !MSDOS */
  1243.   
  1244. ! #if defined(__STDC__) || defined(_AIX) || defined(__stdc__)
  1245. ! # define STANDARD_C 1
  1246. ! #endif
  1247. ! 
  1248. ! #if defined(HASVOLATILE) || defined(STANDARD_C)
  1249.   #define VOLATILE volatile
  1250.   #else
  1251.   #define VOLATILE
  1252. ***************
  1253. *** 81,93 ****
  1254.   #include <ctype.h>
  1255.   #include <setjmp.h>
  1256.   #ifndef MSDOS
  1257. ! #include <sys/param.h>    /* if this needs types.h we're still wrong */
  1258.   #endif
  1259. ! #ifdef __STDC__
  1260.   /* Use all the "standard" definitions */
  1261.   #include <stdlib.h>
  1262.   #include <string.h>
  1263. ! #endif /* __STDC__ */
  1264.   
  1265.   #if defined(HAS_MEMCMP) && defined(mips) && BYTEORDER == 0x1234
  1266.   #undef HAS_MEMCMP
  1267. --- 90,105 ----
  1268.   #include <ctype.h>
  1269.   #include <setjmp.h>
  1270.   #ifndef MSDOS
  1271. ! #ifdef PARAM_NEEDS_TYPES
  1272. ! #include <sys/types.h>
  1273.   #endif
  1274. ! #include <sys/param.h>
  1275. ! #endif
  1276. ! #ifdef STANDARD_C
  1277.   /* Use all the "standard" definitions */
  1278.   #include <stdlib.h>
  1279.   #include <string.h>
  1280. ! #endif /* STANDARD_C */
  1281.   
  1282.   #if defined(HAS_MEMCMP) && defined(mips) && BYTEORDER == 0x1234
  1283.   #undef HAS_MEMCMP
  1284. ***************
  1285. *** 95,113 ****
  1286.   
  1287.   #ifdef HAS_MEMCPY
  1288.   
  1289. ! #  ifndef __STDC__
  1290.   #    ifndef memcpy
  1291.   extern char * memcpy(), *memset();
  1292.   extern int memcmp();
  1293.   #    endif /* ndef memcpy */
  1294. ! #  endif /* ndef __STDC__ */
  1295.   
  1296. ! #define bcopy(s1,s2,l) memcpy(s2,s1,l)
  1297. ! #define bzero(s,l) memset(s,0,l)
  1298.   #endif /* HAS_MEMCPY */
  1299.   
  1300.   #ifndef HAS_BCMP        /* prefer bcmp slightly 'cuz it doesn't order */
  1301. ! #define bcmp(s1,s2,l) memcmp(s1,s2,l)
  1302.   #endif
  1303.   
  1304.   #ifndef _TYPES_        /* If types.h defines this it's easy. */
  1305. --- 107,131 ----
  1306.   
  1307.   #ifdef HAS_MEMCPY
  1308.   
  1309. ! #  ifndef STANDARD_C
  1310.   #    ifndef memcpy
  1311.   extern char * memcpy(), *memset();
  1312.   extern int memcmp();
  1313.   #    endif /* ndef memcpy */
  1314. ! #  endif /* ndef STANDARD_C */
  1315.   
  1316. ! #   ifndef bcopy
  1317. ! #    define bcopy(s1,s2,l) memcpy(s2,s1,l)
  1318. ! #   endif
  1319. ! #   ifndef bzero
  1320. ! #    define bzero(s,l) memset(s,0,l)
  1321. ! #   endif
  1322.   #endif /* HAS_MEMCPY */
  1323.   
  1324.   #ifndef HAS_BCMP        /* prefer bcmp slightly 'cuz it doesn't order */
  1325. ! #   ifndef bcmp
  1326. ! #    define bcmp(s1,s2,l) memcmp(s1,s2,l)
  1327. ! #   endif
  1328.   #endif
  1329.   
  1330.   #ifndef _TYPES_        /* If types.h defines this it's easy. */
  1331. ***************
  1332. *** 245,250 ****
  1333. --- 263,275 ----
  1334.   #   endif
  1335.   #endif
  1336.   
  1337. + #ifdef FPUTS_BOTCH
  1338. + /* work around botch in SunOS 4.0.1 and 4.0.2 */
  1339. + #   ifndef fputs
  1340. + #    define fputs(str,fp) fprintf(fp,"%s",str)
  1341. + #   endif
  1342. + #endif
  1343. + 
  1344.   /*
  1345.    * The following gobbledygook brought to you on behalf of __STDC__.
  1346.    * (I could just use #ifndef __STDC__, but this is more bulletproof
  1347. ***************
  1348. *** 345,350 ****
  1349. --- 370,379 ----
  1350.   #   define S_ISGID 02000
  1351.   #endif
  1352.   
  1353. + #ifdef f_next
  1354. + #undef f_next
  1355. + #endif
  1356. + 
  1357.   typedef unsigned int STRLEN;
  1358.   
  1359.   typedef struct arg ARG;
  1360. ***************
  1361. *** 377,383 ****
  1362.   #   define I286
  1363.   #endif
  1364.   
  1365. ! #ifndef    __STDC__
  1366.   #ifdef CHARSPRINTF
  1367.       char *sprintf();
  1368.   #else
  1369. --- 406,412 ----
  1370.   #   define I286
  1371.   #endif
  1372.   
  1373. ! #ifndef    STANDARD_C
  1374.   #ifdef CHARSPRINTF
  1375.       char *sprintf();
  1376.   #else
  1377. ***************
  1378. *** 681,686 ****
  1379. --- 710,720 ----
  1380.   EXT bool sawvec INIT(FALSE);
  1381.   EXT bool localizing INIT(FALSE);    /* are we processing a local() list? */
  1382.   
  1383. + #ifndef MAXSYSFD
  1384. + #   define MAXSYSFD 2
  1385. + #endif
  1386. + EXT int maxsysfd INIT(MAXSYSFD);    /* top fd to pass to subprocesses */
  1387. + 
  1388.   #ifdef CSH
  1389.   char *cshname INIT(CSH);
  1390.   int cshlen INIT(0);
  1391. ***************
  1392. *** 790,796 ****
  1393.   /* Fix these up for __STDC__ */
  1394.   EXT long basetime INIT(0);
  1395.   char *mktemp();
  1396. ! #ifndef __STDC__
  1397.   /* All of these are in stdlib.h or time.h for ANSI C */
  1398.   double atof();
  1399.   long time();
  1400. --- 824,830 ----
  1401.   /* Fix these up for __STDC__ */
  1402.   EXT long basetime INIT(0);
  1403.   char *mktemp();
  1404. ! #ifndef STANDARD_C
  1405.   /* All of these are in stdlib.h or time.h for ANSI C */
  1406.   double atof();
  1407.   long time();
  1408. ***************
  1409. *** 797,803 ****
  1410.   struct tm *gmtime(), *localtime();
  1411.   char *index(), *rindex();
  1412.   char *strcpy(), *strcat();
  1413. ! #endif /* ! __STDC__ */
  1414.   
  1415.   #ifdef EUNICE
  1416.   #define UNLINK unlnk
  1417. --- 831,837 ----
  1418.   struct tm *gmtime(), *localtime();
  1419.   char *index(), *rindex();
  1420.   char *strcpy(), *strcat();
  1421. ! #endif /* ! STANDARD_C */
  1422.   
  1423.   #ifdef EUNICE
  1424.   #define UNLINK unlnk
  1425.  
  1426. Index: perl.man
  1427. *** perl.man.old    Fri Jun  7 12:26:10 1991
  1428. --- perl.man    Fri Jun  7 12:26:13 1991
  1429. ***************
  1430. *** 1,7 ****
  1431.   .rn '' }`
  1432. ! ''' $RCSfile: perl.man,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:50:44 $
  1433.   ''' 
  1434.   ''' $Log:    perl.man,v $
  1435.   ''' Revision 4.0.1.1  91/04/11  17:50:44  lwall
  1436.   ''' patch1: fixed some typos
  1437.   ''' 
  1438. --- 1,14 ----
  1439.   .rn '' }`
  1440. ! ''' $RCSfile: perl.man,v $$Revision: 4.0.1.2 $$Date: 91/06/07 11:41:23 $
  1441.   ''' 
  1442.   ''' $Log:    perl.man,v $
  1443. + ''' Revision 4.0.1.2  91/06/07  11:41:23  lwall
  1444. + ''' patch4: added global modifier for pattern matches
  1445. + ''' patch4: default top-of-form format is now FILEHANDLE_TOP
  1446. + ''' patch4: added $^P variable to control calling of perldb routines
  1447. + ''' patch4: added $^F variable to specify maximum system fd, default 2
  1448. + ''' patch4: changed old $^P to $^X
  1449. + ''' 
  1450.   ''' Revision 4.0.1.1  91/04/11  17:50:44  lwall
  1451.   ''' patch1: fixed some typos
  1452.   ''' 
  1453. ***************
  1454. *** 1606,1663 ****
  1455.           (getpwuid($<))[7] || die "You're homeless!\en";
  1456.   
  1457.   .fi
  1458. - ''' Beginning of part 2
  1459. - ''' $RCSfile: perl.man,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:50:44 $
  1460. - '''
  1461. - ''' $Log:    perl.man,v $
  1462. - ''' Revision 4.0.1.1  91/04/11  17:50:44  lwall
  1463. - ''' patch1: fixed some typos
  1464. - ''' 
  1465. - ''' Revision 4.0  91/03/20  01:38:08  lwall
  1466. - ''' 4.0 baseline.
  1467. - ''' 
  1468. - ''' Revision 3.0.1.11  91/01/11  18:17:08  lwall
  1469. - ''' patch42: fixed some man page entries
  1470. - ''' 
  1471. - ''' Revision 3.0.1.10  90/11/10  01:46:29  lwall
  1472. - ''' patch38: random cleanup
  1473. - ''' patch38: added alarm function
  1474. - ''' 
  1475. - ''' Revision 3.0.1.9  90/10/15  18:17:37  lwall
  1476. - ''' patch29: added caller
  1477. - ''' patch29: index and substr now have optional 3rd args
  1478. - ''' patch29: added SysV IPC
  1479. - ''' 
  1480. - ''' Revision 3.0.1.8  90/08/13  22:21:00  lwall
  1481. - ''' patch28: documented that you can't interpolate $) or $| in pattern
  1482. - ''' 
  1483. - ''' Revision 3.0.1.7  90/08/09  04:27:04  lwall
  1484. - ''' patch19: added require operator
  1485. - ''' 
  1486. - ''' Revision 3.0.1.6  90/08/03  11:15:29  lwall
  1487. - ''' patch19: Intermediate diffs for Randal
  1488. - ''' 
  1489. - ''' Revision 3.0.1.5  90/03/27  16:15:17  lwall
  1490. - ''' patch16: MSDOS support
  1491. - ''' 
  1492. - ''' Revision 3.0.1.4  90/03/12  16:46:02  lwall
  1493. - ''' patch13: documented behavior of @array = /noparens/
  1494. - ''' 
  1495. - ''' Revision 3.0.1.3  90/02/28  17:55:58  lwall
  1496. - ''' patch9: grep now returns number of items matched in scalar context
  1497. - ''' patch9: documented in-place modification capabilites of grep
  1498. - ''' 
  1499. - ''' Revision 3.0.1.2  89/11/17  15:30:16  lwall
  1500. - ''' patch5: fixed some manual typos and indent problems
  1501. - ''' 
  1502. - ''' Revision 3.0.1.1  89/11/11  04:43:10  lwall
  1503. - ''' patch2: made some line breaks depend on troff vs. nroff
  1504. - ''' patch2: example of unshift had args backwards
  1505. - ''' 
  1506. - ''' Revision 3.0  89/10/18  15:21:37  lwall
  1507. - ''' 3.0 baseline
  1508. - ''' 
  1509. - '''
  1510.   .PP
  1511.   Along with the literals and variables mentioned earlier,
  1512.   the operations in the following section can serve as terms in an expression.
  1513. --- 1613,1618 ----
  1514. ***************
  1515. *** 1796,1802 ****
  1516.   
  1517.   .fi
  1518.   .ne 23
  1519. ! Here's an example of looking up non-numeric uids:
  1520.   .nf
  1521.   
  1522.       print "User: ";
  1523. --- 1751,1757 ----
  1524.   
  1525.   .fi
  1526.   .ne 23
  1527. ! Here's an example that looks up non-numeric uids in the passwd file:
  1528.   .nf
  1529.   
  1530.       print "User: ";
  1531. ***************
  1532. *** 2718,2725 ****
  1533.   Does the same thing as the stat() function, but stats a symbolic link
  1534.   instead of the file the symbolic link points to.
  1535.   If symbolic links are unimplemented on your system, a normal stat is done.
  1536. ! .Ip "m/PATTERN/io" 8 4
  1537. ! .Ip "/PATTERN/io" 8
  1538.   Searches a string for a pattern match, and returns true (1) or false (\'\').
  1539.   If no string is specified via the =~ or !~ operator,
  1540.   the $_ string is searched.
  1541. --- 2673,2680 ----
  1542.   Does the same thing as the stat() function, but stats a symbolic link
  1543.   instead of the file the symbolic link points to.
  1544.   If symbolic links are unimplemented on your system, a normal stat is done.
  1545. ! .Ip "m/PATTERN/gio" 8 4
  1546. ! .Ip "/PATTERN/gio" 8
  1547.   Searches a string for a pattern match, and returns true (1) or false (\'\').
  1548.   If no string is specified via the =~ or !~ operator,
  1549.   the $_ string is searched.
  1550. ***************
  1551. *** 2778,2783 ****
  1552. --- 2733,2768 ----
  1553.   of the line, and assigns those three fields to $F1, $F2 and $Etc.
  1554.   The conditional is true if any variables were assigned, i.e. if the pattern
  1555.   matched.
  1556. + .Sp
  1557. + The \*(L"g\*(R" modifier specifies global pattern matching\*(--that is,
  1558. + matching as many times as possible within the string.  How it behaves
  1559. + depends on the context.  In an array context, it returns a list of
  1560. + all the substrings matched by all the parentheses in the regular expression.
  1561. + If there are no parentheses, it returns a list of all the matched strings,
  1562. + as if there were parentheses around the whole pattern.  In a scalar context,
  1563. + it iterates through the string, returning TRUE each time it matches, and
  1564. + FALSE when it eventually runs out of matches.  (In other words, it remembers
  1565. + where it left off last time and restarts the search at that point.)  It
  1566. + presumes that you have not modified the string since the last match.
  1567. + Modifying the string between matches may result in undefined behavior.
  1568. + (You can actually get away with in-place modifications via substr()
  1569. + that do not change the length of the entire string.  In general, however,
  1570. + you should be using s///g for such modifications.)  Examples:
  1571. + .nf
  1572. + 
  1573. +     # array context
  1574. +     ($one,$five,$fifteen) = (\`uptime\` =~ /(\ed+\e.\ed+)/g);
  1575. + 
  1576. +     # scalar context
  1577. +     $/ = 1; $* = 1;
  1578. +     while ($paragraph = <>) {
  1579. +         while ($paragraph =~ /[a-z][\'")]*[.!?]+[\'")]*\es/g) {
  1580. +         $sentences++;
  1581. +         }
  1582. +     }
  1583. +     print "$sentences\en";
  1584. + 
  1585. + .fi
  1586.   .Ip "mkdir(FILENAME,MODE)" 8 3
  1587.   Creates the directory specified by FILENAME, with permissions specified by
  1588.   MODE (as modified by umask).
  1589. ***************
  1590. *** 2802,2871 ****
  1591.   the first thing in VAR, and the maximum length of VAR is SIZE plus the
  1592.   size of the message type.  Returns true if successful, or false if
  1593.   there is an error.
  1594. - ''' Beginning of part 3
  1595. - ''' $RCSfile: perl.man,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:50:44 $
  1596. - '''
  1597. - ''' $Log:    perl.man,v $
  1598. - ''' Revision 4.0.1.1  91/04/11  17:50:44  lwall
  1599. - ''' patch1: fixed some typos
  1600. - ''' 
  1601. - ''' Revision 4.0  91/03/20  01:38:08  lwall
  1602. - ''' 4.0 baseline.
  1603. - ''' 
  1604. - ''' Revision 3.0.1.12  91/01/11  18:18:15  lwall
  1605. - ''' patch42: added binary and hex pack/unpack options
  1606. - ''' 
  1607. - ''' Revision 3.0.1.11  90/11/10  01:48:21  lwall
  1608. - ''' patch38: random cleanup
  1609. - ''' patch38: documented tr///cds
  1610. - ''' 
  1611. - ''' Revision 3.0.1.10  90/10/20  02:15:17  lwall
  1612. - ''' patch37: patch37: fixed various typos in man page
  1613. - ''' 
  1614. - ''' Revision 3.0.1.9  90/10/16  10:02:43  lwall
  1615. - ''' patch29: you can now read into the middle string
  1616. - ''' patch29: index and substr now have optional 3rd args
  1617. - ''' patch29: added scalar reverse
  1618. - ''' patch29: added scalar
  1619. - ''' patch29: added SysV IPC
  1620. - ''' patch29: added waitpid
  1621. - ''' patch29: added sysread and syswrite
  1622. - ''' 
  1623. - ''' Revision 3.0.1.8  90/08/09  04:39:04  lwall
  1624. - ''' patch19: added require operator
  1625. - ''' patch19: added truncate operator
  1626. - ''' patch19: unpack can do checksumming
  1627. - ''' 
  1628. - ''' Revision 3.0.1.7  90/08/03  11:15:42  lwall
  1629. - ''' patch19: Intermediate diffs for Randal
  1630. - ''' 
  1631. - ''' Revision 3.0.1.6  90/03/27  16:17:56  lwall
  1632. - ''' patch16: MSDOS support
  1633. - ''' 
  1634. - ''' Revision 3.0.1.5  90/03/12  16:52:21  lwall
  1635. - ''' patch13: documented that print $filehandle &foo is ambiguous
  1636. - ''' patch13: added splice operator: @oldelems = splice(@array,$offset,$len,LIST)
  1637. - ''' 
  1638. - ''' Revision 3.0.1.4  90/02/28  18:00:09  lwall
  1639. - ''' patch9: added pipe function
  1640. - ''' patch9: documented how to handle arbitrary weird characters in filenames
  1641. - ''' patch9: documented the unflushed buffers problem on piped opens
  1642. - ''' patch9: documented how to force top of page
  1643. - ''' 
  1644. - ''' Revision 3.0.1.3  89/12/21  20:10:12  lwall
  1645. - ''' patch7: documented that s`pat`repl` does command substitution on replacement
  1646. - ''' patch7: documented that $timeleft from select() is likely not implemented
  1647. - ''' 
  1648. - ''' Revision 3.0.1.2  89/11/17  15:31:05  lwall
  1649. - ''' patch5: fixed some manual typos and indent problems
  1650. - ''' patch5: added warning about print making an array context
  1651. - ''' 
  1652. - ''' Revision 3.0.1.1  89/11/11  04:45:06  lwall
  1653. - ''' patch2: made some line breaks depend on troff vs. nroff
  1654. - ''' 
  1655. - ''' Revision 3.0  89/10/18  15:21:46  lwall
  1656. - ''' 3.0 baseline
  1657. - ''' 
  1658.   .Ip "next LABEL" 8 8
  1659.   .Ip "next" 8
  1660.   The
  1661. --- 2787,2792 ----
  1662. ***************
  1663. *** 3661,3666 ****
  1664. --- 3582,3588 ----
  1665.   If SUBROUTINE is specified, gives the name of a subroutine that returns
  1666.   an integer less than, equal to, or greater than 0,
  1667.   depending on how the elements of the array are to be ordered.
  1668. + (The <=> and cmp operators are extremely useful in such routines.)
  1669.   In the interests of efficiency the normal calling code for subroutines
  1670.   is bypassed, with the following effects: the subroutine may not be a recursive
  1671.   subroutine, and the two elements to be compared are passed into the subroutine
  1672. ***************
  1673. *** 3673,3684 ****
  1674.   
  1675.   .ne 4
  1676.       sub byage {
  1677. !         $age{$a} - $age{$b};    # presuming integers
  1678.       }
  1679.       @sortedclass = sort byage @class;
  1680.   
  1681.   .ne 9
  1682. !     sub reverse { $a lt $b ? 1 : $a gt $b ? \-1 : 0; }
  1683.       @harry = (\'dog\',\'cat\',\'x\',\'Cain\',\'Abel\');
  1684.       @george = (\'gone\',\'chased\',\'yz\',\'Punished\',\'Axed\');
  1685.       print sort @harry;
  1686. --- 3595,3606 ----
  1687.   
  1688.   .ne 4
  1689.       sub byage {
  1690. !         $age{$a} <=> $age{$b};    # presuming integers
  1691.       }
  1692.       @sortedclass = sort byage @class;
  1693.   
  1694.   .ne 9
  1695. !     sub reverse { $b cmp $a; }
  1696.       @harry = (\'dog\',\'cat\',\'x\',\'Cain\',\'Abel\');
  1697.       @george = (\'gone\',\'chased\',\'yz\',\'Punished\',\'Axed\');
  1698.       print sort @harry;
  1699. ***************
  1700. *** 3842,3847 ****
  1701. --- 3764,3770 ----
  1702.       }
  1703.   
  1704.   .fi
  1705. + (This only works on machines for which the device number is negative under NFS.)
  1706.   .Ip "study(SCALAR)" 8 6
  1707.   .Ip "study SCALAR" 8
  1708.   .Ip "study"
  1709. ***************
  1710. *** 4266,4330 ****
  1711.   For more on formats, see the section on formats later on.
  1712.   .Sp
  1713.   Note that write is NOT the opposite of read.
  1714. - ''' Beginning of part 4
  1715. - ''' $RCSfile: perl.man,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:50:44 $
  1716. - '''
  1717. - ''' $Log:    perl.man,v $
  1718. - ''' Revision 4.0.1.1  91/04/11  17:50:44  lwall
  1719. - ''' patch1: fixed some typos
  1720. - ''' 
  1721. - ''' Revision 4.0  91/03/20  01:38:08  lwall
  1722. - ''' 4.0 baseline.
  1723. - ''' 
  1724. - ''' Revision 3.0.1.14  91/01/11  18:18:53  lwall
  1725. - ''' patch42: started an addendum and errata section in the man page
  1726. - ''' 
  1727. - ''' Revision 3.0.1.13  90/11/10  01:51:00  lwall
  1728. - ''' patch38: random cleanup
  1729. - ''' 
  1730. - ''' Revision 3.0.1.12  90/10/20  02:15:43  lwall
  1731. - ''' patch37: patch37: fixed various typos in man page
  1732. - ''' 
  1733. - ''' Revision 3.0.1.11  90/10/16  10:04:28  lwall
  1734. - ''' patch29: added @###.## fields to format
  1735. - ''' 
  1736. - ''' Revision 3.0.1.10  90/08/09  04:47:35  lwall
  1737. - ''' patch19: added require operator
  1738. - ''' patch19: added numeric interpretation of $]
  1739. - ''' 
  1740. - ''' Revision 3.0.1.9  90/08/03  11:15:58  lwall
  1741. - ''' patch19: Intermediate diffs for Randal
  1742. - ''' 
  1743. - ''' Revision 3.0.1.8  90/03/27  16:19:31  lwall
  1744. - ''' patch16: MSDOS support
  1745. - ''' 
  1746. - ''' Revision 3.0.1.7  90/03/14  12:29:50  lwall
  1747. - ''' patch15: man page falsely states that you can't subscript array values
  1748. - ''' 
  1749. - ''' Revision 3.0.1.6  90/03/12  16:54:04  lwall
  1750. - ''' patch13: improved documentation of *name
  1751. - ''' 
  1752. - ''' Revision 3.0.1.5  90/02/28  18:01:52  lwall
  1753. - ''' patch9: $0 is now always the command name
  1754. - ''' 
  1755. - ''' Revision 3.0.1.4  89/12/21  20:12:39  lwall
  1756. - ''' patch7: documented that package'filehandle works as well as $package'variable
  1757. - ''' patch7: documented which identifiers are always in package main
  1758. - ''' 
  1759. - ''' Revision 3.0.1.3  89/11/17  15:32:25  lwall
  1760. - ''' patch5: fixed some manual typos and indent problems
  1761. - ''' patch5: clarified difference between $! and $@
  1762. - ''' 
  1763. - ''' Revision 3.0.1.2  89/11/11  04:46:40  lwall
  1764. - ''' patch2: made some line breaks depend on troff vs. nroff
  1765. - ''' patch2: clarified operation of ^ and $ when $* is false
  1766. - ''' 
  1767. - ''' Revision 3.0.1.1  89/10/26  23:18:43  lwall
  1768. - ''' patch1: documented the desirability of unnecessary parentheses
  1769. - ''' 
  1770. - ''' Revision 3.0  89/10/18  15:21:55  lwall
  1771. - ''' 3.0 baseline
  1772. - ''' 
  1773.   .Sh "Precedence"
  1774.   .I Perl
  1775.   operators have the following associativity and precedence:
  1776. --- 4189,4194 ----
  1777. ***************
  1778. *** 4736,4742 ****
  1779.   
  1780.   .ne 10
  1781.   # a report on the /etc/passwd file
  1782. ! format top =
  1783.   \&                        Passwd File
  1784.   Name                Login    Office   Uid   Gid Home
  1785.   ------------------------------------------------------------------
  1786. --- 4600,4606 ----
  1787.   
  1788.   .ne 10
  1789.   # a report on the /etc/passwd file
  1790. ! format STDOUT_TOP =
  1791.   \&                        Passwd File
  1792.   Name                Login    Office   Uid   Gid Home
  1793.   ------------------------------------------------------------------
  1794. ***************
  1795. *** 4748,4754 ****
  1796.   
  1797.   .ne 29
  1798.   # a report from a bug report form
  1799. ! format top =
  1800.   \&                        Bug Reports
  1801.   @<<<<<<<<<<<<<<<<<<<<<<<     @|||         @>>>>>>>>>>>>>>>>>>>>>>>
  1802.   $system,                      $%,         $date
  1803. --- 4612,4618 ----
  1804.   
  1805.   .ne 29
  1806.   # a report from a bug report form
  1807. ! format STDOUT_TOP =
  1808.   \&                        Bug Reports
  1809.   @<<<<<<<<<<<<<<<<<<<<<<<     @|||         @>>>>>>>>>>>>>>>>>>>>>>>
  1810.   $system,                      $%,         $date
  1811. ***************
  1812. *** 4990,4999 ****
  1813. --- 4854,4865 ----
  1814.   .Ip $~ 8
  1815.   The name of the current report format for the currently selected output
  1816.   channel.
  1817. + Default is name of the filehandle.
  1818.   (Mnemonic: brother to $^.)
  1819.   .Ip $^ 8
  1820.   The name of the current top-of-page format for the currently selected output
  1821.   channel.
  1822. + Default is name of the filehandle with \*(L"_TOP\*(R" appended.
  1823.   (Mnemonic: points to top of page.)
  1824.   .Ip $| 8
  1825.   If set to nonzero, forces a flush after every write or print on the currently
  1826. ***************
  1827. *** 5197,5202 ****
  1828. --- 5063,5073 ----
  1829.   (Mnemonic: value of
  1830.   .B \-D
  1831.   switch.)
  1832. + .Ip $^F 8 2
  1833. + The maximum system file descriptor, ordinarily 2.  System file descriptors
  1834. + are passed to subprocesses, while higher file descriptors are not.
  1835. + During an open, system file descriptors are preserved even if the open
  1836. + fails.  Ordinary file descriptors are closed before the open is attempted.
  1837.   .Ip $^I 8 2
  1838.   The current value of the inplace-edit extension.
  1839.   Use undef to disable inplace editing.
  1840. ***************
  1841. *** 5204,5210 ****
  1842.   .B \-i
  1843.   switch.)
  1844.   .Ip $^P 8 2
  1845. ! The name that Perl itself was invoked as, from argv[0].
  1846.   .Ip $^T 8 2
  1847.   The time at which the script began running, in seconds since the epoch.
  1848.   The values returned by the
  1849. --- 5075,5083 ----
  1850.   .B \-i
  1851.   switch.)
  1852.   .Ip $^P 8 2
  1853. ! The internal flag that the debugger clears so that it doesn't
  1854. ! debug itself.  You could conceivable disable debugging yourself
  1855. ! by clearing it.
  1856.   .Ip $^T 8 2
  1857.   The time at which the script began running, in seconds since the epoch.
  1858.   The values returned by the
  1859. ***************
  1860. *** 5218,5223 ****
  1861. --- 5091,5098 ----
  1862.   (Mnemonic: related to the
  1863.   .B \-w
  1864.   switch.)
  1865. + .Ip $^X 8 2
  1866. + The name that Perl itself was executed as, from argv[0].
  1867.   .Ip $ARGV 8 3
  1868.   contains the name of the current file when reading from <>.
  1869.   .Ip @ARGV 8 3
  1870.  
  1871. *** End of Patch 7 ***
  1872. exit 0 # Just in case...
  1873. -- 
  1874. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1875. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1876. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1877. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1878.