home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume20 / perl / patch06 < prev    next >
Encoding:
Text File  |  1991-06-19  |  49.0 KB  |  1,860 lines
  1. Newsgroups: comp.sources.misc
  2. From: Larry Wall <lwall@netlabs.com>
  3. Subject:  v20i058:  perl - The perl programming language, Patch06
  4. Message-ID: <1991Jun20.030516.8666@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: a6c3cea25be779d55c54c0d166dbac48
  6. Date: Thu, 20 Jun 1991 03:05:16 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Larry Wall <lwall@netlabs.com>
  10. Posting-number: Volume 20, Issue 58
  11. Archive-name: perl/patch06
  12. Patch-To: perl: Volume 18, Issue 19-54
  13.  
  14. System: perl version 4.0
  15. Patch #: 6
  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: 5
  55. 1c1
  56. < #define PATCHLEVEL 5
  57. ---
  58. > #define PATCHLEVEL 6
  59.  
  60. Index: msdos/dir.h
  61. Prereq: 4.0
  62. *** msdos/dir.h.old    Fri Jun  7 12:25:39 1991
  63. --- msdos/dir.h    Fri Jun  7 12:25:40 1991
  64. ***************
  65. *** 1,11 ****
  66. ! /* $Header: dir.h,v 4.0 91/03/20 01:34:20 lwall Locked $
  67.    *
  68.    *    (C) Copyright 1987, 1990 Diomidis Spinellis.
  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:    dir.h,v $
  74.    * Revision 4.0  91/03/20  01:34:20  lwall
  75.    * 4.0 baseline.
  76.    * 
  77. --- 1,14 ----
  78. ! /* $RCSfile: dir.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:22:10 $
  79.    *
  80.    *    (C) Copyright 1987, 1990 Diomidis Spinellis.
  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:    dir.h,v $
  86. +  * Revision 4.0.1.1  91/06/07  11:22:10  lwall
  87. +  * patch4: new copyright notice
  88. +  * 
  89.    * Revision 4.0  91/03/20  01:34:20  lwall
  90.    * 4.0 baseline.
  91.    * 
  92.  
  93. Index: msdos/directory.c
  94. Prereq: 4.0
  95. *** msdos/directory.c.old    Fri Jun  7 12:25:42 1991
  96. --- msdos/directory.c    Fri Jun  7 12:25:42 1991
  97. ***************
  98. *** 1,11 ****
  99. ! /* $Header: directory.c,v 4.0 91/03/20 01:34:24 lwall Locked $
  100.    *
  101.    *    (C) Copyright 1987, 1988, 1990 Diomidis Spinellis.
  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:    directory.c,v $
  107.    * Revision 4.0  91/03/20  01:34:24  lwall
  108.    * 4.0 baseline.
  109.    * 
  110. --- 1,14 ----
  111. ! /* $RCSfile: directory.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:22:24 $
  112.    *
  113.    *    (C) Copyright 1987, 1988, 1990 Diomidis Spinellis.
  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:    directory.c,v $
  119. +  * Revision 4.0.1.1  91/06/07  11:22:24  lwall
  120. +  * patch4: new copyright notice
  121. +  * 
  122.    * Revision 4.0  91/03/20  01:34:24  lwall
  123.    * 4.0 baseline.
  124.    * 
  125. ***************
  126. *** 44,50 ****
  127.   #define PATHLEN 65
  128.   
  129.   #ifndef lint
  130. ! static char rcsid[] = "$Header: directory.c,v 4.0 91/03/20 01:34:24 lwall Locked $";
  131.   #endif
  132.   
  133.   DIR *
  134. --- 47,53 ----
  135.   #define PATHLEN 65
  136.   
  137.   #ifndef lint
  138. ! static char rcsid[] = "$RCSfile: directory.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:22:24 $";
  139.   #endif
  140.   
  141.   DIR *
  142.  
  143. Index: doSH
  144. *** doSH.old    Fri Jun  7 12:23:19 1991
  145. --- doSH    Fri Jun  7 12:23:20 1991
  146. ***************
  147. *** 0 ****
  148. --- 1,36 ----
  149. + #!/bin/sh
  150. + 
  151. + : if this fails, just run all the .SH files by hand
  152. + . ./config.sh
  153. + 
  154. + echo " "
  155. + echo "Doing variable substitutions on .SH files..."
  156. + set x `awk '{print $1}' <MANIFEST | grep '\.SH'`
  157. + shift
  158. + case $# in
  159. + 0) set x *.SH; shift;;
  160. + esac
  161. + if test ! -f $1; then
  162. +     shift
  163. + fi
  164. + for file in $*; do
  165. +     set X
  166. +     shift
  167. +     chmod +x $file
  168. +     case "$file" in
  169. +     */*)
  170. +     dir=`expr X$file : 'X\(.*\)/'`
  171. +     file=`expr X$file : 'X.*/\(.*\)'`
  172. +     (cd $dir && . $file)
  173. +     ;;
  174. +     *)
  175. +     . $file
  176. +     ;;
  177. +     esac
  178. + done
  179. + if test -f config.h.SH; then
  180. +     if test ! -f config.h; then
  181. +     : oops, they left it out of MANIFEST, probably, so do it anyway.
  182. +     . config.h.SH
  183. +     fi
  184. + fi
  185.  
  186. Index: doarg.c
  187. *** doarg.c.old    Fri Jun  7 12:23:23 1991
  188. --- doarg.c    Fri Jun  7 12:23:24 1991
  189. ***************
  190. *** 1,11 ****
  191. ! /* $RCSfile: doarg.c,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:40:14 $
  192.    *
  193. !  *    Copyright (c) 1989, Larry Wall
  194.    *
  195. !  *    You may distribute under the terms of the GNU General Public License
  196. !  *    as specified in the README file that comes with the perl 3.0 kit.
  197.    *
  198.    * $Log:    doarg.c,v $
  199.    * Revision 4.0.1.1  91/04/11  17:40:14  lwall
  200.    * patch1: fixed undefined environ problem
  201.    * patch1: fixed debugger coredump on subroutines
  202. --- 1,21 ----
  203. ! /* $RCSfile: doarg.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 10:42:17 $
  204.    *
  205. !  *    Copyright (c) 1991, Larry Wall
  206.    *
  207. !  *    You may distribute under the terms of either the GNU General Public
  208. !  *    License or the Artistic License, as specified in the README file.
  209.    *
  210.    * $Log:    doarg.c,v $
  211. +  * Revision 4.0.1.2  91/06/07  10:42:17  lwall
  212. +  * patch4: new copyright notice
  213. +  * patch4: // wouldn't use previous pattern if it started with a null character
  214. +  * patch4: //o and s///o now optimize themselves fully at runtime
  215. +  * patch4: added global modifier for pattern matches
  216. +  * patch4: undef @array disabled "@array" interpolation
  217. +  * patch4: chop("") was returning "\0" rather than ""
  218. +  * patch4: vector logical operations &, | and ^ sometimes returned null string
  219. +  * patch4: syscall couldn't pass numbers with most significant bit set on sparcs
  220. +  * 
  221.    * Revision 4.0.1.1  91/04/11  17:40:14  lwall
  222.    * patch1: fixed undefined environ problem
  223.    * patch1: fixed debugger coredump on subroutines
  224. ***************
  225. *** 67,72 ****
  226. --- 77,88 ----
  227.       if (spat->spat_flags & SPAT_KEEP) {
  228.           arg_free(spat->spat_runtime);    /* it won't change, so */
  229.           spat->spat_runtime = Nullarg;    /* no point compiling again */
  230. +         scanconst(spat, m, dstr->str_cur);
  231. +         hoistmust(spat);
  232. +             if (curcmd->c_expr && (curcmd->c_flags & CF_OPTIMIZE) == CFT_EVAL) {
  233. +                 curcmd->c_flags &= ~CF_OPTIMIZE;
  234. +                 opt_arg(curcmd, 1, curcmd->c_type == C_EXPR);
  235. +             }
  236.       }
  237.       }
  238.   #ifdef DEBUGGING
  239. ***************
  240. *** 76,82 ****
  241.   #endif
  242.       safebase = ((!spat->spat_regexp || !spat->spat_regexp->nparens) &&
  243.         !sawampersand);
  244. !     if (!*spat->spat_regexp->precomp && lastspat)
  245.       spat = lastspat;
  246.       orig = m = s;
  247.       if (hint) {
  248. --- 92,98 ----
  249.   #endif
  250.       safebase = ((!spat->spat_regexp || !spat->spat_regexp->nparens) &&
  251.         !sawampersand);
  252. !     if (!spat->spat_regexp->prelen && lastspat)
  253.       spat = lastspat;
  254.       orig = m = s;
  255.       if (hint) {
  256. ***************
  257. *** 122,128 ****
  258.           spat->spat_short = Nullstr;    /* opt is being useless */
  259.       }
  260.       }
  261. !     once = ((rspat->spat_flags & SPAT_ONCE) != 0);
  262.       if (rspat->spat_flags & SPAT_CONST) {    /* known replacement string? */
  263.       if ((rspat->spat_repl[1].arg_type & A_MASK) == A_SINGLE)
  264.           dstr = rspat->spat_repl[1].arg_ptr.arg_str;
  265. --- 138,144 ----
  266.           spat->spat_short = Nullstr;    /* opt is being useless */
  267.       }
  268.       }
  269. !     once = !(rspat->spat_flags & SPAT_GLOBAL);
  270.       if (rspat->spat_flags & SPAT_CONST) {    /* known replacement string? */
  271.       if ((rspat->spat_repl[1].arg_type & A_MASK) == A_SINGLE)
  272.           dstr = rspat->spat_repl[1].arg_ptr.arg_str;
  273. ***************
  274. *** 1287,1293 ****
  275.       if (type == O_ARRAY || type == O_LARRAY) {
  276.       stab = arg[1].arg_ptr.arg_stab;
  277.       afree(stab_xarray(stab));
  278. !     stab_xarray(stab) = Null(ARRAY*);
  279.       }
  280.       else if (type == O_HASH || type == O_LHASH) {
  281.       stab = arg[1].arg_ptr.arg_stab;
  282. --- 1303,1309 ----
  283.       if (type == O_ARRAY || type == O_LARRAY) {
  284.       stab = arg[1].arg_ptr.arg_stab;
  285.       afree(stab_xarray(stab));
  286. !     stab_xarray(stab) = anew(stab);        /* so "@array" still works */
  287.       }
  288.       else if (type == O_HASH || type == O_LHASH) {
  289.       stab = arg[1].arg_ptr.arg_stab;
  290. ***************
  291. *** 1442,1455 ****
  292.       return;
  293.       }
  294.       tmps = str_get(str);
  295. !     if (!tmps)
  296. !     return;
  297. !     tmps += str->str_cur - (str->str_cur != 0);
  298. !     str_nset(astr,tmps,1);    /* remember last char */
  299. !     *tmps = '\0';                /* wipe it out */
  300. !     str->str_cur = tmps - str->str_ptr;
  301. !     str->str_nok = 0;
  302. !     STABSET(str);
  303.   }
  304.   
  305.   do_vop(optype,str,left,right)
  306. --- 1458,1473 ----
  307.       return;
  308.       }
  309.       tmps = str_get(str);
  310. !     if (tmps && str->str_cur) {
  311. !     tmps += str->str_cur - 1;
  312. !     str_nset(astr,tmps,1);    /* remember last char */
  313. !     *tmps = '\0';                /* wipe it out */
  314. !     str->str_cur = tmps - str->str_ptr;
  315. !     str->str_nok = 0;
  316. !     STABSET(str);
  317. !     }
  318. !     else
  319. !     str_nset(astr,"",0);
  320.   }
  321.   
  322.   do_vop(optype,str,left,right)
  323. ***************
  324. *** 1472,1477 ****
  325. --- 1490,1497 ----
  326.       (void)bzero(str->str_ptr + str->str_cur, len - str->str_cur);
  327.       str->str_cur = len;
  328.       }
  329. +     str->str_pok = 1;
  330. +     str->str_nok = 0;
  331.       s = str->str_ptr;
  332.       if (!s) {
  333.       str_nset(str,"",0);
  334. ***************
  335. *** 1506,1512 ****
  336.       register STR **st = stack->ary_array;
  337.       register int sp = arglast[1];
  338.       register int items = arglast[2] - sp;
  339. !     long arg[8];
  340.       register int i = 0;
  341.       int retval = -1;
  342.   
  343. --- 1526,1532 ----
  344.       register STR **st = stack->ary_array;
  345.       register int sp = arglast[1];
  346.       register int items = arglast[2] - sp;
  347. !     unsigned long arg[8];
  348.       register int i = 0;
  349.       int retval = -1;
  350.   
  351. ***************
  352. *** 1527,1536 ****
  353.        */
  354.       while (items--) {
  355.       if (st[++sp]->str_nok || !i)
  356. !         arg[i++] = (long)str_gnum(st[sp]);
  357.   #ifndef lint
  358.       else
  359. !         arg[i++] = (long)st[sp]->str_ptr;
  360.   #endif /* lint */
  361.       }
  362.       sp = arglast[1];
  363. --- 1547,1556 ----
  364.        */
  365.       while (items--) {
  366.       if (st[++sp]->str_nok || !i)
  367. !         arg[i++] = (unsigned long)str_gnum(st[sp]);
  368.   #ifndef lint
  369.       else
  370. !         arg[i++] = (unsigned long)st[sp]->str_ptr;
  371.   #endif /* lint */
  372.       }
  373.       sp = arglast[1];
  374.  
  375. Index: doio.c
  376. *** doio.c.old    Fri Jun  7 12:23:30 1991
  377. --- doio.c    Fri Jun  7 12:23:31 1991
  378. ***************
  379. *** 1,11 ****
  380. ! /* $RCSfile: doio.c,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:41:06 $
  381.    *
  382. !  *    Copyright (c) 1989, Larry Wall
  383.    *
  384. !  *    You may distribute under the terms of the GNU General Public License
  385. !  *    as specified in the README file that comes with the perl 3.0 kit.
  386.    *
  387.    * $Log:    doio.c,v $
  388.    * Revision 4.0.1.1  91/04/11  17:41:06  lwall
  389.    * patch1: hopefully straightened out some of the Xenix mess
  390.    * 
  391. --- 1,19 ----
  392. ! /* $RCSfile: doio.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 10:53:39 $
  393.    *
  394. !  *    Copyright (c) 1991, Larry Wall
  395.    *
  396. !  *    You may distribute under the terms of either the GNU General Public
  397. !  *    License or the Artistic License, as specified in the README file.
  398.    *
  399.    * $Log:    doio.c,v $
  400. +  * Revision 4.0.1.2  91/06/07  10:53:39  lwall
  401. +  * patch4: new copyright notice
  402. +  * patch4: system fd's are now treated specially
  403. +  * patch4: added $^F variable to specify maximum system fd, default 2
  404. +  * patch4: character special files now opened with bidirectional stdio buffers
  405. +  * patch4: taintchecks could improperly modify parent in vfork()
  406. +  * patch4: many, many itty-bitty portability fixes
  407. +  * 
  408.    * Revision 4.0.1.1  91/04/11  17:41:06  lwall
  409.    * patch1: hopefully straightened out some of the Xenix mess
  410.    * 
  411. ***************
  412. *** 75,80 ****
  413. --- 83,91 ----
  414.       int fd;
  415.       int writing = 0;
  416.       char mode[3];        /* stdio file mode ("r\0" or "r+\0") */
  417. +     FILE *saveifp = Nullfp;
  418. +     FILE *saveofp = Nullfp;
  419. +     char savetype = ' ';
  420.   
  421.       name = myname;
  422.       forkprocess = 1;        /* assume true if no fork */
  423. ***************
  424. *** 84,93 ****
  425.       stio = stab_io(stab) = stio_new();
  426.       else if (stio->ifp) {
  427.       fd = fileno(stio->ifp);
  428. !     if (stio->type == '|')
  429. !         result = mypclose(stio->ifp);
  430. !     else if (stio->type == '-')
  431.           result = 0;
  432.       else if (stio->ifp != stio->ofp) {
  433.           if (stio->ofp) {
  434.           result = fclose(stio->ofp);
  435. --- 95,110 ----
  436.       stio = stab_io(stab) = stio_new();
  437.       else if (stio->ifp) {
  438.       fd = fileno(stio->ifp);
  439. !     if (stio->type == '-')
  440.           result = 0;
  441. +     else if (fd <= maxsysfd) {
  442. +         saveifp = stio->ifp;
  443. +         saveofp = stio->ofp;
  444. +         savetype = stio->type;
  445. +         result = 0;
  446. +     }
  447. +     else if (stio->type == '|')
  448. +         result = mypclose(stio->ifp);
  449.       else if (stio->ifp != stio->ofp) {
  450.           if (stio->ofp) {
  451.           result = fclose(stio->ofp);
  452. ***************
  453. *** 98,104 ****
  454.       }
  455.       else
  456.           result = fclose(stio->ifp);
  457. !     if (result == EOF && fd > 2)
  458.           fprintf(stderr,"Warning: unable to close filehandle %s properly.\n",
  459.             stab_name(stab));
  460.       stio->ofp = stio->ifp = Nullfp;
  461. --- 115,121 ----
  462.       }
  463.       else
  464.           result = fclose(stio->ifp);
  465. !     if (result == EOF && fd > maxsysfd)
  466.           fprintf(stderr,"Warning: unable to close filehandle %s properly.\n",
  467.             stab_name(stab));
  468.       stio->ofp = stio->ifp = Nullfp;
  469. ***************
  470. *** 143,150 ****
  471.           fd = atoi(name);
  472.           else {
  473.           stab = stabent(name,FALSE);
  474. !         if (!stab || !stab_io(stab))
  475. !             return FALSE;
  476.           if (stab_io(stab) && stab_io(stab)->ifp) {
  477.               fd = fileno(stab_io(stab)->ifp);
  478.               if (stab_io(stab)->type == 's')
  479. --- 160,171 ----
  480.           fd = atoi(name);
  481.           else {
  482.           stab = stabent(name,FALSE);
  483. !         if (!stab || !stab_io(stab)) {
  484. ! #ifdef EINVAL
  485. !             errno = EINVAL;
  486. ! #endif
  487. !             goto say_false;
  488. !         }
  489.           if (stab_io(stab) && stab_io(stab)->ifp) {
  490.               fd = fileno(stab_io(stab)->ifp);
  491.               if (stab_io(stab)->type == 's')
  492. ***************
  493. *** 209,222 ****
  494.       }
  495.       Safefree(myname);
  496.       if (!fp)
  497. !     return FALSE;
  498.       if (stio->type &&
  499.         stio->type != '|' && stio->type != '-') {
  500.       if (fstat(fileno(fp),&statbuf) < 0) {
  501.           (void)fclose(fp);
  502. !         return FALSE;
  503.       }
  504. !     if (S_ISSOCK(statbuf.st_mode))
  505.           stio->type = 's';    /* in case a socket was passed in to us */
  506.   #ifdef S_IFMT
  507.       else if (!(statbuf.st_mode & S_IFMT))
  508. --- 230,243 ----
  509.       }
  510.       Safefree(myname);
  511.       if (!fp)
  512. !     goto say_false;
  513.       if (stio->type &&
  514.         stio->type != '|' && stio->type != '-') {
  515.       if (fstat(fileno(fp),&statbuf) < 0) {
  516.           (void)fclose(fp);
  517. !         goto say_false;
  518.       }
  519. !     if (S_ISSOCK(statbuf.st_mode) || (S_ISCHR(statbuf.st_mode) && writing))
  520.           stio->type = 's';    /* in case a socket was passed in to us */
  521.   #ifdef S_IFMT
  522.       else if (!(statbuf.st_mode & S_IFMT))
  523. ***************
  524. *** 225,232 ****
  525.       }
  526.   #if defined(HAS_FCNTL) && defined(F_SETFD)
  527.       fd = fileno(fp);
  528. !     fcntl(fd,F_SETFD,fd >= 3);
  529.   #endif
  530.       stio->ifp = fp;
  531.       if (writing) {
  532.       if (stio->type != 's')
  533. --- 246,268 ----
  534.       }
  535.   #if defined(HAS_FCNTL) && defined(F_SETFD)
  536.       fd = fileno(fp);
  537. !     fcntl(fd,F_SETFD,fd > maxsysfd);
  538.   #endif
  539. +     if (saveifp) {        /* must use old fp? */
  540. +     fd = fileno(saveifp);
  541. +     if (saveofp) {
  542. +         fflush(saveofp);        /* emulate fclose() */
  543. +         if (saveofp != saveifp) {    /* was a socket? */
  544. +         fclose(saveofp);
  545. +         Safefree(saveofp);
  546. +         }
  547. +     }
  548. +     if (fd != fileno(fp)) {
  549. +         dup2(fileno(fp), fd);
  550. +         fclose(fp);
  551. +     }
  552. +     fp = saveifp;
  553. +     }
  554.       stio->ifp = fp;
  555.       if (writing) {
  556.       if (stio->type != 's')
  557. ***************
  558. *** 235,243 ****
  559. --- 271,286 ----
  560.           if (!(stio->ofp = fdopen(fileno(fp),"w"))) {
  561.           fclose(fp);
  562.           stio->ifp = Nullfp;
  563. +         goto say_false;
  564.           }
  565.       }
  566.       return TRUE;
  567. + 
  568. + say_false:
  569. +     stio->ifp = saveifp;
  570. +     stio->ofp = saveofp;
  571. +     stio->type = savetype;
  572. +     return FALSE;
  573.   }
  574.   
  575.   FILE *
  576. ***************
  577. *** 1173,1183 ****
  578.       register char *s;
  579.       char flags[10];
  580.   
  581. - #ifdef TAINT
  582. -     taintenv();
  583. -     taintproper("Insecure dependency in exec");
  584. - #endif
  585. - 
  586.       /* save an extra exec if possible */
  587.   
  588.   #ifdef CSH
  589. --- 1216,1221 ----
  590. ***************
  591. *** 1400,1406 ****
  592.       else if (nstio->ifp)
  593.       do_close(nstab,FALSE);
  594.   
  595. !     fd = accept(fileno(gstio->ifp),buf,&len);
  596.       if (fd < 0)
  597.       goto badexit;
  598.       nstio->ifp = fdopen(fd, "r");
  599. --- 1438,1444 ----
  600.       else if (nstio->ifp)
  601.       do_close(nstab,FALSE);
  602.   
  603. !     fd = accept(fileno(gstio->ifp),(struct sockaddr *)buf,&len);
  604.       if (fd < 0)
  605.       goto badexit;
  606.       nstio->ifp = fdopen(fd, "r");
  607. ***************
  608. *** 2142,2148 ****
  609. --- 2180,2188 ----
  610.   #ifndef telldir
  611.       long telldir();
  612.   #endif
  613. + #ifndef apollo
  614.       struct DIRENT *readdir();
  615. + #endif
  616.       register struct DIRENT *dp;
  617.   
  618.       if (!stab)
  619. ***************
  620. *** 2149,2159 ****
  621.       goto nope;
  622.       if (!(stio = stab_io(stab)))
  623.       stio = stab_io(stab) = stio_new();
  624. !     if (!stio->dirp && optype != O_OPENDIR)
  625.       goto nope;
  626.       st[sp] = &str_yes;
  627.       switch (optype) {
  628. !     case O_OPENDIR:
  629.       if (stio->dirp)
  630.           closedir(stio->dirp);
  631.       if (!(stio->dirp = opendir(str_get(st[sp+1]))))
  632. --- 2189,2199 ----
  633.       goto nope;
  634.       if (!(stio = stab_io(stab)))
  635.       stio = stab_io(stab) = stio_new();
  636. !     if (!stio->dirp && optype != O_OPEN_DIR)
  637.       goto nope;
  638.       st[sp] = &str_yes;
  639.       switch (optype) {
  640. !     case O_OPEN_DIR:
  641.       if (stio->dirp)
  642.           closedir(stio->dirp);
  643.       if (!(stio->dirp = opendir(str_get(st[sp+1]))))
  644. ***************
  645. *** 2522,2532 ****
  646.           if (semctl(id, 0, IPC_STAT, &semds) == -1)
  647.           return -1;
  648.           getinfo = (cmd == GETALL);
  649. ! #ifdef _POSIX_SOURCE
  650. !         infosize = semds.sem_nsems * sizeof(ushort_t);
  651. ! #else
  652. !         infosize = semds.sem_nsems * sizeof(ushort);
  653. ! #endif
  654.       }
  655.       break;
  656.   #endif
  657. --- 2562,2570 ----
  658.           if (semctl(id, 0, IPC_STAT, &semds) == -1)
  659.           return -1;
  660.           getinfo = (cmd == GETALL);
  661. !         infosize = semds.sem_nsems * sizeof(short);
  662. !         /* "short" is technically wrong but much more portable
  663. !            than guessing about u_?short(_t)? */
  664.       }
  665.       break;
  666.   #endif
  667. ***************
  668. *** 2665,2671 ****
  669.       return -1;
  670.       }
  671.       errno = 0;
  672. !     return semop(id, opbuf, opsize/sizeof(struct sembuf));
  673.   #else
  674.       fatal("semop not implemented");
  675.   #endif
  676. --- 2703,2709 ----
  677.       return -1;
  678.       }
  679.       errno = 0;
  680. !     return semop(id, (struct sembuf *)opbuf, opsize/sizeof(struct sembuf));
  681.   #else
  682.       fatal("semop not implemented");
  683.   #endif
  684. ***************
  685. *** 2683,2689 ****
  686. --- 2721,2729 ----
  687.       char *mbuf, *shm;
  688.       int id, mpos, msize;
  689.       struct shmid_ds shmds;
  690. + #ifndef VOIDSHMAT
  691.       extern char *shmat();
  692. + #endif
  693.   
  694.       id = (int)str_gnum(st[++sp]);
  695.       mstr = st[++sp];
  696. ***************
  697. *** 2696,2702 ****
  698.       errno = EFAULT;        /* can't do as caller requested */
  699.       return -1;
  700.       }
  701. !     shm = shmat(id, (char *)NULL, (optype == O_SHMREAD) ? SHM_RDONLY : 0);
  702.       if (shm == (char *)-1)    /* I hate System V IPC, I really do */
  703.       return -1;
  704.       mbuf = str_get(mstr);
  705. --- 2736,2742 ----
  706.       errno = EFAULT;        /* can't do as caller requested */
  707.       return -1;
  708.       }
  709. !     shm = (char*)shmat(id, (char*)NULL, (optype == O_SHMREAD) ? SHM_RDONLY : 0);
  710.       if (shm == (char *)-1)    /* I hate System V IPC, I really do */
  711.       return -1;
  712.       mbuf = str_get(mstr);
  713.  
  714. Index: dolist.c
  715. Prereq: 4.0
  716. *** dolist.c.old    Fri Jun  7 12:23:36 1991
  717. --- dolist.c    Fri Jun  7 12:23:37 1991
  718. ***************
  719. *** 1,11 ****
  720. ! /* $Header: dolist.c,v 4.0 91/03/20 01:08:03 lwall Locked $
  721.    *
  722. !  *    Copyright (c) 1989, Larry Wall
  723.    *
  724. !  *    You may distribute under the terms of the GNU General Public License
  725. !  *    as specified in the README file that comes with the perl 3.0 kit.
  726.    *
  727.    * $Log:    dolist.c,v $
  728.    * Revision 4.0  91/03/20  01:08:03  lwall
  729.    * 4.0 baseline.
  730.    * 
  731. --- 1,19 ----
  732. ! /* $RCSfile: dolist.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:58:28 $
  733.    *
  734. !  *    Copyright (c) 1991, Larry Wall
  735.    *
  736. !  *    You may distribute under the terms of either the GNU General Public
  737. !  *    License or the Artistic License, as specified in the README file.
  738.    *
  739.    * $Log:    dolist.c,v $
  740. +  * Revision 4.0.1.1  91/06/07  10:58:28  lwall
  741. +  * patch4: new copyright notice
  742. +  * patch4: added global modifier for pattern matches
  743. +  * patch4: // wouldn't use previous pattern if it started with a null character
  744. +  * patch4: //o and s///o now optimize themselves fully at runtime
  745. +  * patch4: $` was busted inside s///
  746. +  * patch4: caller($arg) didn't work except under debugger
  747. +  * 
  748.    * Revision 4.0  91/03/20  01:08:03  lwall
  749.    * 4.0 baseline.
  750.    * 
  751. ***************
  752. *** 35,40 ****
  753. --- 43,50 ----
  754.       char *strend = s + st[sp]->str_cur;
  755.       STR *tmpstr;
  756.       char *myhint = hint;
  757. +     int global;
  758. +     int safebase;
  759.   
  760.       hint = Nullch;
  761.       if (!spat) {
  762. ***************
  763. *** 45,50 ****
  764. --- 55,62 ----
  765.       st[sp] = str;
  766.       return sp;
  767.       }
  768. +     global = spat->spat_flags & SPAT_GLOBAL;
  769. +     safebase = (gimme == G_ARRAY) || global;
  770.       if (!s)
  771.       fatal("panic: do_match");
  772.       if (spat->spat_flags & SPAT_USED) {
  773. ***************
  774. *** 76,94 ****
  775.       }
  776.       spat->spat_regexp = regcomp(t,t+tmpstr->str_cur,
  777.           spat->spat_flags & SPAT_FOLD);
  778. !     if (!*spat->spat_regexp->precomp && lastspat)
  779.           spat = lastspat;
  780.       if (spat->spat_flags & SPAT_KEEP) {
  781.           if (spat->spat_runtime)
  782.           arg_free(spat->spat_runtime);    /* it won't change, so */
  783.           spat->spat_runtime = Nullarg;    /* no point compiling again */
  784.       }
  785. !     if (!spat->spat_regexp->nparens)
  786.           gimme = G_SCALAR;            /* accidental array context? */
  787.       if (regexec(spat->spat_regexp, s, strend, s, 0,
  788.         srchstr->str_pok & SP_STUDIED ? srchstr : Nullstr,
  789. !       gimme == G_ARRAY)) {
  790. !         if (spat->spat_regexp->subbase)
  791.           curspat = spat;
  792.           lastspat = spat;
  793.           goto gotcha;
  794. --- 88,117 ----
  795.       }
  796.       spat->spat_regexp = regcomp(t,t+tmpstr->str_cur,
  797.           spat->spat_flags & SPAT_FOLD);
  798. !     if (!spat->spat_regexp->prelen && lastspat)
  799.           spat = lastspat;
  800.       if (spat->spat_flags & SPAT_KEEP) {
  801.           if (spat->spat_runtime)
  802.           arg_free(spat->spat_runtime);    /* it won't change, so */
  803.           spat->spat_runtime = Nullarg;    /* no point compiling again */
  804. +         scanconst(spat, t, tmpstr->str_cur);
  805. +         hoistmust(spat);
  806. +         if (curcmd->c_expr && (curcmd->c_flags & CF_OPTIMIZE) == CFT_EVAL) {
  807. +         curcmd->c_flags &= ~CF_OPTIMIZE;
  808. +         opt_arg(curcmd, 1, curcmd->c_type == C_EXPR);
  809. +         }
  810.       }
  811. !     if (global) {
  812. !         if (spat->spat_regexp->startp[0]) {
  813. !         s = spat->spat_regexp->endp[0];
  814. !         }
  815. !     }
  816. !     else if (!spat->spat_regexp->nparens)
  817.           gimme = G_SCALAR;            /* accidental array context? */
  818.       if (regexec(spat->spat_regexp, s, strend, s, 0,
  819.         srchstr->str_pok & SP_STUDIED ? srchstr : Nullstr,
  820. !       safebase)) {
  821. !         if (spat->spat_regexp->subbase || global)
  822.           curspat = spat;
  823.           lastspat = spat;
  824.           goto gotcha;
  825. ***************
  826. *** 114,122 ****
  827.           deb("2.SPAT %c%s%c\n",ch,spat->spat_regexp->precomp,ch);
  828.       }
  829.   #endif
  830. !     if (!*spat->spat_regexp->precomp && lastspat)
  831.           spat = lastspat;
  832.       t = s;
  833.       if (myhint) {
  834.           if (myhint < s || myhint > strend)
  835.           fatal("panic: hint in do_match");
  836. --- 137,148 ----
  837.           deb("2.SPAT %c%s%c\n",ch,spat->spat_regexp->precomp,ch);
  838.       }
  839.   #endif
  840. !     if (!spat->spat_regexp->prelen && lastspat)
  841.           spat = lastspat;
  842.       t = s;
  843. +     play_it_again:
  844. +     if (global && spat->spat_regexp->startp[0])
  845. +         s = spat->spat_regexp->endp[0];
  846.       if (myhint) {
  847.           if (myhint < s || myhint > strend)
  848.           fatal("panic: hint in do_match");
  849. ***************
  850. *** 163,174 ****
  851.           spat->spat_short = Nullstr;    /* opt is being useless */
  852.           }
  853.       }
  854. !     if (!spat->spat_regexp->nparens)
  855.           gimme = G_SCALAR;            /* accidental array context? */
  856.       if (regexec(spat->spat_regexp, s, strend, t, 0,
  857.         srchstr->str_pok & SP_STUDIED ? srchstr : Nullstr,
  858. !       gimme == G_ARRAY)) {
  859. !         if (spat->spat_regexp->subbase)
  860.           curspat = spat;
  861.           lastspat = spat;
  862.           if (spat->spat_flags & SPAT_ONCE)
  863. --- 189,200 ----
  864.           spat->spat_short = Nullstr;    /* opt is being useless */
  865.           }
  866.       }
  867. !     if (!spat->spat_regexp->nparens && !global)
  868.           gimme = G_SCALAR;            /* accidental array context? */
  869.       if (regexec(spat->spat_regexp, s, strend, t, 0,
  870.         srchstr->str_pok & SP_STUDIED ? srchstr : Nullstr,
  871. !       safebase)) {
  872. !         if (spat->spat_regexp->subbase || global)
  873.           curspat = spat;
  874.           lastspat = spat;
  875.           if (spat->spat_flags & SPAT_ONCE)
  876. ***************
  877. *** 191,202 ****
  878.       int iters, i, len;
  879.   
  880.       iters = spat->spat_regexp->nparens;
  881. !     if (sp + iters >= stack->ary_max) {
  882. !         astore(stack,sp + iters, Nullstr);
  883.           st = stack->ary_array;        /* possibly realloced */
  884.       }
  885.   
  886. !     for (i = 1; i <= iters; i++) {
  887.           st[++sp] = str_mortal(&str_no);
  888.           if (s = spat->spat_regexp->startp[i]) {
  889.           len = spat->spat_regexp->endp[i] - s;
  890. --- 217,232 ----
  891.       int iters, i, len;
  892.   
  893.       iters = spat->spat_regexp->nparens;
  894. !     if (global && !iters)
  895. !         i = 1;
  896. !     else
  897. !         i = 0;
  898. !     if (sp + iters + i >= stack->ary_max) {
  899. !         astore(stack,sp + iters + i, Nullstr);
  900.           st = stack->ary_array;        /* possibly realloced */
  901.       }
  902.   
  903. !     for (i = !i; i <= iters; i++) {
  904.           st[++sp] = str_mortal(&str_no);
  905.           if (s = spat->spat_regexp->startp[i]) {
  906.           len = spat->spat_regexp->endp[i] - s;
  907. ***************
  908. *** 204,209 ****
  909. --- 234,241 ----
  910.               str_nset(st[sp],s,len);
  911.           }
  912.       }
  913. +     if (global)
  914. +         goto play_it_again;
  915.       return sp;
  916.       }
  917.       else {
  918. ***************
  919. *** 218,223 ****
  920. --- 250,261 ----
  921.       lastspat = spat;
  922.       if (spat->spat_flags & SPAT_ONCE)
  923.       spat->spat_flags |= SPAT_USED;
  924. +     if (global) {
  925. +     spat->spat_regexp->startp[0] = s;
  926. +     spat->spat_regexp->endp[0] = s + spat->spat_short->str_cur;
  927. +     curspat = spat;
  928. +     goto gotcha;
  929. +     }
  930.       if (sawampersand) {
  931.       char *tmps;
  932.   
  933. ***************
  934. *** 224,229 ****
  935. --- 262,268 ----
  936.       if (spat->spat_regexp->subbase)
  937.           Safefree(spat->spat_regexp->subbase);
  938.       tmps = spat->spat_regexp->subbase = nsavestr(t,strend-t);
  939. +     spat->spat_regexp->subbeg = tmps;
  940.       spat->spat_regexp->subend = tmps + (strend-t);
  941.       tmps = spat->spat_regexp->startp[0] = tmps + (s - t);
  942.       spat->spat_regexp->endp[0] = tmps + spat->spat_short->str_cur;
  943. ***************
  944. *** 235,240 ****
  945. --- 274,280 ----
  946.       return sp;
  947.   
  948.   nope:
  949. +     spat->spat_regexp->startp[0] = Nullch;
  950.       ++spat->spat_short->str_u.str_useful;
  951.       if (gimme == G_ARRAY)
  952.       return sp;
  953. ***************
  954. *** 1592,1598 ****
  955. --- 1632,1641 ----
  956.         str_2mortal(str_nmake((double)csv->wantarray)) );
  957.       if (csv->hasargs) {
  958.       ARRAY *ary = csv->argarray;
  959. +     STAB *tmpstab;
  960.   
  961. +     if (!dbargs)
  962. +         dbargs = stab_xarray(aadd(stabent("DB'args", TRUE)));
  963.       if (dbargs->ary_max < ary->ary_fill)
  964.           astore(dbargs,ary->ary_fill,Nullstr);
  965.       Copy(ary->ary_array, dbargs->ary_array, ary->ary_fill+1, STR*);
  966.  
  967. Index: dump.c
  968. Prereq: 4.0
  969. *** dump.c.old    Fri Jun  7 12:23:41 1991
  970. --- dump.c    Fri Jun  7 12:23:42 1991
  971. ***************
  972. *** 1,11 ****
  973. ! /* $Header: dump.c,v 4.0 91/03/20 01:08:25 lwall Locked $
  974.    *
  975. !  *    Copyright (c) 1989, Larry Wall
  976.    *
  977. !  *    You may distribute under the terms of the GNU General Public License
  978. !  *    as specified in the README file that comes with the perl 3.0 kit.
  979.    *
  980.    * $Log:    dump.c,v $
  981.    * Revision 4.0  91/03/20  01:08:25  lwall
  982.    * 4.0 baseline.
  983.    * 
  984. --- 1,14 ----
  985. ! /* $RCSfile: dump.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 10:58:44 $
  986.    *
  987. !  *    Copyright (c) 1991, Larry Wall
  988.    *
  989. !  *    You may distribute under the terms of either the GNU General Public
  990. !  *    License or the Artistic License, as specified in the README file.
  991.    *
  992.    * $Log:    dump.c,v $
  993. +  * Revision 4.0.1.1  91/06/07  10:58:44  lwall
  994. +  * patch4: new copyright notice
  995. +  * 
  996.    * Revision 4.0  91/03/20  01:08:25  lwall
  997.    * 4.0 baseline.
  998.    * 
  999.  
  1000. Index: eval.c
  1001. *** eval.c.old    Fri Jun  7 12:23:50 1991
  1002. --- eval.c    Fri Jun  7 12:23:52 1991
  1003. ***************
  1004. *** 1,11 ****
  1005. ! /* $RCSfile: eval.c,v $$Revision: 4.0.1.1 $$Date: 91/04/11 17:43:48 $
  1006.    *
  1007. !  *    Copyright (c) 1989, Larry Wall
  1008.    *
  1009. !  *    You may distribute under the terms of the GNU General Public License
  1010. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1011.    *
  1012.    * $Log:    eval.c,v $
  1013.    * Revision 4.0.1.1  91/04/11  17:43:48  lwall
  1014.    * patch1: fixed failed fork to return undef as documented
  1015.    * patch1: reduced maximum branch distance in eval.c
  1016. --- 1,20 ----
  1017. ! /* $RCSfile: eval.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 11:07:23 $
  1018.    *
  1019. !  *    Copyright (c) 1991, Larry Wall
  1020.    *
  1021. !  *    You may distribute under the terms of either the GNU General Public
  1022. !  *    License or the Artistic License, as specified in the README file.
  1023.    *
  1024.    * $Log:    eval.c,v $
  1025. +  * Revision 4.0.1.2  91/06/07  11:07:23  lwall
  1026. +  * patch4: new copyright notice
  1027. +  * patch4: length($`), length($&), length($') now optimized to avoid string copy
  1028. +  * patch4: assignment wasn't correctly de-tainting the assigned variable.
  1029. +  * patch4: default top-of-form format is now FILEHANDLE_TOP
  1030. +  * patch4: added $^P variable to control calling of perldb routines
  1031. +  * patch4: taintchecks could improperly modify parent in vfork()
  1032. +  * patch4: many, many itty-bitty portability fixes
  1033. +  * 
  1034.    * Revision 4.0.1.1  91/04/11  17:43:48  lwall
  1035.    * patch1: fixed failed fork to return undef as documented
  1036.    * patch1: reduced maximum branch distance in eval.c
  1037. ***************
  1038. *** 208,213 ****
  1039. --- 217,232 ----
  1040.           }
  1041.   #endif
  1042.           break;
  1043. +     case A_LENSTAB:
  1044. +         str_numset(str, (double)STAB_LEN(argptr.arg_stab));
  1045. +         st[++sp] = str;
  1046. + #ifdef DEBUGGING
  1047. +         if (debug & 8) {
  1048. +         (void)sprintf(buf,"LENSTAB $%s",stab_name(argptr.arg_stab));
  1049. +         tmps = buf;
  1050. +         }
  1051. + #endif
  1052. +         break;
  1053.       case A_LEXPR:
  1054.   #ifdef DEBUGGING
  1055.           if (debug & 8) {
  1056. ***************
  1057. *** 619,624 ****
  1058. --- 638,647 ----
  1059.       goto array_return;
  1060.       case O_SASSIGN:
  1061.         sassign:
  1062. + #ifdef TAINT
  1063. +     if (tainted && !st[2]->str_tainted)
  1064. +         tainted = 0;
  1065. + #endif
  1066.       STR_SSET(str, st[2]);
  1067.       STABSET(str);
  1068.       break;
  1069. ***************
  1070. *** 927,933 ****
  1071.           break;
  1072.       }
  1073.       format(&outrec,form,sp);
  1074. !     do_write(&outrec,stab_io(stab),sp);
  1075.       if (stab_io(stab)->flags & IOF_FLUSH)
  1076.           (void)fflush(fp);
  1077.       str_set(str, Yes);
  1078. --- 950,956 ----
  1079.           break;
  1080.       }
  1081.       format(&outrec,form,sp);
  1082. !     do_write(&outrec,stab,sp);
  1083.       if (stab_io(stab)->flags & IOF_FLUSH)
  1084.           (void)fflush(fp);
  1085.       str_set(str, Yes);
  1086. ***************
  1087. *** 1087,1093 ****
  1088.       else if (stab_hash(tmpstab)->tbl_dbm)
  1089.           str_magic(str, tmpstab, 'D', tmps, anum);
  1090.   #endif
  1091. !     else if (perldb && tmpstab == DBline)
  1092.           str_magic(str, tmpstab, 'L', tmps, anum);
  1093.       break;
  1094.       case O_LSLICE:
  1095. --- 1110,1116 ----
  1096.       else if (stab_hash(tmpstab)->tbl_dbm)
  1097.           str_magic(str, tmpstab, 'D', tmps, anum);
  1098.   #endif
  1099. !     else if (tmpstab == DBline)
  1100.           str_magic(str, tmpstab, 'L', tmps, anum);
  1101.       break;
  1102.       case O_LSLICE:
  1103. ***************
  1104. *** 1961,1966 ****
  1105. --- 1984,1994 ----
  1106.       else if (arglast[2] - arglast[1] != 1)
  1107.           value = (double)do_aexec(Nullstr,arglast);
  1108.       else {
  1109. + #ifdef TAINT
  1110. +         taintenv();
  1111. +         tainted |= st[2]->str_tainted;
  1112. +         taintproper("Insecure dependency in exec");
  1113. + #endif
  1114.           value = (double)do_exec(str_get(str_mortal(st[2])));
  1115.       }
  1116.       goto donumset;
  1117. ***************
  1118. *** 2260,2266 ****
  1119. --- 2288,2300 ----
  1120.           anum = 0;
  1121.       else
  1122.           anum = (int)str_gnum(st[1]);
  1123. + #ifdef _POSIX_SOURCE
  1124. +     if (anum != 0)
  1125. +         fatal("POSIX getpgrp can't take an argument");
  1126. +     value = (double)getpgrp();
  1127. + #else
  1128.       value = (double)getpgrp(anum);
  1129. + #endif
  1130.       goto donumset;
  1131.   #else
  1132.       fatal("The getpgrp() function is unimplemented on this machine");
  1133. ***************
  1134. *** 2852,2858 ****
  1135.       fatal("Unsupported function getlogin");
  1136.   #endif
  1137.       break;
  1138. !     case O_OPENDIR:
  1139.       case O_READDIR:
  1140.       case O_TELLDIR:
  1141.       case O_SEEKDIR:
  1142. --- 2886,2892 ----
  1143.       fatal("Unsupported function getlogin");
  1144.   #endif
  1145.       break;
  1146. !     case O_OPEN_DIR:
  1147.       case O_READDIR:
  1148.       case O_TELLDIR:
  1149.       case O_SEEKDIR:
  1150.  
  1151. Index: lib/find.pl
  1152. *** lib/find.pl.old    Fri Jun  7 12:25:10 1991
  1153. --- lib/find.pl    Fri Jun  7 12:25:11 1991
  1154. ***************
  1155. *** 0 ****
  1156. --- 1,105 ----
  1157. + # Usage:
  1158. + #    require "find.pl";
  1159. + #
  1160. + #    &find('/foo','/bar');
  1161. + #
  1162. + #    sub wanted { ... }
  1163. + #        where wanted does whatever you want.  $dir contains the
  1164. + #        current directory name, and $_ the current filename within
  1165. + #        that directory.  $name contains "$dir/$_".  You are cd'ed
  1166. + #        to $dir when the function is called.  The function may
  1167. + #        set $prune to prune the tree.
  1168. + #
  1169. + # This library is primarily for find2perl, which, when fed
  1170. + #
  1171. + #   find2perl / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune
  1172. + #
  1173. + # spits out something like this
  1174. + #
  1175. + #    sub wanted {
  1176. + #        /^\.nfs.*$/ &&
  1177. + #        (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
  1178. + #        int(-M _) > 7 &&
  1179. + #        unlink($_)
  1180. + #        ||
  1181. + #        ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&
  1182. + #        $dev < 0 &&
  1183. + #        ($prune = 1);
  1184. + #    }
  1185. + 
  1186. + sub find {
  1187. +     chop($cwd = `pwd`);
  1188. +     foreach $topdir (@_) {
  1189. +     (($topdev,$topino,$topmode,$topnlink) = stat($topdir))
  1190. +       || (warn("Can't stat $topdir: $!\n"), next);
  1191. +     if (-d _) {
  1192. +         if (chdir($topdir)) {
  1193. +         ($dir,$_) = ($topdir,'.');
  1194. +         $name = $topdir;
  1195. +         &wanted;
  1196. +         $topdir =~ s,/$,, ;
  1197. +         &finddir($topdir,$topnlink);
  1198. +         }
  1199. +         else {
  1200. +         warn "Can't cd to $topdir: $!\n";
  1201. +         }
  1202. +     }
  1203. +     else {
  1204. +         unless (($dir,$_) = $topdir =~ m#^(.*/)(.*)$#) {
  1205. +         ($dir,$_) = ('.', $topdir);
  1206. +         }
  1207. +         chdir $dir && &wanted;
  1208. +     }
  1209. +     chdir $cwd;
  1210. +     }
  1211. + }
  1212. + 
  1213. + sub finddir {
  1214. +     local($dir,$nlink) = @_;
  1215. +     local($dev,$ino,$mode,$subcount);
  1216. +     local($name);
  1217. + 
  1218. +     # Get the list of files in the current directory.
  1219. + 
  1220. +     opendir(DIR,'.') || warn "Can't open $dir: $!\n";
  1221. +     local(@filenames) = readdir(DIR);
  1222. +     closedir(DIR);
  1223. + 
  1224. +     if ($nlink == 2) {        # This dir has no subdirectories.
  1225. +     for (@filenames) {
  1226. +         next if $_ eq '.';
  1227. +         next if $_ eq '..';
  1228. +         $name = "$dir/$_";
  1229. +         $nlink = 0;
  1230. +         &wanted;
  1231. +     }
  1232. +     }
  1233. +     else {                    # This dir has subdirectories.
  1234. +     $subcount = $nlink - 2;
  1235. +     for (@filenames) {
  1236. +         next if $_ eq '.';
  1237. +         next if $_ eq '..';
  1238. +         $nlink = $prune = 0;
  1239. +         $name = "$dir/$_";
  1240. +         &wanted;
  1241. +         if ($subcount > 0) {    # Seen all the subdirs?
  1242. + 
  1243. +         # Get link count and check for directoriness.
  1244. + 
  1245. +         ($dev,$ino,$mode,$nlink) = lstat($_) unless $nlink;
  1246. +         
  1247. +         if (-d _) {
  1248. + 
  1249. +             # It really is a directory, so do it recursively.
  1250. + 
  1251. +             if (!$prune && chdir $_) {
  1252. +             &finddir($name,$nlink);
  1253. +             chdir '..';
  1254. +             }
  1255. +             --$subcount;
  1256. +         }
  1257. +         }
  1258. +     }
  1259. +     }
  1260. + }
  1261. + 1;
  1262.  
  1263. Index: x2p/find2perl.SH
  1264. *** x2p/find2perl.SH.old    Fri Jun  7 12:27:57 1991
  1265. --- x2p/find2perl.SH    Fri Jun  7 12:27:58 1991
  1266. ***************
  1267. *** 128,138 ****
  1268.       elsif ($_ eq 'exec') {
  1269.       for (@cmd = (); @ARGV && $ARGV[0] ne ';'; push(@cmd,shift)) { }
  1270.       shift;
  1271. !     for (@cmd) { s/'/\\'/g; }
  1272. !     $" = "','";
  1273. !     $out .= &tab . "&exec(0, '@cmd')";
  1274. !     $" = ' ';
  1275. !     $initexec++;
  1276.       }
  1277.       elsif ($_ eq 'ok') {
  1278.       for (@cmd = (); @ARGV && $ARGV[0] ne ';'; push(@cmd,shift)) { }
  1279. --- 128,152 ----
  1280.       elsif ($_ eq 'exec') {
  1281.       for (@cmd = (); @ARGV && $ARGV[0] ne ';'; push(@cmd,shift)) { }
  1282.       shift;
  1283. !     $_ = "@cmd";
  1284. !     if (m#^(/bin/)?rm -f {}$#) {
  1285. !         if (!@ARGV) {
  1286. !         $out .= &tab . 'unlink($_)';
  1287. !         }
  1288. !         else {
  1289. !         $out .= &tab . '(unlink($_) || 1)';
  1290. !         }
  1291. !     }
  1292. !     elsif (m#^(/bin/)?rm {}$#) {
  1293. !         $out .= &tab . '(unlink($_) || warn "$name: $!\n")';
  1294. !     }
  1295. !     else {
  1296. !         for (@cmd) { s/'/\\'/g; }
  1297. !         $" = "','";
  1298. !         $out .= &tab . "&exec(0, '@cmd')";
  1299. !         $" = ' ';
  1300. !         $initexec++;
  1301. !     }
  1302.       }
  1303.       elsif ($_ eq 'ok') {
  1304.       for (@cmd = (); @ARGV && $ARGV[0] ne ';'; push(@cmd,shift)) { }
  1305. ***************
  1306. *** 202,210 ****
  1307.       }
  1308.       if (@ARGV) {
  1309.       if ($ARGV[0] eq '-o') {
  1310.           $statdone = 0 if $indent == 1 && $delayedstat;
  1311.           $saw_or++;
  1312. -         $out .= "\n" . &tab . "||\n";
  1313.           shift;
  1314.       }
  1315.       else {
  1316. --- 216,224 ----
  1317.       }
  1318.       if (@ARGV) {
  1319.       if ($ARGV[0] eq '-o') {
  1320. +         { local($statdone) = 1; $out .= "\n" . &tab . "||\n"; }
  1321.           $statdone = 0 if $indent == 1 && $delayedstat;
  1322.           $saw_or++;
  1323.           shift;
  1324.       }
  1325.       else {
  1326. ***************
  1327. *** 246,363 ****
  1328.   
  1329.   print $initfile, "\n" if $initfile;
  1330.   
  1331.   print <<"END";
  1332.   # Traverse desired filesystems
  1333.   
  1334. ! &dodirs($roots);
  1335.   $flushall
  1336.   exit;
  1337.   
  1338.   sub wanted {
  1339.   $out;
  1340. - }
  1341. - 
  1342. - END
  1343. - 
  1344. - print <<'END';
  1345. - sub dodirs {
  1346. -     chop($cwd = `pwd`);
  1347. -     foreach $topdir (@_) {
  1348. -     (($topdev,$topino,$topmode,$topnlink) = stat($topdir))
  1349. -       || (warn("Can't stat $topdir: $!\n"), next);
  1350. -     if (-d _) {
  1351. -         if (chdir($topdir)) {
  1352. - END
  1353. - if ($depth) {
  1354. -     print <<'END';
  1355. -         $topdir = '' if $topdir eq '/';
  1356. -         &dodir($topdir,$topnlink);
  1357. -         ($dir,$_) = ($topdir,'.');
  1358. -         $name = $topdir;
  1359. -         &wanted;
  1360. - END
  1361. - }
  1362. - else {
  1363. -     print <<'END';
  1364. -         ($dir,$_) = ($topdir,'.');
  1365. -         $name = $topdir;
  1366. -         &wanted;
  1367. -         $topdir = '' if $topdir eq '/';
  1368. -         &dodir($topdir,$topnlink);
  1369. - END
  1370. - }
  1371. - print <<'END';
  1372. -         }
  1373. -         else {
  1374. -         warn "Can't cd to $topdir: $!\n";
  1375. -         }
  1376. -     }
  1377. -     else {
  1378. -         unless (($dir,$_) = $topdir =~ m#^(.*/)(.*)$#) {
  1379. -         ($dir,$_) = ('.', $topdir);
  1380. -         }
  1381. -         chdir $dir && &wanted;
  1382. -     }
  1383. -     chdir $cwd;
  1384. -     }
  1385. - }
  1386. - 
  1387. - sub dodir {
  1388. -     local($dir,$nlink) = @_;
  1389. -     local($dev,$ino,$mode,$subcount);
  1390. -     local($name);
  1391. - 
  1392. -     # Get the list of files in the current directory.
  1393. - 
  1394. -     opendir(DIR,'.') || warn "Can't open $dir: $!\n";
  1395. -     local(@filenames) = readdir(DIR);
  1396. -     closedir(DIR);
  1397. - 
  1398. -     if ($nlink == 2) {        # This dir has no subdirectories.
  1399. -     for (@filenames) {
  1400. -         next if $_ eq '.';
  1401. -         next if $_ eq '..';
  1402. -         $name = "$dir/$_";
  1403. -         $nlink = 0;
  1404. -         &wanted;
  1405. -     }
  1406. -     }
  1407. -     else {                    # This dir has subdirectories.
  1408. -     $subcount = $nlink - 2;
  1409. -     for (@filenames) {
  1410. -         next if $_ eq '.';
  1411. -         next if $_ eq '..';
  1412. -         $nlink = $prune = 0;
  1413. -         $name = "$dir/$_";
  1414. - END
  1415. - print <<'END' unless $depth;
  1416. -         &wanted;
  1417. - END
  1418. - print <<'END';
  1419. -         if ($subcount > 0) {    # Seen all the subdirs?
  1420. - 
  1421. -         # Get link count and check for directoriness.
  1422. - 
  1423. -         ($dev,$ino,$mode,$nlink) = lstat($_) unless $nlink;
  1424. -         
  1425. -         if (-d _) {
  1426. - 
  1427. -             # It really is a directory, so do it recursively.
  1428. - 
  1429. -             if (!$prune && chdir $_) {
  1430. -             &dodir($name,$nlink);
  1431. -             chdir '..';
  1432. -             }
  1433. -             --$subcount;
  1434. -         }
  1435. -         }
  1436. - END
  1437. - print <<'END' if $depth;
  1438. -         &wanted;
  1439. - END
  1440. - print <<'END';
  1441. -     }
  1442. -     }
  1443.   }
  1444.   
  1445.   END
  1446. --- 260,277 ----
  1447.   
  1448.   print $initfile, "\n" if $initfile;
  1449.   
  1450. + $find = $depth ? "finddepth" : "find";
  1451.   print <<"END";
  1452. + require "$find.pl";
  1453. + 
  1454.   # Traverse desired filesystems
  1455.   
  1456. ! &$find($roots);
  1457.   $flushall
  1458.   exit;
  1459.   
  1460.   sub wanted {
  1461.   $out;
  1462.   }
  1463.   
  1464.   END
  1465.  
  1466. Index: lib/finddepth.pl
  1467. *** lib/finddepth.pl.old    Fri Jun  7 12:25:13 1991
  1468. --- lib/finddepth.pl    Fri Jun  7 12:25:14 1991
  1469. ***************
  1470. *** 0 ****
  1471. --- 1,105 ----
  1472. + # Usage:
  1473. + #    require "finddepth.pl";
  1474. + #
  1475. + #    &finddepth('/foo','/bar');
  1476. + #
  1477. + #    sub wanted { ... }
  1478. + #        where wanted does whatever you want.  $dir contains the
  1479. + #        current directory name, and $_ the current filename within
  1480. + #        that directory.  $name contains "$dir/$_".  You are cd'ed
  1481. + #        to $dir when the function is called.  The function may
  1482. + #        set $prune to prune the tree.
  1483. + #
  1484. + # This library is primarily for find2perl, which, when fed
  1485. + #
  1486. + #   find2perl / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nfs -prune
  1487. + #
  1488. + # spits out something like this
  1489. + #
  1490. + #    sub wanted {
  1491. + #        /^\.nfs.*$/ &&
  1492. + #        (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
  1493. + #        int(-M _) > 7 &&
  1494. + #        unlink($_)
  1495. + #        ||
  1496. + #        ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &&
  1497. + #        $dev < 0 &&
  1498. + #        ($prune = 1);
  1499. + #    }
  1500. + 
  1501. + sub finddepth {
  1502. +     chop($cwd = `pwd`);
  1503. +     foreach $topdir (@_) {
  1504. +     (($topdev,$topino,$topmode,$topnlink) = stat($topdir))
  1505. +       || (warn("Can't stat $topdir: $!\n"), next);
  1506. +     if (-d _) {
  1507. +         if (chdir($topdir)) {
  1508. +         $topdir =~ s,/$,, ;
  1509. +         &finddepthdir($topdir,$topnlink);
  1510. +         ($dir,$_) = ($topdir,'.');
  1511. +         $name = $topdir;
  1512. +         &wanted;
  1513. +         }
  1514. +         else {
  1515. +         warn "Can't cd to $topdir: $!\n";
  1516. +         }
  1517. +     }
  1518. +     else {
  1519. +         unless (($dir,$_) = $topdir =~ m#^(.*/)(.*)$#) {
  1520. +         ($dir,$_) = ('.', $topdir);
  1521. +         }
  1522. +         chdir $dir && &wanted;
  1523. +     }
  1524. +     chdir $cwd;
  1525. +     }
  1526. + }
  1527. + 
  1528. + sub finddepthdir {
  1529. +     local($dir,$nlink) = @_;
  1530. +     local($dev,$ino,$mode,$subcount);
  1531. +     local($name);
  1532. + 
  1533. +     # Get the list of files in the current directory.
  1534. + 
  1535. +     opendir(DIR,'.') || warn "Can't open $dir: $!\n";
  1536. +     local(@filenames) = readdir(DIR);
  1537. +     closedir(DIR);
  1538. + 
  1539. +     if ($nlink == 2) {        # This dir has no subdirectories.
  1540. +     for (@filenames) {
  1541. +         next if $_ eq '.';
  1542. +         next if $_ eq '..';
  1543. +         $name = "$dir/$_";
  1544. +         $nlink = 0;
  1545. +         &wanted;
  1546. +     }
  1547. +     }
  1548. +     else {                    # This dir has subdirectories.
  1549. +     $subcount = $nlink - 2;
  1550. +     for (@filenames) {
  1551. +         next if $_ eq '.';
  1552. +         next if $_ eq '..';
  1553. +         $nlink = $prune = 0;
  1554. +         $name = "$dir/$_";
  1555. +         if ($subcount > 0) {    # Seen all the subdirs?
  1556. + 
  1557. +         # Get link count and check for directoriness.
  1558. + 
  1559. +         ($dev,$ino,$mode,$nlink) = lstat($_) unless $nlink;
  1560. +         
  1561. +         if (-d _) {
  1562. + 
  1563. +             # It really is a directory, so do it recursively.
  1564. + 
  1565. +             if (!$prune && chdir $_) {
  1566. +             &finddepthdir($name,$nlink);
  1567. +             chdir '..';
  1568. +             }
  1569. +             --$subcount;
  1570. +         }
  1571. +         }
  1572. +         &wanted;
  1573. +     }
  1574. +     }
  1575. + }
  1576. + 1;
  1577.  
  1578. Index: form.c
  1579. Prereq: 4.0
  1580. *** form.c.old    Fri Jun  7 12:23:57 1991
  1581. --- form.c    Fri Jun  7 12:23:58 1991
  1582. ***************
  1583. *** 1,11 ****
  1584. ! /* $Header: form.c,v 4.0 91/03/20 01:19:23 lwall Locked $
  1585.    *
  1586. !  *    Copyright (c) 1989, Larry Wall
  1587.    *
  1588. !  *    You may distribute under the terms of the GNU General Public License
  1589. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1590.    *
  1591.    * $Log:    form.c,v $
  1592.    * Revision 4.0  91/03/20  01:19:23  lwall
  1593.    * 4.0 baseline.
  1594.    * 
  1595. --- 1,15 ----
  1596. ! /* $RCSfile: form.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:07:59 $
  1597.    *
  1598. !  *    Copyright (c) 1991, Larry Wall
  1599.    *
  1600. !  *    You may distribute under the terms of either the GNU General Public
  1601. !  *    License or the Artistic License, as specified in the README file.
  1602.    *
  1603.    * $Log:    form.c,v $
  1604. +  * Revision 4.0.1.1  91/06/07  11:07:59  lwall
  1605. +  * patch4: new copyright notice
  1606. +  * patch4: default top-of-form format is now FILEHANDLE_TOP
  1607. +  * 
  1608.    * Revision 4.0  91/03/20  01:19:23  lwall
  1609.    * 4.0 baseline.
  1610.    * 
  1611. ***************
  1612. *** 325,335 ****
  1613.       return count;
  1614.   }
  1615.   
  1616. ! do_write(orec,stio,sp)
  1617.   struct outrec *orec;
  1618. ! register STIO *stio;
  1619.   int sp;
  1620.   {
  1621.       FILE *ofp = stio->ofp;
  1622.   
  1623.   #ifdef DEBUGGING
  1624. --- 329,340 ----
  1625.       return count;
  1626.   }
  1627.   
  1628. ! do_write(orec,stab,sp)
  1629.   struct outrec *orec;
  1630. ! STAB *stab;
  1631.   int sp;
  1632.   {
  1633. +     register STIO *stio = stab_io(stab);
  1634.       FILE *ofp = stio->ofp;
  1635.   
  1636.   #ifdef DEBUGGING
  1637. ***************
  1638. *** 340,348 ****
  1639.       if (stio->lines_left < orec->o_lines) {
  1640.       if (!stio->top_stab) {
  1641.           STAB *topstab;
  1642.   
  1643. !         if (!stio->top_name)
  1644. !         stio->top_name = savestr("top");
  1645.           topstab = stabent(stio->top_name,FALSE);
  1646.           if (!topstab || !stab_form(topstab)) {
  1647.           stio->lines_left = 100000000;
  1648. --- 345,362 ----
  1649.       if (stio->lines_left < orec->o_lines) {
  1650.       if (!stio->top_stab) {
  1651.           STAB *topstab;
  1652. +         char tmpbuf[256];
  1653.   
  1654. !         if (!stio->top_name) {
  1655. !         if (!stio->fmt_name)
  1656. !             stio->fmt_name = savestr(stab_name(stab));
  1657. !         sprintf(tmpbuf, "%s_TOP", stio->fmt_name);
  1658. !         topstab = stabent(tmpbuf,FALSE);
  1659. !         if (topstab && stab_form(topstab))
  1660. !             stio->top_name = savestr(tmpbuf);
  1661. !         else
  1662. !             stio->top_name = savestr("top");
  1663. !         }
  1664.           topstab = stabent(stio->top_name,FALSE);
  1665.           if (!topstab || !stab_form(topstab)) {
  1666.           stio->lines_left = 100000000;
  1667.  
  1668. Index: form.h
  1669. Prereq: 4.0
  1670. *** form.h.old    Fri Jun  7 12:24:01 1991
  1671. --- form.h    Fri Jun  7 12:24:01 1991
  1672. ***************
  1673. *** 1,11 ****
  1674. ! /* $Header: form.h,v 4.0 91/03/20 01:19:37 lwall Locked $
  1675.    *
  1676. !  *    Copyright (c) 1989, Larry Wall
  1677.    *
  1678. !  *    You may distribute under the terms of the GNU General Public License
  1679. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1680.    *
  1681.    * $Log:    form.h,v $
  1682.    * Revision 4.0  91/03/20  01:19:37  lwall
  1683.    * 4.0 baseline.
  1684.    * 
  1685. --- 1,14 ----
  1686. ! /* $RCSfile: form.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:08:20 $
  1687.    *
  1688. !  *    Copyright (c) 1991, Larry Wall
  1689.    *
  1690. !  *    You may distribute under the terms of either the GNU General Public
  1691. !  *    License or the Artistic License, as specified in the README file.
  1692.    *
  1693.    * $Log:    form.h,v $
  1694. +  * Revision 4.0.1.1  91/06/07  11:08:20  lwall
  1695. +  * patch4: new copyright notice
  1696. +  * 
  1697.    * Revision 4.0  91/03/20  01:19:37  lwall
  1698.    * 4.0 baseline.
  1699.    * 
  1700.  
  1701. Index: h2pl/getioctlsizes
  1702. *** h2pl/getioctlsizes.old    Fri Jun  7 12:24:03 1991
  1703. --- h2pl/getioctlsizes    Fri Jun  7 12:24:04 1991
  1704. ***************
  1705. *** 3,9 ****
  1706.   open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed";
  1707.   
  1708.   while (<IOCTLS>) {
  1709. !     if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\(\w+,\s*\w+,\s*([^)]+)/) {
  1710.       $need{$2}++;
  1711.       } 
  1712.   }
  1713. --- 3,9 ----
  1714.   open (IOCTLS,'/usr/include/sys/ioctl.h') || die "ioctl open failed";
  1715.   
  1716.   while (<IOCTLS>) {
  1717. !     if (/^\s*#\s*define\s+\w+\s+_IO(R|W|WR)\('?\w+'?,\s*\w+,\s*([^)]+)/) {
  1718.       $need{$2}++;
  1719.       } 
  1720.   }
  1721.  
  1722. Index: t/op/groups.t
  1723. *** t/op/groups.t.old    Fri Jun  7 12:27:06 1991
  1724. --- t/op/groups.t    Fri Jun  7 12:27:06 1991
  1725. ***************
  1726. *** 9,18 ****
  1727.   
  1728.   for (split(' ', $()) {
  1729.       next if $seen{$_}++;
  1730. !     push(@gr, (getgrgid($_))[0]); 
  1731.   } 
  1732.   $gr1 = join(' ',sort @gr);
  1733. ! $gr2 = join(' ', sort split(' ',`groups`));
  1734.   #print "gr1 is <$gr1>\n";
  1735.   #print "gr2 is <$gr2>\n";
  1736.   print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";
  1737. --- 9,24 ----
  1738.   
  1739.   for (split(' ', $()) {
  1740.       next if $seen{$_}++;
  1741. !     ($group) = getgrgid($_);
  1742. !     if (defined $group) {
  1743. !     push(@gr, $group);
  1744. !     }
  1745. !     else {
  1746. !     push(@gr, $_);
  1747. !     }
  1748.   } 
  1749.   $gr1 = join(' ',sort @gr);
  1750. ! $gr2 = join(' ', sort split(' ',`/usr/ucb/groups`));
  1751.   #print "gr1 is <$gr1>\n";
  1752.   #print "gr2 is <$gr2>\n";
  1753.   print +($gr1 eq $gr2) ? "ok 1\n" : "not ok 1\n";
  1754.  
  1755. Index: handy.h
  1756. Prereq: 4.0
  1757. *** handy.h.old    Fri Jun  7 12:24:09 1991
  1758. --- handy.h    Fri Jun  7 12:24:09 1991
  1759. ***************
  1760. *** 1,11 ****
  1761. ! /* $Header: handy.h,v 4.0 91/03/20 01:22:15 lwall Locked $
  1762.    *
  1763. !  *    Copyright (c) 1989, Larry Wall
  1764.    *
  1765. !  *    You may distribute under the terms of the GNU General Public License
  1766. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1767.    *
  1768.    * $Log:    handy.h,v $
  1769.    * Revision 4.0  91/03/20  01:22:15  lwall
  1770.    * 4.0 baseline.
  1771.    * 
  1772. --- 1,14 ----
  1773. ! /* $RCSfile: handy.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:09:56 $
  1774.    *
  1775. !  *    Copyright (c) 1991, Larry Wall
  1776.    *
  1777. !  *    You may distribute under the terms of either the GNU General Public
  1778. !  *    License or the Artistic License, as specified in the README file.
  1779.    *
  1780.    * $Log:    handy.h,v $
  1781. +  * Revision 4.0.1.1  91/06/07  11:09:56  lwall
  1782. +  * patch4: new copyright notice
  1783. +  * 
  1784.    * Revision 4.0  91/03/20  01:22:15  lwall
  1785.    * 4.0 baseline.
  1786.    * 
  1787.  
  1788. Index: x2p/handy.h
  1789. *** x2p/handy.h.old    Fri Jun  7 12:28:01 1991
  1790. --- x2p/handy.h    Fri Jun  7 12:28:02 1991
  1791. ***************
  1792. *** 1,11 ****
  1793. ! /* $RCSfile: handy.h,v $$Revision: 4.0.1.1 $$Date: 91/04/12 09:29:08 $
  1794.    *
  1795. !  *    Copyright (c) 1989, Larry Wall
  1796.    *
  1797. !  *    You may distribute under the terms of the GNU General Public License
  1798. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1799.    *
  1800.    * $Log:    handy.h,v $
  1801.    * Revision 4.0.1.1  91/04/12  09:29:08  lwall
  1802.    * patch1: random cleanup in cpp namespace
  1803.    * 
  1804. --- 1,14 ----
  1805. ! /* $RCSfile: handy.h,v $$Revision: 4.0.1.2 $$Date: 91/06/07 12:15:43 $
  1806.    *
  1807. !  *    Copyright (c) 1991, Larry Wall
  1808.    *
  1809. !  *    You may distribute under the terms of either the GNU General Public
  1810. !  *    License or the Artistic License, as specified in the README file.
  1811.    *
  1812.    * $Log:    handy.h,v $
  1813. +  * Revision 4.0.1.2  91/06/07  12:15:43  lwall
  1814. +  * patch4: new copyright notice
  1815. +  * 
  1816.    * Revision 4.0.1.1  91/04/12  09:29:08  lwall
  1817.    * patch1: random cleanup in cpp namespace
  1818.    * 
  1819.  
  1820. Index: hash.c
  1821. Prereq: 4.0
  1822. *** hash.c.old    Fri Jun  7 12:24:12 1991
  1823. --- hash.c    Fri Jun  7 12:24:12 1991
  1824. ***************
  1825. *** 1,11 ****
  1826. ! /* $Header: hash.c,v 4.0 91/03/20 01:22:26 lwall Locked $
  1827.    *
  1828. !  *    Copyright (c) 1989, Larry Wall
  1829.    *
  1830. !  *    You may distribute under the terms of the GNU General Public License
  1831. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1832.    *
  1833.    * $Log:    hash.c,v $
  1834.    * Revision 4.0  91/03/20  01:22:26  lwall
  1835.    * 4.0 baseline.
  1836.    * 
  1837. --- 1,14 ----
  1838. ! /* $RCSfile: hash.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:10:11 $
  1839.    *
  1840. !  *    Copyright (c) 1991, Larry Wall
  1841.    *
  1842. !  *    You may distribute under the terms of either the GNU General Public
  1843. !  *    License or the Artistic License, as specified in the README file.
  1844.    *
  1845.    * $Log:    hash.c,v $
  1846. +  * Revision 4.0.1.1  91/06/07  11:10:11  lwall
  1847. +  * patch4: new copyright notice
  1848. +  * 
  1849.    * Revision 4.0  91/03/20  01:22:26  lwall
  1850.    * 4.0 baseline.
  1851.    * 
  1852.  
  1853. *** End of Patch 6 ***
  1854. exit 0 # Just in case...
  1855. -- 
  1856. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1857. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1858. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1859. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1860.