home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume30 / perl / patch34 < prev    next >
Encoding:
Text File  |  1992-06-12  |  14.3 KB  |  539 lines
  1. Newsgroups: comp.sources.misc
  2. From: lwall@netlabs.com (Larry Wall)
  3. Subject:  v30i045:  perl - The perl programming language, Patch34
  4. Message-ID: <1992Jun12.135957.14457@sparky.imd.sterling.com>
  5. X-Md4-Signature: daacee50d94107d76db826d2e5d9fea0
  6. Date: Fri, 12 Jun 1992 13:59:57 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: lwall@netlabs.com (Larry Wall)
  10. Posting-number: Volume 30, Issue 45
  11. Archive-name: perl/patch34
  12. Environment: UNIX, MS-DOS, OS2
  13. Patch-To: perl: Volume 18, Issue 19-54
  14.  
  15. System: perl version 4.0
  16. Patch #: 34
  17. Priority: HIGH
  18. Subject: tests for safe bcopy and memcpy sometimes needed libraries
  19. Subject: join with null list attempted negative allocation
  20. Subject: sprintf("%6.4s", "abcdefg") didn't print "abcd  "
  21. Subject: some systems don't declare h_errno extern in header files
  22. Subject: library files were installed without guaranteed permissions
  23. Subject: changed perlsh to use $/ = "\n\n"
  24. Subject: expectterm incorrectly set to indicate start of program or block
  25. Subject: quotes containing subscripts containing variables didn't parse right
  26. Subject: boneheaded typo in my_bcopy()
  27. Subject: pidgone() wasn't declared right
  28.  
  29. Description:
  30.     Here's the typical cleanup patch that follows any large
  31.     set of patches.  My testing organization is either too large
  32.     or too small, depending on how you look at it, sigh...
  33.  
  34. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your perl source
  35.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  36.     If you don't have the patch program, apply the following by hand,
  37.     or get patch (version 2.0, latest patchlevel).
  38.  
  39.     After patching:
  40.         Configure -d
  41.         make depend
  42.         make
  43.         make test
  44.         make install
  45.  
  46.     If patch indicates that patchlevel is the wrong version, you may need
  47.     to apply one or more previous patches, or the patch may already
  48.     have been applied.  See the patchlevel.h file to find out what has or
  49.     has not been applied.  In any event, don't continue with the patch.
  50.  
  51.     If you are missing previous patches they can be obtained from me:
  52.  
  53.     Larry Wall
  54.     lwall@netlabs.com
  55.  
  56.     If you send a mail message of the following form it will greatly speed
  57.     processing:
  58.  
  59.     Subject: Command
  60.     @SH mailpatch PATH perl 4.0 LIST
  61.            ^ note the c
  62.  
  63.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  64.     or in bang notation from some well-known host, and LIST is the number
  65.     of one or more patches you need, separated by spaces, commas, and/or
  66.     hyphens.  Saying 35- says everything from 35 to the end.
  67.  
  68.  
  69. Index: patchlevel.h
  70. Prereq: 33
  71. 1c1
  72. < #define PATCHLEVEL 33
  73. ---
  74. > #define PATCHLEVEL 34
  75.  
  76. Index: Configure
  77. Prereq: 4.0.1.7
  78. *** Configure.old    Thu Jun 11 21:19:44 1992
  79. --- Configure    Thu Jun 11 21:19:46 1992
  80. ***************
  81. *** 8,14 ****
  82.   # and edit it to reflect your system.  Some packages may include samples
  83.   # of config.h for certain machines, so you might look for one of those.)
  84.   #
  85. ! # $RCSfile: Configure,v $$Revision: 4.0.1.7 $$Date: 92/06/08 11:38:16 $
  86.   #
  87.   # Yes, you may rip this off to use in other distribution packages.
  88.   # (Note: this Configure script was generated automatically.  Rather than
  89. --- 8,14 ----
  90.   # and edit it to reflect your system.  Some packages may include samples
  91.   # of config.h for certain machines, so you might look for one of those.)
  92.   #
  93. ! # $RCSfile: Configure,v $$Revision: 4.0.1.8 $$Date: 92/06/11 21:04:45 $
  94.   #
  95.   # Yes, you may rip this off to use in other distribution packages.
  96.   # (Note: this Configure script was generated automatically.  Rather than
  97. ***************
  98. *** 2080,2086 ****
  99.       exit(0);
  100.   }
  101.   EOCP
  102. !     if $cc safebcpy.c -o safebcpy $ccflags >/dev/null 2>&1 ; then
  103.           if ./safebcpy; then
  104.           echo "It can."
  105.           d_safebcpy=define
  106. --- 2080,2086 ----
  107.       exit(0);
  108.   }
  109.   EOCP
  110. !     if $cc safebcpy.c -o safebcpy $ccflags $libs >/dev/null 2>&1 ; then
  111.           if ./safebcpy; then
  112.           echo "It can."
  113.           d_safebcpy=define
  114. ***************
  115. *** 2465,2471 ****
  116.       exit(0);
  117.   }
  118.   EOCP
  119. !     if $cc safemcpy.c -o safemcpy $ccflags >/dev/null 2>&1 ; then
  120.           if ./safemcpy; then
  121.           echo "It can."
  122.           d_safemcpy=define
  123. --- 2465,2471 ----
  124.       exit(0);
  125.   }
  126.   EOCP
  127. !     if $cc safemcpy.c -o safemcpy $ccflags $libs >/dev/null 2>&1 ; then
  128.           if ./safemcpy; then
  129.           echo "It can."
  130.           d_safemcpy=define
  131.  
  132. Index: doarg.c
  133. *** doarg.c.old    Thu Jun 11 21:20:17 1992
  134. --- doarg.c    Thu Jun 11 21:20:18 1992
  135. ***************
  136. *** 1,4 ****
  137. ! /* $RCSfile: doarg.c,v $$Revision: 4.0.1.6 $$Date: 92/06/08 12:34:30 $
  138.    *
  139.    *    Copyright (c) 1991, Larry Wall
  140.    *
  141. --- 1,4 ----
  142. ! /* $RCSfile: doarg.c,v $$Revision: 4.0.1.7 $$Date: 92/06/11 21:07:11 $
  143.    *
  144.    *    Copyright (c) 1991, Larry Wall
  145.    *
  146. ***************
  147. *** 6,11 ****
  148. --- 6,15 ----
  149.    *    License or the Artistic License, as specified in the README file.
  150.    *
  151.    * $Log:    doarg.c,v $
  152. +  * Revision 4.0.1.7  92/06/11  21:07:11  lwall
  153. +  * patch34: join with null list attempted negative allocation
  154. +  * patch34: sprintf("%6.4s", "abcdefg") didn't print "abcd  "
  155. +  * 
  156.    * Revision 4.0.1.6  92/06/08  12:34:30  lwall
  157.    * patch20: removed implicit int declarations on funcions
  158.    * patch20: pattern modifiers i and o didn't interact right
  159. ***************
  160. *** 406,412 ****
  161.   
  162.       st += sp + 1;
  163.   
  164. !     len = delimlen * (items - 1);
  165.       if (str->str_len < len + items) {    /* current length is way too short */
  166.       while (items-- > 0) {
  167.           if (*st)
  168. --- 410,416 ----
  169.   
  170.       st += sp + 1;
  171.   
  172. !     len = (items > 0 ? (delimlen * (items - 1) ) : 0);
  173.       if (str->str_len < len + items) {    /* current length is way too short */
  174.       while (items-- > 0) {
  175.           if (*st)
  176. ***************
  177. *** 982,995 ****
  178.               char *mp = index(f, '.');
  179.               int min = atoi(f+2);
  180.   
  181. !             if (xlen < min)
  182. !             post = min - xlen;
  183. !             else if (mp) {
  184.               int max = atoi(mp+1);
  185.   
  186.               if (xlen > max)
  187.                   xlen = max;
  188.               }
  189.               break;
  190.           }
  191.           else if (isDIGIT(f[1])) {
  192. --- 986,999 ----
  193.               char *mp = index(f, '.');
  194.               int min = atoi(f+2);
  195.   
  196. !             if (mp) {
  197.               int max = atoi(mp+1);
  198.   
  199.               if (xlen > max)
  200.                   xlen = max;
  201.               }
  202. +             if (xlen < min)
  203. +             post = min - xlen;
  204.               break;
  205.           }
  206.           else if (isDIGIT(f[1])) {
  207. ***************
  208. *** 996,1009 ****
  209.               char *mp = index(f, '.');
  210.               int min = atoi(f+1);
  211.   
  212. !             if (xlen < min)
  213. !             pre = min - xlen;
  214. !             else if (mp) {
  215.               int max = atoi(mp+1);
  216.   
  217.               if (xlen > max)
  218.                   xlen = max;
  219.               }
  220.               break;
  221.           }
  222.           strcpy(tokenbuf+64,f);    /* sprintf($s,...$s...) */
  223. --- 1000,1013 ----
  224.               char *mp = index(f, '.');
  225.               int min = atoi(f+1);
  226.   
  227. !             if (mp) {
  228.               int max = atoi(mp+1);
  229.   
  230.               if (xlen > max)
  231.                   xlen = max;
  232.               }
  233. +             if (xlen < min)
  234. +             pre = min - xlen;
  235.               break;
  236.           }
  237.           strcpy(tokenbuf+64,f);    /* sprintf($s,...$s...) */
  238.  
  239. Index: doio.c
  240. *** doio.c.old    Thu Jun 11 21:20:26 1992
  241. --- doio.c    Thu Jun 11 21:20:28 1992
  242. ***************
  243. *** 1,4 ****
  244. ! /* $RCSfile: doio.c,v $$Revision: 4.0.1.5 $$Date: 92/06/08 13:00:21 $
  245.    *
  246.    *    Copyright (c) 1991, Larry Wall
  247.    *
  248. --- 1,4 ----
  249. ! /* $RCSfile: doio.c,v $$Revision: 4.0.1.6 $$Date: 92/06/11 21:08:16 $
  250.    *
  251.    *    Copyright (c) 1991, Larry Wall
  252.    *
  253. ***************
  254. *** 6,11 ****
  255. --- 6,14 ----
  256.    *    License or the Artistic License, as specified in the README file.
  257.    *
  258.    * $Log:    doio.c,v $
  259. +  * Revision 4.0.1.6  92/06/11  21:08:16  lwall
  260. +  * patch34: some systems don't declare h_errno extern in header files
  261. +  * 
  262.    * Revision 4.0.1.5  92/06/08  13:00:21  lwall
  263.    * patch20: some machines don't define ENOTSOCK in errno.h
  264.    * patch20: new warnings for failed use of stat operators on filenames with \n
  265. ***************
  266. *** 62,67 ****
  267. --- 65,74 ----
  268.   #include <sys/select.h>
  269.   #endif
  270.   #endif
  271. + #endif
  272. + 
  273. + #ifdef HOST_NOT_FOUND
  274. + extern int h_errno;
  275.   #endif
  276.   
  277.   #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
  278.  
  279. Index: installperl
  280. *** installperl.old    Thu Jun 11 21:20:37 1992
  281. --- installperl    Thu Jun 11 21:20:37 1992
  282. ***************
  283. *** 150,155 ****
  284. --- 150,156 ----
  285.           if ($?) {
  286.           &unlink("$installprivlib/$file");
  287.           &cmd("cp $file $installprivlib");
  288. +         &chmod(0644, "$installprivlib/$file");
  289.           }
  290.       }
  291.       }
  292.  
  293. Index: hints/isc_3_2_3.sh
  294. *** hints/isc_3_2_3.sh.old    Thu Jun 11 21:20:34 1992
  295. --- hints/isc_3_2_3.sh    Thu Jun 11 21:20:34 1992
  296. ***************
  297. *** 0 ****
  298. --- 1,2 ----
  299. + set `echo $libswanted | sed -e 's/ socket / inet /'`
  300. + libswanted="$*"
  301.  
  302. Index: perlsh
  303. *** perlsh.old    Thu Jun 11 21:20:39 1992
  304. --- perlsh    Thu Jun 11 21:20:40 1992
  305. ***************
  306. *** 6,12 ****
  307.   # Note that it must be a complete perl statement--don't type double
  308.   #  carriage return in the middle of a loop.
  309.   
  310. ! $/ = '';    # set paragraph mode
  311.   $SHlinesep = "\n";
  312.   while ($SHcmd = <>) {
  313.       $/ = $SHlinesep;
  314. --- 6,12 ----
  315.   # Note that it must be a complete perl statement--don't type double
  316.   #  carriage return in the middle of a loop.
  317.   
  318. ! $/ = "\n\n";    # set paragraph mode
  319.   $SHlinesep = "\n";
  320.   while ($SHcmd = <>) {
  321.       $/ = $SHlinesep;
  322.  
  323. Index: perly.y
  324. *** perly.y.old    Thu Jun 11 21:20:42 1992
  325. --- perly.y    Thu Jun 11 21:20:43 1992
  326. ***************
  327. *** 1,4 ****
  328. ! /* $RCSfile: perly.y,v $$Revision: 4.0.1.4 $$Date: 92/06/08 17:33:25 $
  329.    *
  330.    *    Copyright (c) 1991, Larry Wall
  331.    *
  332. --- 1,4 ----
  333. ! /* $RCSfile: perly.y,v $$Revision: 4.0.1.5 $$Date: 92/06/11 21:12:50 $
  334.    *
  335.    *    Copyright (c) 1991, Larry Wall
  336.    *
  337. ***************
  338. *** 6,11 ****
  339. --- 6,14 ----
  340.    *    License or the Artistic License, as specified in the README file.
  341.    *
  342.    * $Log:    perly.y,v $
  343. +  * Revision 4.0.1.5  92/06/11  21:12:50  lwall
  344. +  * patch34: expectterm incorrectly set to indicate start of program or block
  345. +  * 
  346.    * Revision 4.0.1.4  92/06/08  17:33:25  lwall
  347.    * patch20: one of the backdoors to expectterm was on the wrong reduction
  348.    * 
  349. ***************
  350. *** 106,113 ****
  351.           {
  352.   #if defined(YYDEBUG) && defined(DEBUGGING)
  353.               yydebug = (debug & 1);
  354. -             expectterm = 2;
  355.   #endif
  356.           }
  357.       /*CONTINUED*/    lineseq
  358.               { if (in_eval)
  359. --- 109,116 ----
  360.           {
  361.   #if defined(YYDEBUG) && defined(DEBUGGING)
  362.               yydebug = (debug & 1);
  363.   #endif
  364. +             expectterm = 2;
  365.           }
  366.       /*CONTINUED*/    lineseq
  367.               { if (in_eval)
  368.  
  369. Index: str.c
  370. *** str.c.old    Thu Jun 11 21:20:49 1992
  371. --- str.c    Thu Jun 11 21:20:50 1992
  372. ***************
  373. *** 1,4 ****
  374. ! /* $RCSfile: str.c,v $$Revision: 4.0.1.5 $$Date: 92/06/08 15:40:43 $
  375.    *
  376.    *    Copyright (c) 1991, Larry Wall
  377.    *
  378. --- 1,4 ----
  379. ! /* $RCSfile: str.c,v $$Revision: 4.0.1.6 $$Date: 92/06/11 21:14:21 $
  380.    *
  381.    *    Copyright (c) 1991, Larry Wall
  382.    *
  383. ***************
  384. *** 6,11 ****
  385. --- 6,14 ----
  386.    *    License or the Artistic License, as specified in the README file.
  387.    *
  388.    * $Log:    str.c,v $
  389. +  * Revision 4.0.1.6  92/06/11  21:14:21  lwall
  390. +  * patch34: quotes containing subscripts containing variables didn't parse right
  391. +  * 
  392.    * Revision 4.0.1.5  92/06/08  15:40:43  lwall
  393.    * patch20: removed implicit int declarations on functions
  394.    * patch20: Perl now distinguishes overlapped copies from non-overlapped
  395. ***************
  396. *** 1048,1054 ****
  397.               case '&':
  398.               case '*':
  399.               s = scanident(s,send,tokenbuf);
  400. !             break;
  401.               case '\'':
  402.               case '"':
  403.               /*SUPPRESS 68*/
  404. --- 1051,1057 ----
  405.               case '&':
  406.               case '*':
  407.               s = scanident(s,send,tokenbuf);
  408. !             continue;
  409.               case '\'':
  410.               case '"':
  411.               /*SUPPRESS 68*/
  412.  
  413. Index: toke.c
  414. *** toke.c.old    Thu Jun 11 21:20:57 1992
  415. --- toke.c    Thu Jun 11 21:20:58 1992
  416. ***************
  417. *** 1,4 ****
  418. ! /* $RCSfile: toke.c,v $$Revision: 4.0.1.6 $$Date: 92/06/08 16:03:49 $
  419.    *
  420.    *    Copyright (c) 1991, Larry Wall
  421.    *
  422. --- 1,4 ----
  423. ! /* $RCSfile: toke.c,v $$Revision: 4.0.1.7 $$Date: 92/06/11 21:16:30 $
  424.    *
  425.    *    Copyright (c) 1991, Larry Wall
  426.    *
  427. ***************
  428. *** 6,11 ****
  429. --- 6,14 ----
  430.    *    License or the Artistic License, as specified in the README file.
  431.    *
  432.    * $Log:    toke.c,v $
  433. +  * Revision 4.0.1.7  92/06/11  21:16:30  lwall
  434. +  * patch34: expectterm incorrectly set to indicate start of program or block
  435. +  * 
  436.    * Revision 4.0.1.6  92/06/08  16:03:49  lwall
  437.    * patch20: an EXPR may now start with a bareword
  438.    * patch20: print $fh EXPR can now expect term rather than operator in EXPR
  439. ***************
  440. *** 532,538 ****
  441.       yylval.ival = curcmd->c_line;
  442.       if (isSPACE(*s) || *s == '#')
  443.           cmdline = NOLINE;   /* invalidate current command line number */
  444. !     OPERATOR(tmp);
  445.       case ';':
  446.       if (curcmd->c_line < cmdline)
  447.           cmdline = curcmd->c_line;
  448. --- 535,542 ----
  449.       yylval.ival = curcmd->c_line;
  450.       if (isSPACE(*s) || *s == '#')
  451.           cmdline = NOLINE;   /* invalidate current command line number */
  452. !     expectterm = 2;
  453. !     RETURN(tmp);
  454.       case ';':
  455.       if (curcmd->c_line < cmdline)
  456.           cmdline = curcmd->c_line;
  457.  
  458. Index: util.c
  459. *** util.c.old    Thu Jun 11 21:21:05 1992
  460. --- util.c    Thu Jun 11 21:21:06 1992
  461. ***************
  462. *** 1,4 ****
  463. ! /* $RCSfile: util.c,v $$Revision: 4.0.1.5 $$Date: 92/06/08 16:08:37 $
  464.    *
  465.    *    Copyright (c) 1991, Larry Wall
  466.    *
  467. --- 1,4 ----
  468. ! /* $RCSfile: util.c,v $$Revision: 4.0.1.6 $$Date: 92/06/11 21:18:47 $
  469.    *
  470.    *    Copyright (c) 1991, Larry Wall
  471.    *
  472. ***************
  473. *** 6,11 ****
  474. --- 6,14 ----
  475.    *    License or the Artistic License, as specified in the README file.
  476.    *
  477.    * $Log:    util.c,v $
  478. +  * Revision 4.0.1.6  92/06/11  21:18:47  lwall
  479. +  * patch34: boneheaded typo in my_bcopy()
  480. +  * 
  481.    * Revision 4.0.1.5  92/06/08  16:08:37  lwall
  482.    * patch20: removed implicit int declarations on functions
  483.    * patch20: Perl now distinguishes overlapped copies from non-overlapped
  484. ***************
  485. *** 1185,1191 ****
  486.       to += len;
  487.       from += len;
  488.       while (len--)
  489. !         --*to = --*from;
  490.       }
  491.       return retval;
  492.   }
  493. --- 1188,1194 ----
  494.       to += len;
  495.       from += len;
  496.       while (len--)
  497. !         *(--to) = *(--from);
  498.       }
  499.       return retval;
  500.   }
  501.  
  502. Index: util.h
  503. *** util.h.old    Thu Jun 11 21:21:11 1992
  504. --- util.h    Thu Jun 11 21:21:11 1992
  505. ***************
  506. *** 1,4 ****
  507. ! /* $RCSfile: util.h,v $$Revision: 4.0.1.3 $$Date: 92/06/08 16:09:20 $
  508.    *
  509.    *    Copyright (c) 1991, Larry Wall
  510.    *
  511. --- 1,4 ----
  512. ! /* $RCSfile: util.h,v $$Revision: 4.0.1.4 $$Date: 92/06/11 21:19:36 $
  513.    *
  514.    *    Copyright (c) 1991, Larry Wall
  515.    *
  516. ***************
  517. *** 6,11 ****
  518. --- 6,14 ----
  519.    *    License or the Artistic License, as specified in the README file.
  520.    *
  521.    * $Log:    util.h,v $
  522. +  * Revision 4.0.1.4  92/06/11  21:19:36  lwall
  523. +  * patch34: pidgone() wasn't declared right
  524. +  * 
  525.    * Revision 4.0.1.3  92/06/08  16:09:20  lwall
  526.    * patch20: bcopy() and memcpy() now tested for overlap safety
  527.    * 
  528. ***************
  529. *** 52,54 ****
  530. --- 55,58 ----
  531.   #endif
  532.   unsigned long scanoct();
  533.   unsigned long scanhex();
  534. + void pidgone();
  535.  
  536. *** End of patch 34 ***
  537.  
  538. exit 0 # Just in case...
  539.