home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume13 / perl / patches6-10 / patch9 < prev   
Encoding:
Text File  |  1988-01-30  |  6.2 KB  |  209 lines
  1. Path: bbn.com!bbn!husc6!hao!ames!elroy!devvax!lroot
  2. From: lroot@devvax.JPL.NASA.GOV (The Superuser)
  3. Newsgroups: comp.sources.bugs
  4. Subject: perl 1.0 patch #9
  5. Summary: This is an official patch for perl 1.0.  Please apply it.
  6. Message-ID: <1187@devvax.JPL.NASA.GOV>
  7. Date: 30 Jan 88 17:16:02 GMT
  8. Organization: Jet Propulsion Laboratory, Pasadena, CA
  9. Lines: 198
  10.  
  11. System: perl version 1.0
  12. Patch #: 9
  13. Priority: HIGH for SysV sites
  14. Subject: 3 portability problems
  15. From: pttesac!Marnix!vanam (Marnix (ain't unix!) A.  van\ Ammers)
  16.  
  17. Description:
  18.     There's a #define YYDEBUG; in perl.h that ought to be
  19.     #define YYDEBUG 1.  Interesting that it works the former way on
  20.     any systems at all.
  21.  
  22.     Patch 2 was defective and introduced a couple of lines with missing
  23.     right parens.  Learn something old every day...
  24.  
  25.     Some awks can't handle
  26.         awk '$6 != "" {print substr($6,2,100)}' </tmp/Cppsym2$$ ;;
  27.     if field 6 doesn't exist.  Changed conditional to NF > 5.
  28.  
  29.     There was also a problem that I fixed in metaconfig that involved
  30.     Configure grepping .SH files out of MANIFEST when the .SH was only
  31.     in the commentary.  This doesn't affect perl's Configure because
  32.     there aren't any comments containing .SH in the MANIFEST file.
  33.     But that's the nice thing about metaconfig--you generate a new
  34.     Configure script and also get the changes you don't need (yet).
  35.  
  36. Fix:    From rn, say "| patch -d DIR", where DIR is your perl source
  37.     directory.  Outside of rn, say "cd DIR; patch <thisarticle".
  38.     If you don't have the patch program, apply the following by hand,
  39.     or get patch.
  40.  
  41.     If patch indicates that patchlevel is the wrong version, you may need
  42.     to apply one or more previous patches, or the patch may already
  43.     have been applied.  See the patchlevel.h file to find out what has or
  44.     has not been applied.  In any event, don't continue with the patch.
  45.  
  46.     If you are missing previous patches they can be obtained from me:
  47.  
  48.     Larry Wall
  49.     lwall@jpl-devvax.jpl.nasa.gov
  50.  
  51.     If you send a mail message of the following form it will greatly speed
  52.     processing:
  53.  
  54.     Subject: Command
  55.     @SH mailpatch PATH perl 1.0 LIST
  56.            ^ note the c
  57.  
  58.     where PATH is a return path FROM ME TO YOU in Internet notation, and
  59.     LIST is the number of one or more patches you need, separated by spaces,
  60.     commas, and/or hyphens.  Saying 35- says everything from 35 to the end.
  61.  
  62.     You can also get the patches via anonymous FTP from
  63.     jpl-devvax.jpl.nasa.gov (128.149.8.43).
  64.  
  65. Index: patchlevel.h
  66. Prereq: 8
  67. 1c1
  68. < #define PATCHLEVEL 8
  69. ---
  70. > #define PATCHLEVEL 9
  71.  
  72. Index: Configure
  73. Prereq: 1.0.1.3
  74. *** Configure.old    Sat Jan 30 08:57:50 1988
  75. --- Configure    Sat Jan 30 08:57:54 1988
  76. ***************
  77. *** 8,14 ****
  78.   # and edit it to reflect your system.  Some packages may include samples
  79.   # of config.h for certain machines, so you might look for one of those.)
  80.   #
  81. ! # $Header: Configure,v 1.0.1.3 88/01/26 14:14:14 root Exp $
  82.   #
  83.   # Yes, you may rip this off to use in other distribution packages.
  84.   # (Note: this Configure script was generated automatically.  Rather than
  85. --- 8,14 ----
  86.   # and edit it to reflect your system.  Some packages may include samples
  87.   # of config.h for certain machines, so you might look for one of those.)
  88.   #
  89. ! # $Header: Configure,v 1.0.1.4 88/01/30 08:51:49 root Exp $
  90.   #
  91.   # Yes, you may rip this off to use in other distribution packages.
  92.   # (Note: this Configure script was generated automatically.  Rather than
  93. ***************
  94. *** 998,1004 ****
  95.   echo exit 1 >>/tmp/Cppsym\$\$
  96.   $cpp $cppminus </tmp/Cppsym\$\$ >/tmp/Cppsym2\$\$
  97.   case "\$list" in
  98. ! true) awk '\$6 != "" {print substr(\$6,2,100)}' </tmp/Cppsym2\$\$ ;;
  99.   *)
  100.       sh /tmp/Cppsym2\$\$
  101.       status=\$?
  102. --- 998,1004 ----
  103.   echo exit 1 >>/tmp/Cppsym\$\$
  104.   $cpp $cppminus </tmp/Cppsym\$\$ >/tmp/Cppsym2\$\$
  105.   case "\$list" in
  106. ! true) awk 'NF > 5 {print substr(\$6,2,100)}' </tmp/Cppsym2\$\$ ;;
  107.   *)
  108.       sh /tmp/Cppsym2\$\$
  109.       status=\$?
  110. ***************
  111. *** 1379,1385 ****
  112.   
  113.   echo " "
  114.   echo "Doing variable substitutions on .SH files..."
  115. ! set x `$grep '\.SH' <MANIFEST | awk '{print $1}'`
  116.   shift
  117.   case $# in
  118.   0) set x *.SH; shift;;
  119. --- 1379,1385 ----
  120.   
  121.   echo " "
  122.   echo "Doing variable substitutions on .SH files..."
  123. ! set x `awk '{print $1}' <MANIFEST | $grep '\.SH'`
  124.   shift
  125.   case $# in
  126.   0) set x *.SH; shift;;
  127.  
  128. Index: arg.c
  129. Prereq: 1.0.1.4
  130. *** arg.c.old    Sat Jan 30 08:58:14 1988
  131. --- arg.c    Sat Jan 30 08:58:19 1988
  132. ***************
  133. *** 1,6 ****
  134. ! /* $Header: arg.c,v 1.0.1.4 88/01/28 10:22:06 root Exp $
  135.    *
  136.    * $Log:    arg.c,v $
  137.    * Revision 1.0.1.4  88/01/28  10:22:06  root
  138.    * patch8: added eval operator.
  139.    * 
  140. --- 1,9 ----
  141. ! /* $Header: arg.c,v 1.0.1.5 88/01/30 08:53:16 root Exp $
  142.    *
  143.    * $Log:    arg.c,v $
  144. +  * Revision 1.0.1.5  88/01/30  08:53:16  root
  145. +  * patch9: fixed some missing right parens introduced (?) by patch 2
  146. +  * 
  147.    * Revision 1.0.1.4  88/01/28  10:22:06  root
  148.    * patch8: added eval operator.
  149.    * 
  150. ***************
  151. *** 552,559 ****
  152.           apush(ary,str_nmake((double)statbuf.st_blksize));
  153.           apush(ary,str_nmake((double)statbuf.st_blocks));
  154.   #else
  155. !         apush(ary,str_make("");
  156. !         apush(ary,str_make("");
  157.   #endif
  158.       }
  159.       sarg = (STR**)safemalloc((max+2)*sizeof(STR*));
  160. --- 555,562 ----
  161.           apush(ary,str_nmake((double)statbuf.st_blksize));
  162.           apush(ary,str_nmake((double)statbuf.st_blocks));
  163.   #else
  164. !         apush(ary,str_make(""));
  165. !         apush(ary,str_make(""));
  166.   #endif
  167.       }
  168.       sarg = (STR**)safemalloc((max+2)*sizeof(STR*));
  169.  
  170. Index: perl.h
  171. Prereq: 1.0.1.3
  172. *** perl.h.old    Sat Jan 30 08:58:36 1988
  173. --- perl.h    Sat Jan 30 08:58:36 1988
  174. ***************
  175. *** 1,6 ****
  176. ! /* $Header: perl.h,v 1.0.1.3 88/01/28 10:24:17 root Exp $
  177.    *
  178.    * $Log:    perl.h,v $
  179.    * Revision 1.0.1.3  88/01/28  10:24:17  root
  180.    * patch8: added eval operator.
  181.    * 
  182. --- 1,9 ----
  183. ! /* $Header: perl.h,v 1.0.1.4 88/01/30 08:54:00 root Exp $
  184.    *
  185.    * $Log:    perl.h,v $
  186. +  * Revision 1.0.1.4  88/01/30  08:54:00  root
  187. +  * patch9: changed #define YYDEBUG; to #define YYDEBUG 1
  188. +  * 
  189.    * Revision 1.0.1.3  88/01/28  10:24:17  root
  190.    * patch8: added eval operator.
  191.    * 
  192. ***************
  193. *** 184,190 ****
  194.   EXT int dlevel INIT(0);
  195.   EXT char debname[40];
  196.   EXT char debdelim[40];
  197. ! #define YYDEBUG;
  198.   extern int yydebug;
  199.   #endif
  200.   
  201. --- 187,193 ----
  202.   EXT int dlevel INIT(0);
  203.   EXT char debname[40];
  204.   EXT char debdelim[40];
  205. ! #define YYDEBUG 1
  206.   extern int yydebug;
  207.   #endif
  208.   
  209.