home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume20 / perl / patch09 < prev    next >
Encoding:
Text File  |  1991-06-19  |  42.5 KB  |  1,513 lines
  1. Newsgroups: comp.sources.misc
  2. From: Larry Wall <lwall@netlabs.com>
  3. Subject:  v20i061:  perl - The perl programming language, Patch09
  4. Message-ID: <1991Jun20.030804.8856@sparky.IMD.Sterling.COM>
  5. X-Md4-Signature: cff95b02c3fe2aec391ad261a3dfce40
  6. Date: Thu, 20 Jun 1991 03:08:04 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Larry Wall <lwall@netlabs.com>
  10. Posting-number: Volume 20, Issue 61
  11. Archive-name: perl/patch09
  12. Patch-To: perl: Volume 18, Issue 19-54
  13.  
  14. System: perl version 4.0
  15. Patch #: 9
  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.         Configure -d
  29.         make depend
  30.         make
  31.         make test
  32.         make install
  33.  
  34.     If patch indicates that patchlevel is the wrong version, you may need
  35.     to apply one or more previous patches, or the patch may already
  36.     have been applied.  See the patchlevel.h file to find out what has or
  37.     has not been applied.  In any event, don't continue with the patch.
  38.  
  39.     If you are missing previous patches they can be obtained from me:
  40.  
  41.     Larry Wall
  42.     lwall@netlabs.com
  43.  
  44.     If you send a mail message of the following form it will greatly speed
  45.     processing:
  46.  
  47.     Subject: Command
  48.     @SH mailpatch PATH perl 4.0 LIST
  49.            ^ note the c
  50.  
  51.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  52.     or in bang notation from some well-known host, and LIST is the number
  53.     of one or more patches you need, separated by spaces, commas, and/or
  54.     hyphens.  Saying 35- says everything from 35 to the end.
  55.  
  56.  
  57. Index: patchlevel.h
  58. Prereq: 8
  59. 1c1
  60. < #define PATCHLEVEL 8
  61. ---
  62. > #define PATCHLEVEL 9
  63.  
  64. Index: stab.h
  65. Prereq: 4.0
  66. *** stab.h.old    Fri Jun  7 12:26:50 1991
  67. --- stab.h    Fri Jun  7 12:26:51 1991
  68. ***************
  69. *** 1,11 ****
  70. ! /* $Header: stab.h,v 4.0 91/03/20 01:39:49 lwall Locked $
  71.    *
  72. !  *    Copyright (c) 1989, Larry Wall
  73.    *
  74. !  *    You may distribute under the terms of the GNU General Public License
  75. !  *    as specified in the README file that comes with the perl 3.0 kit.
  76.    *
  77.    * $Log:    stab.h,v $
  78.    * Revision 4.0  91/03/20  01:39:49  lwall
  79.    * 4.0 baseline.
  80.    * 
  81. --- 1,15 ----
  82. ! /* $RCSfile: stab.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:56:35 $
  83.    *
  84. !  *    Copyright (c) 1991, Larry Wall
  85.    *
  86. !  *    You may distribute under the terms of either the GNU General Public
  87. !  *    License or the Artistic License, as specified in the README file.
  88.    *
  89.    * $Log:    stab.h,v $
  90. +  * Revision 4.0.1.1  91/06/07  11:56:35  lwall
  91. +  * patch4: new copyright notice
  92. +  * patch4: length($`), length($&), length($') now optimized to avoid string copy
  93. +  * 
  94.    * Revision 4.0  91/03/20  01:39:49  lwall
  95.    * 4.0 baseline.
  96.    * 
  97. ***************
  98. *** 93,99 ****
  99. --- 97,106 ----
  100.   
  101.   #define Nullstab Null(STAB*)
  102.   
  103. + STRLEN stab_len();
  104. + 
  105.   #define STAB_STR(s) (tmpstab = (s), stab_flags(tmpstab) & SF_VMAGIC ? stab_str(stab_val(tmpstab)->str_magic) : stab_val(tmpstab))
  106. + #define STAB_LEN(s) (tmpstab = (s), stab_flags(tmpstab) & SF_VMAGIC ? stab_len(stab_val(tmpstab)->str_magic) : stab_val(tmpstab)->str_cur)
  107.   #define STAB_GET(s) (tmpstab = (s), str_get(stab_flags(tmpstab) & SF_VMAGIC ? stab_str(tmpstab->str_magic) : stab_val(tmpstab)))
  108.   #define STAB_GNUM(s) (tmpstab = (s), str_gnum(stab_flags(tmpstab) & SF_VMAGIC ? stab_str(tmpstab->str_magic) : stab_val(tmpstab)))
  109.   
  110.  
  111. Index: t/op/stat.t
  112. Prereq: 4.0
  113. *** t/op/stat.t.old    Fri Jun  7 12:27:11 1991
  114. --- t/op/stat.t    Fri Jun  7 12:27:12 1991
  115. ***************
  116. *** 1,11 ****
  117.   #!./perl
  118.   
  119. ! # $Header: stat.t,v 4.0 91/03/20 01:54:55 lwall Locked $
  120.   
  121.   print "1..56\n";
  122.   
  123.   chop($cwd = `pwd`);
  124.   
  125.   unlink "Op.stat.tmp";
  126.   open(foo, ">Op.stat.tmp");
  127.   
  128. --- 1,13 ----
  129.   #!./perl
  130.   
  131. ! # $RCSfile: stat.t,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:02:42 $
  132.   
  133.   print "1..56\n";
  134.   
  135.   chop($cwd = `pwd`);
  136.   
  137. + $DEV = `ls -l /dev`;
  138. + 
  139.   unlink "Op.stat.tmp";
  140.   open(foo, ">Op.stat.tmp");
  141.   
  142. ***************
  143. *** 81,96 ****
  144.   `rm -f Op.stat.tmp Op.stat.tmp2`;
  145.   if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
  146.   
  147. ! if (-c '/dev/tty') {print "ok 29\n";} else {print "not ok 29\n";}
  148.   if (! -c '.') {print "ok 30\n";} else {print "not ok 30\n";}
  149.   
  150. ! if (! -e '/dev/printer' || -c '/dev/printer' || -S '/dev/printer')
  151.       {print "ok 31\n";}
  152.   else
  153.       {print "not ok 31\n";}
  154.   if (! -S '.') {print "ok 32\n";} else {print "not ok 32\n";}
  155.   
  156. ! if (! -e '/dev/mt0' || -b '/dev/mt0')
  157.       {print "ok 33\n";}
  158.   else
  159.       {print "not ok 33\n";}
  160. --- 83,107 ----
  161.   `rm -f Op.stat.tmp Op.stat.tmp2`;
  162.   if (! -e 'Op.stat.tmp') {print "ok 28\n";} else {print "not ok 28\n";}
  163.   
  164. ! if ($DEV !~ /\nc.* (\S+)\n/)
  165. !     {print "ok 29\n";}
  166. ! elsif (-c "/dev/$1")
  167. !     {print "ok 29\n";}
  168. ! else
  169. !     {print "not ok 29\n";}
  170.   if (! -c '.') {print "ok 30\n";} else {print "not ok 30\n";}
  171.   
  172. ! if ($DEV !~ /\ns.* (\S+)\n/)
  173.       {print "ok 31\n";}
  174. + elsif (-S "/dev/$1")
  175. +     {print "ok 31\n";}
  176.   else
  177.       {print "not ok 31\n";}
  178.   if (! -S '.') {print "ok 32\n";} else {print "not ok 32\n";}
  179.   
  180. ! if ($DEV !~ /\nb.* (\S+)\n/)
  181. !     {print "ok 33\n";}
  182. ! elsif (-b "/dev/$1")
  183.       {print "ok 33\n";}
  184.   else
  185.       {print "not ok 33\n";}
  186.  
  187. Index: str.c
  188. *** str.c.old    Fri Jun  7 12:26:55 1991
  189. --- str.c    Fri Jun  7 12:26:56 1991
  190. ***************
  191. *** 1,11 ****
  192. ! /* $RCSfile: str.c,v $$Revision: 4.0.1.1 $$Date: 91/04/12 09:15:30 $
  193.    *
  194. !  *    Copyright (c) 1989, Larry Wall
  195.    *
  196. !  *    You may distribute under the terms of the GNU General Public License
  197. !  *    as specified in the README file that comes with the perl 3.0 kit.
  198.    *
  199.    * $Log:    str.c,v $
  200.    * Revision 4.0.1.1  91/04/12  09:15:30  lwall
  201.    * patch1: fixed undefined environ problem
  202.    * patch1: substr($ENV{"PATH"},0,0) = "/foo:" didn't modify environment
  203. --- 1,15 ----
  204. ! /* $RCSfile: str.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 11:58:13 $
  205.    *
  206. !  *    Copyright (c) 1991, Larry Wall
  207.    *
  208. !  *    You may distribute under the terms of either the GNU General Public
  209. !  *    License or the Artistic License, as specified in the README file.
  210.    *
  211.    * $Log:    str.c,v $
  212. +  * Revision 4.0.1.2  91/06/07  11:58:13  lwall
  213. +  * patch4: new copyright notice
  214. +  * patch4: taint check on undefined string could cause core dump
  215. +  * 
  216.    * Revision 4.0.1.1  91/04/12  09:15:30  lwall
  217.    * patch1: fixed undefined environ problem
  218.    * patch1: substr($ENV{"PATH"},0,0) = "/foo:" didn't modify environment
  219. ***************
  220. *** 369,379 ****
  221.   STR *dstr;
  222.   register STR *sstr;
  223.   {
  224.   #ifdef TAINT
  225.       tainted |= sstr->str_tainted;
  226.   #endif
  227. -     if (!sstr)
  228. -     return;
  229.       if (!(sstr->str_pok))
  230.       (void)str_2ptr(sstr);
  231.       if (sstr)
  232. --- 373,383 ----
  233.   STR *dstr;
  234.   register STR *sstr;
  235.   {
  236. +     if (!sstr)
  237. +     return;
  238.   #ifdef TAINT
  239.       tainted |= sstr->str_tainted;
  240.   #endif
  241.       if (!(sstr->str_pok))
  242.       (void)str_2ptr(sstr);
  243.       if (sstr)
  244.  
  245. Index: x2p/str.c
  246. Prereq: 4.0
  247. *** x2p/str.c.old    Fri Jun  7 12:28:17 1991
  248. --- x2p/str.c    Fri Jun  7 12:28:17 1991
  249. ***************
  250. *** 1,11 ****
  251. ! /* $Header: str.c,v 4.0 91/03/20 01:58:15 lwall Locked $
  252.    *
  253. !  *    Copyright (c) 1989, Larry Wall
  254.    *
  255. !  *    You may distribute under the terms of the GNU General Public License
  256. !  *    as specified in the README file that comes with the perl 3.0 kit.
  257.    *
  258.    * $Log:    str.c,v $
  259.    * Revision 4.0  91/03/20  01:58:15  lwall
  260.    * 4.0 baseline.
  261.    * 
  262. --- 1,14 ----
  263. ! /* $RCSfile: str.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:20:08 $
  264.    *
  265. !  *    Copyright (c) 1991, Larry Wall
  266.    *
  267. !  *    You may distribute under the terms of either the GNU General Public
  268. !  *    License or the Artistic License, as specified in the README file.
  269.    *
  270.    * $Log:    str.c,v $
  271. +  * Revision 4.0.1.1  91/06/07  12:20:08  lwall
  272. +  * patch4: new copyright notice
  273. +  * 
  274.    * Revision 4.0  91/03/20  01:58:15  lwall
  275.    * 4.0 baseline.
  276.    * 
  277.  
  278. Index: str.h
  279. *** str.h.old    Fri Jun  7 12:26:59 1991
  280. --- str.h    Fri Jun  7 12:27:01 1991
  281. ***************
  282. *** 1,11 ****
  283. ! /* $RCSfile: str.h,v $$Revision: 4.0.1.1 $$Date: 91/04/12 09:16:12 $
  284.    *
  285. !  *    Copyright (c) 1989, Larry Wall
  286.    *
  287. !  *    You may distribute under the terms of the GNU General Public License
  288. !  *    as specified in the README file that comes with the perl 3.0 kit.
  289.    *
  290.    * $Log:    str.h,v $
  291.    * Revision 4.0.1.1  91/04/12  09:16:12  lwall
  292.    * patch1: you may now use "die" and "caller" in a signal handler
  293.    * 
  294. --- 1,14 ----
  295. ! /* $RCSfile: str.h,v $$Revision: 4.0.1.2 $$Date: 91/06/07 11:58:33 $
  296.    *
  297. !  *    Copyright (c) 1991, Larry Wall
  298.    *
  299. !  *    You may distribute under the terms of either the GNU General Public
  300. !  *    License or the Artistic License, as specified in the README file.
  301.    *
  302.    * $Log:    str.h,v $
  303. +  * Revision 4.0.1.2  91/06/07  11:58:33  lwall
  304. +  * patch4: new copyright notice
  305. +  * 
  306.    * Revision 4.0.1.1  91/04/12  09:16:12  lwall
  307.    * patch1: you may now use "die" and "caller" in a signal handler
  308.    * 
  309.  
  310. Index: x2p/str.h
  311. Prereq: 4.0
  312. *** x2p/str.h.old    Fri Jun  7 12:28:20 1991
  313. --- x2p/str.h    Fri Jun  7 12:28:20 1991
  314. ***************
  315. *** 1,11 ****
  316. ! /* $Header: str.h,v 4.0 91/03/20 01:58:21 lwall Locked $
  317.    *
  318. !  *    Copyright (c) 1989, Larry Wall
  319.    *
  320. !  *    You may distribute under the terms of the GNU General Public License
  321. !  *    as specified in the README file that comes with the perl 3.0 kit.
  322.    *
  323.    * $Log:    str.h,v $
  324.    * Revision 4.0  91/03/20  01:58:21  lwall
  325.    * 4.0 baseline.
  326.    * 
  327. --- 1,14 ----
  328. ! /* $RCSfile: str.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:20:22 $
  329.    *
  330. !  *    Copyright (c) 1991, Larry Wall
  331.    *
  332. !  *    You may distribute under the terms of either the GNU General Public
  333. !  *    License or the Artistic License, as specified in the README file.
  334.    *
  335.    * $Log:    str.h,v $
  336. +  * Revision 4.0.1.1  91/06/07  12:20:22  lwall
  337. +  * patch4: new copyright notice
  338. +  * 
  339.    * Revision 4.0  91/03/20  01:58:21  lwall
  340.    * 4.0 baseline.
  341.    * 
  342.  
  343. Index: hints/sunos_4_0_1.sh
  344. *** hints/sunos_4_0_1.sh.old    Fri Jun  7 12:24:51 1991
  345. --- hints/sunos_4_0_1.sh    Fri Jun  7 12:24:51 1991
  346. ***************
  347. *** 1,4 ****
  348. ! echo ': work around botch in SunOS 4.0.1 and 4.0.2'    >>../perl.h
  349. ! echo '#ifndef fputs'                    >>../perl.h
  350. ! echo '#define fputs(str,fp) fprintf(fp,"%s",str)'    >>../perl.h
  351. ! echo '#endif'                        >>../perl.h
  352. --- 1 ----
  353. ! $ccflags="$ccflags -DFPUTS_BOTCH"
  354.  
  355. Index: hints/sunos_4_0_2.sh
  356. *** hints/sunos_4_0_2.sh.old    Fri Jun  7 12:24:53 1991
  357. --- hints/sunos_4_0_2.sh    Fri Jun  7 12:24:54 1991
  358. ***************
  359. *** 1,4 ****
  360. ! echo ': work around botch in SunOS 4.0.1 and 4.0.2'    >>../perl.h
  361. ! echo '#ifndef fputs'                    >>../perl.h
  362. ! echo '#define fputs(str,fp) fprintf(fp,"%s",str)'    >>../perl.h
  363. ! echo '#endif'                        >>../perl.h
  364. --- 1 ----
  365. ! $ccflags="$ccflags -DFPUTS_BOTCH"
  366.  
  367. Index: hints/svr4.sh
  368. *** hints/svr4.sh.old    Fri Jun  7 12:24:56 1991
  369. --- hints/svr4.sh    Fri Jun  7 12:24:57 1991
  370. ***************
  371. *** 0 ****
  372. --- 1,6 ----
  373. + cc='/bin/cc'
  374. + test -f $cc || cc='/usr/ccs/bin/cc'
  375. + ldflags='-L/usr/ucblib'
  376. + mansrc='/usr/share/man/man1'
  377. + ccflags='-I/usr/include -I/usr/ucbinclude'
  378. + libswanted=`echo $libswanted | sed 's/ ucb/ c ucb/'`
  379.  
  380. Index: toke.c
  381. *** toke.c.old    Fri Jun  7 12:27:17 1991
  382. --- toke.c    Fri Jun  7 12:27:19 1991
  383. ***************
  384. *** 1,11 ****
  385. ! /* $RCSfile: toke.c,v $$Revision: 4.0.1.1 $$Date: 91/04/12 09:18:18 $
  386.    *
  387. !  *    Copyright (c) 1989, Larry Wall
  388.    *
  389. !  *    You may distribute under the terms of the GNU General Public License
  390. !  *    as specified in the README file that comes with the perl 3.0 kit.
  391.    *
  392.    * $Log:    toke.c,v $
  393.    * Revision 4.0.1.1  91/04/12  09:18:18  lwall
  394.    * patch1: perl -de "print" wouldn't stop at the first statement
  395.    * 
  396. --- 1,17 ----
  397. ! /* $RCSfile: toke.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 12:05:56 $
  398.    *
  399. !  *    Copyright (c) 1991, Larry Wall
  400.    *
  401. !  *    You may distribute under the terms of either the GNU General Public
  402. !  *    License or the Artistic License, as specified in the README file.
  403.    *
  404.    * $Log:    toke.c,v $
  405. +  * Revision 4.0.1.2  91/06/07  12:05:56  lwall
  406. +  * patch4: new copyright notice
  407. +  * patch4: debugger lost track of lines in eval
  408. +  * patch4: //o and s///o now optimize themselves fully at runtime
  409. +  * patch4: added global modifier for pattern matches
  410. +  * 
  411.    * Revision 4.0.1.1  91/04/12  09:18:18  lwall
  412.    * patch1: perl -de "print" wouldn't stop at the first statement
  413.    * 
  414. ***************
  415. *** 25,30 ****
  416. --- 31,40 ----
  417.   #include <sys/file.h>
  418.   #endif
  419.   
  420. + #ifdef f_next
  421. + #undef f_next
  422. + #endif
  423. + 
  424.   /* which backslash sequences to keep in m// or s// */
  425.   
  426.   static char *patleave = "\\.^$@dDwWsSbB+*?|()-nrtf0123456789[{]}";
  427. ***************
  428. *** 326,338 ****
  429.           s++;
  430.           if (s < d)
  431.           s++;
  432. -         if (perldb) {
  433. -         STR *str = Str_new(85,0);
  434. - 
  435. -         str_nset(str,linestr->str_ptr, s - linestr->str_ptr);
  436. -         astore(stab_xarray(curcmd->c_filestab),(int)curcmd->c_line,str);
  437. -         str_chop(linestr, s);
  438. -         }
  439.           if (in_format) {
  440.           bufptr = s;
  441.           yylval.formval = load_format();
  442. --- 336,341 ----
  443. ***************
  444. *** 947,953 ****
  445.       if (strEQ(d,"oct"))
  446.           UNI(O_OCT);
  447.       if (strEQ(d,"opendir"))
  448. !         FOP2(O_OPENDIR);
  449.       break;
  450.       case 'p': case 'P':
  451.       SNARFWORD;
  452. --- 950,956 ----
  453.       if (strEQ(d,"oct"))
  454.           UNI(O_OCT);
  455.       if (strEQ(d,"opendir"))
  456. !         FOP2(O_OPEN_DIR);
  457.       break;
  458.       case 'p': case 'P':
  459.       SNARFWORD;
  460. ***************
  461. *** 1417,1423 ****
  462.   }
  463.   
  464.   STR *
  465. ! scanconst(string,len)
  466.   char *string;
  467.   int len;
  468.   {
  469. --- 1420,1427 ----
  470.   }
  471.   
  472.   STR *
  473. ! scanconst(spat,string,len)
  474. ! SPAT *spat;
  475.   char *string;
  476.   int len;
  477.   {
  478. ***************
  479. *** 1425,1434 ****
  480.       register char *t;
  481.       register char *d;
  482.       register char *e;
  483.   
  484. !     if (index(string,'|')) {
  485.       return Nullstr;
  486. !     }
  487.       retstr = Str_new(86,len);
  488.       str_nset(retstr,string,len);
  489.       t = str_get(retstr);
  490. --- 1429,1441 ----
  491.       register char *t;
  492.       register char *d;
  493.       register char *e;
  494. +     char *origstring = string;
  495. +     static char *vert = "|";
  496.   
  497. !     if (ninstr(string, string+len, vert, vert+1))
  498.       return Nullstr;
  499. !     if (*string == '^')
  500. !     string++, len--;
  501.       retstr = Str_new(86,len);
  502.       str_nset(retstr,string,len);
  503.       t = str_get(retstr);
  504. ***************
  505. *** 1488,1493 ****
  506. --- 1495,1506 ----
  507.       }
  508.       *d = '\0';
  509.       retstr->str_cur = d - t;
  510. +     if (d == t+len)
  511. +     spat->spat_flags |= SPAT_ALL;
  512. +     if (*origstring != '^')
  513. +     spat->spat_flags |= SPAT_SCANFIRST;
  514. +     spat->spat_short = retstr;
  515. +     spat->spat_slen = d - t;
  516.       return retstr;
  517.   }
  518.   
  519. ***************
  520. *** 1526,1532 ****
  521.       return s;
  522.       }
  523.       s++;
  524. !     while (*s == 'i' || *s == 'o') {
  525.       if (*s == 'i') {
  526.           s++;
  527.           sawi = TRUE;
  528. --- 1539,1545 ----
  529.       return s;
  530.       }
  531.       s++;
  532. !     while (*s == 'i' || *s == 'o' || *s == 'g') {
  533.       if (*s == 'i') {
  534.           s++;
  535.           sawi = TRUE;
  536. ***************
  537. *** 1536,1541 ****
  538. --- 1549,1558 ----
  539.           s++;
  540.           spat->spat_flags |= SPAT_KEEP;
  541.       }
  542. +     if (*s == 'g') {
  543. +         s++;
  544. +         spat->spat_flags |= SPAT_GLOBAL;
  545. +     }
  546.       }
  547.       len = str->str_cur;
  548.       e = str->str_ptr + len;
  549. ***************
  550. *** 1575,1597 ****
  551.   #else
  552.       (void)bcopy((char *)spat, (char *)&savespat, sizeof(SPAT));
  553.   #endif
  554. !     if (*str->str_ptr == '^') {
  555. !     spat->spat_short = scanconst(str->str_ptr+1,len-1);
  556. !     if (spat->spat_short) {
  557. !         spat->spat_slen = spat->spat_short->str_cur;
  558. !         if (spat->spat_slen == len - 1)
  559. !         spat->spat_flags |= SPAT_ALL;
  560. !     }
  561. !     }
  562. !     else {
  563. !     spat->spat_flags |= SPAT_SCANFIRST;
  564. !     spat->spat_short = scanconst(str->str_ptr,len);
  565. !     if (spat->spat_short) {
  566. !         spat->spat_slen = spat->spat_short->str_cur;
  567. !         if (spat->spat_slen == len)
  568. !         spat->spat_flags |= SPAT_ALL;
  569. !     }
  570. !     }    
  571.       if ((spat->spat_flags & SPAT_ALL) && (spat->spat_flags & SPAT_SCANFIRST)) {
  572.       fbmcompile(spat->spat_short, spat->spat_flags & SPAT_FOLD);
  573.       spat->spat_regexp = regcomp(str->str_ptr,str->str_ptr+len,
  574. --- 1592,1598 ----
  575.   #else
  576.       (void)bcopy((char *)spat, (char *)&savespat, sizeof(SPAT));
  577.   #endif
  578. !     scanconst(spat,str->str_ptr,len);
  579.       if ((spat->spat_flags & SPAT_ALL) && (spat->spat_flags & SPAT_SCANFIRST)) {
  580.       fbmcompile(spat->spat_short, spat->spat_flags & SPAT_FOLD);
  581.       spat->spat_regexp = regcomp(str->str_ptr,str->str_ptr+len,
  582. ***************
  583. *** 1670,1686 ****
  584.           goto get_repl;        /* skip compiling for now */
  585.       }
  586.       }
  587. !     if (*str->str_ptr == '^') {
  588. !     spat->spat_short = scanconst(str->str_ptr+1,len-1);
  589. !     if (spat->spat_short)
  590. !         spat->spat_slen = spat->spat_short->str_cur;
  591. !     }
  592. !     else {
  593. !     spat->spat_flags |= SPAT_SCANFIRST;
  594. !     spat->spat_short = scanconst(str->str_ptr,len);
  595. !     if (spat->spat_short)
  596. !         spat->spat_slen = spat->spat_short->str_cur;
  597. !     }
  598.   get_repl:
  599.       s = scanstr(s);
  600.       if (s >= bufend) {
  601. --- 1671,1677 ----
  602.           goto get_repl;        /* skip compiling for now */
  603.       }
  604.       }
  605. !     scanconst(spat,str->str_ptr,len);
  606.   get_repl:
  607.       s = scanstr(s);
  608.       if (s >= bufend) {
  609. ***************
  610. *** 1690,1696 ****
  611.       return s;
  612.       }
  613.       spat->spat_repl = yylval.arg;
  614. -     spat->spat_flags |= SPAT_ONCE;
  615.       if ((spat->spat_repl[1].arg_type & A_MASK) == A_SINGLE)
  616.       spat->spat_flags |= SPAT_CONST;
  617.       else if ((spat->spat_repl[1].arg_type & A_MASK) == A_DOUBLE) {
  618. --- 1681,1686 ----
  619. ***************
  620. *** 1719,1725 ****
  621.       }
  622.       if (*s == 'g') {
  623.           s++;
  624. !         spat->spat_flags &= ~SPAT_ONCE;
  625.       }
  626.       if (*s == 'i') {
  627.           s++;
  628. --- 1709,1715 ----
  629.       }
  630.       if (*s == 'g') {
  631.           s++;
  632. !         spat->spat_flags |= SPAT_GLOBAL;
  633.       }
  634.       if (*s == 'i') {
  635.           s++;
  636. ***************
  637. *** 1751,1757 ****
  638.   hoistmust(spat)
  639.   register SPAT *spat;
  640.   {
  641. !     if (spat->spat_regexp->regmust) {    /* is there a better short-circuit? */
  642.       if (spat->spat_short &&
  643.         str_eq(spat->spat_short,spat->spat_regexp->regmust))
  644.       {
  645. --- 1741,1754 ----
  646.   hoistmust(spat)
  647.   register SPAT *spat;
  648.   {
  649. !     if (!spat->spat_short && spat->spat_regexp->regstart &&
  650. !     (!spat->spat_regexp->regmust || spat->spat_regexp->reganch & ROPT_ANCH)
  651. !        ) {
  652. !     spat->spat_short = spat->spat_regexp->regstart;
  653. !     if (!(spat->spat_regexp->reganch & ROPT_ANCH))
  654. !         spat->spat_flags |= SPAT_SCANFIRST;
  655. !     }
  656. !     else if (spat->spat_regexp->regmust) {/* is there a better short-circuit? */
  657.       if (spat->spat_short &&
  658.         str_eq(spat->spat_short,spat->spat_regexp->regmust))
  659.       {
  660. ***************
  661. *** 2119,2124 ****
  662. --- 2116,2122 ----
  663.           STR *tmpstr;
  664.           char *tmps;
  665.   
  666. +         CLINE;
  667.           multi_start = curcmd->c_line;
  668.           if (hereis)
  669.           multi_open = multi_close = '<';
  670.  
  671. Index: hints/ultrix_3.sh
  672. *** hints/ultrix_3.sh.old    Fri Jun  7 12:25:00 1991
  673. --- hints/ultrix_3.sh    Fri Jun  7 12:25:00 1991
  674. ***************
  675. *** 1,2 ****
  676.   ccflags="$ccflags -DLANGUAGE_C"
  677. ! d_waitpid=$undef
  678. --- 1,14 ----
  679.   ccflags="$ccflags -DLANGUAGE_C"
  680. ! tmp="`(uname -a) 2>/dev/null`"
  681. ! case "$tmp" in
  682. ! *3.[01]*RISC) d_waitpid=$undef;;
  683. ! '') d_waitpid=$undef;;
  684. ! esac
  685. ! case "$tmp" in
  686. ! *RISC)
  687. !     cmd_cflags='optimize="-g"'
  688. !     perl_cflags='optimize="-g"'
  689. !     tcmd_cflags='optimize="-g"'
  690. !     tperl_cflags='optimize="-g"'
  691. !     ;;
  692. ! esac
  693.  
  694. Index: hints/ultrix_4.sh
  695. *** hints/ultrix_4.sh.old    Fri Jun  7 12:25:02 1991
  696. --- hints/ultrix_4.sh    Fri Jun  7 12:25:03 1991
  697. ***************
  698. *** 1 ****
  699. --- 1,19 ----
  700.   ccflags="$ccflags -DLANGUAGE_C -Olimit 2900"
  701. + tmp=`(uname -a) 2>/dev/null`
  702. + case "$tmp" in
  703. + *RISC*) cat <<EOF
  704. + Note that there is a bug in some versions of NFS on the DECStation that
  705. + may cause utime() to work incorrectly.  If so, regression test io/fs
  706. + may fail if run under NFS.  Ignore the failure.
  707. + EOF
  708. + ;;
  709. + esac
  710. + case "$tmp" in
  711. + *4.1*)
  712. +     eval_cflags='optimize="-g"'
  713. +     teval_cflags='optimize="-g"'
  714. +     toke_cflags='optimize="-g"'
  715. +     ttoke_cflags='optimize="-g"'
  716. +     ;;
  717. + esac
  718. + 
  719.  
  720. Index: util.c
  721. *** util.c.old    Fri Jun  7 12:27:26 1991
  722. --- util.c    Fri Jun  7 12:27:27 1991
  723. ***************
  724. *** 1,11 ****
  725. ! /* $RCSfile: util.c,v $$Revision: 4.0.1.1 $$Date: 91/04/12 09:19:25 $
  726.    *
  727. !  *    Copyright (c) 1989, Larry Wall
  728.    *
  729. !  *    You may distribute under the terms of the GNU General Public License
  730. !  *    as specified in the README file that comes with the perl 3.0 kit.
  731.    *
  732.    * $Log:    util.c,v $
  733.    * Revision 4.0.1.1  91/04/12  09:19:25  lwall
  734.    * patch1: random cleanup in cpp namespace
  735.    * 
  736. --- 1,18 ----
  737. ! /* $RCSfile: util.c,v $$Revision: 4.0.1.2 $$Date: 91/06/07 12:10:42 $
  738.    *
  739. !  *    Copyright (c) 1991, Larry Wall
  740.    *
  741. !  *    You may distribute under the terms of either the GNU General Public
  742. !  *    License or the Artistic License, as specified in the README file.
  743.    *
  744.    * $Log:    util.c,v $
  745. +  * Revision 4.0.1.2  91/06/07  12:10:42  lwall
  746. +  * patch4: new copyright notice
  747. +  * patch4: made some allowances for "semi-standard" C
  748. +  * patch4: index() could blow up searching for null string
  749. +  * patch4: taintchecks could improperly modify parent in vfork()
  750. +  * patch4: exec would close files even if you cleared close-on-exec flag
  751. +  * 
  752.    * Revision 4.0.1.1  91/04/12  09:19:25  lwall
  753.    * patch1: random cleanup in cpp namespace
  754.    * 
  755. ***************
  756. *** 60,68 ****
  757.   #endif /* MSDOS */
  758.   {
  759.       char *ptr;
  760. ! #ifndef __STDC__
  761.       char *malloc();
  762. ! #endif /* ! __STDC__ */
  763.   
  764.   #ifdef MSDOS
  765.       if (size > 0xffff) {
  766. --- 67,75 ----
  767.   #endif /* MSDOS */
  768.   {
  769.       char *ptr;
  770. ! #ifndef STANDARD_C
  771.       char *malloc();
  772. ! #endif /* ! STANDARD_C */
  773.   
  774.   #ifdef MSDOS
  775.       if (size > 0xffff) {
  776. ***************
  777. *** 108,116 ****
  778.   #endif /* MSDOS */
  779.   {
  780.       char *ptr;
  781. ! #ifndef __STDC__
  782.       char *realloc();
  783. ! #endif /* ! __STDC__ */
  784.   
  785.   #ifdef MSDOS
  786.       if (size > 0xffff) {
  787. --- 115,123 ----
  788.   #endif /* MSDOS */
  789.   {
  790.       char *ptr;
  791. ! #ifndef STANDARD_C
  792.       char *realloc();
  793. ! #endif /* ! STANDARD_C */
  794.   
  795.   #ifdef MSDOS
  796.       if (size > 0xffff) {
  797. ***************
  798. *** 514,522 ****
  799.       register unsigned char *oldlittle;
  800.   
  801.   #ifndef lint
  802. !     if (!(littlestr->str_pok & SP_FBM))
  803.       return ninstr((char*)big,(char*)bigend,
  804.           littlestr->str_ptr, littlestr->str_ptr + littlestr->str_cur);
  805.   #endif
  806.   
  807.       littlelen = littlestr->str_cur;
  808. --- 521,532 ----
  809.       register unsigned char *oldlittle;
  810.   
  811.   #ifndef lint
  812. !     if (!(littlestr->str_pok & SP_FBM)) {
  813. !     if (!littlestr->str_ptr)
  814. !         return (char*)big;
  815.       return ninstr((char*)big,(char*)bigend,
  816.           littlestr->str_ptr, littlestr->str_ptr + littlestr->str_cur);
  817. +     }
  818.   #endif
  819.   
  820.       littlelen = littlestr->str_cur;
  821. ***************
  822. *** 851,861 ****
  823. --- 861,873 ----
  824.   {
  825.       char *pat;
  826.       char *s;
  827. + #ifndef HAS_VPRINTF
  828.   #ifdef CHARVSPRINTF
  829.       char *vsprintf();
  830.   #else
  831.       int vsprintf();
  832.   #endif
  833. + #endif
  834.   
  835.       s = buf;
  836.   #ifdef lint
  837. ***************
  838. *** 1196,1201 ****
  839. --- 1208,1219 ----
  840.       return Nullfp;
  841.       this = (*mode == 'w');
  842.       that = !this;
  843. + #ifdef TAINT
  844. +     if (doexec) {
  845. +     taintenv();
  846. +     taintproper("Insecure dependency in exec");
  847. +     }
  848. + #endif
  849.       while ((pid = (doexec?vfork():fork())) < 0) {
  850.       if (errno != EAGAIN) {
  851.           close(p[this]);
  852. ***************
  853. *** 1214,1226 ****
  854.           close(p[THIS]);
  855.       }
  856.       if (doexec) {
  857. ! #if !defined(I_FCNTL) || !defined(F_SETFD)
  858.           int fd;
  859.   
  860.   #ifndef NOFILE
  861.   #define NOFILE 20
  862.   #endif
  863. !         for (fd = 3; fd < NOFILE; fd++)
  864.           close(fd);
  865.   #endif
  866.           do_exec(cmd);    /* may or may not use the shell */
  867. --- 1232,1244 ----
  868.           close(p[THIS]);
  869.       }
  870.       if (doexec) {
  871. ! #if !defined(HAS_FCNTL) || !defined(F_SETFD)
  872.           int fd;
  873.   
  874.   #ifndef NOFILE
  875.   #define NOFILE 20
  876.   #endif
  877. !         for (fd = maxsysfd + 1; fd < NOFILE; fd++)
  878.           close(fd);
  879.   #endif
  880.           do_exec(cmd);    /* may or may not use the shell */
  881. ***************
  882. *** 1273,1279 ****
  883.       close(newfd);
  884.       fcntl(oldfd, F_DUPFD, newfd);
  885.   #else
  886. !     int fdtmp[20];
  887.       int fdx = 0;
  888.       int fd;
  889.   
  890. --- 1291,1297 ----
  891.       close(newfd);
  892.       fcntl(oldfd, F_DUPFD, newfd);
  893.   #else
  894. !     int fdtmp[256];
  895.       int fdx = 0;
  896.       int fd;
  897.   
  898.  
  899. Index: x2p/util.c
  900. Prereq: 4.0
  901. *** x2p/util.c.old    Fri Jun  7 12:28:22 1991
  902. --- x2p/util.c    Fri Jun  7 12:28:23 1991
  903. ***************
  904. *** 1,11 ****
  905. ! /* $Header: util.c,v 4.0 91/03/20 01:58:25 lwall Locked $
  906.    *
  907. !  *    Copyright (c) 1989, Larry Wall
  908.    *
  909. !  *    You may distribute under the terms of the GNU General Public License
  910. !  *    as specified in the README file that comes with the perl 3.0 kit.
  911.    *
  912.    * $Log:    util.c,v $
  913.    * Revision 4.0  91/03/20  01:58:25  lwall
  914.    * 4.0 baseline.
  915.    * 
  916. --- 1,14 ----
  917. ! /* $RCSfile: util.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:20:35 $
  918.    *
  919. !  *    Copyright (c) 1991, Larry Wall
  920.    *
  921. !  *    You may distribute under the terms of either the GNU General Public
  922. !  *    License or the Artistic License, as specified in the README file.
  923.    *
  924.    * $Log:    util.c,v $
  925. +  * Revision 4.0.1.1  91/06/07  12:20:35  lwall
  926. +  * patch4: new copyright notice
  927. +  * 
  928.    * Revision 4.0  91/03/20  01:58:25  lwall
  929.    * 4.0 baseline.
  930.    * 
  931.  
  932. Index: util.h
  933. Prereq: 4.0
  934. *** util.h.old    Fri Jun  7 12:27:31 1991
  935. --- util.h    Fri Jun  7 12:27:32 1991
  936. ***************
  937. *** 1,11 ****
  938. ! /* $Header: util.h,v 4.0 91/03/20 01:56:48 lwall Locked $
  939.    *
  940. !  *    Copyright (c) 1989, Larry Wall
  941.    *
  942. !  *    You may distribute under the terms of the GNU General Public License
  943. !  *    as specified in the README file that comes with the perl 3.0 kit.
  944.    *
  945.    * $Log:    util.h,v $
  946.    * Revision 4.0  91/03/20  01:56:48  lwall
  947.    * 4.0 baseline.
  948.    * 
  949. --- 1,14 ----
  950. ! /* $RCSfile: util.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:11:00 $
  951.    *
  952. !  *    Copyright (c) 1991, Larry Wall
  953.    *
  954. !  *    You may distribute under the terms of either the GNU General Public
  955. !  *    License or the Artistic License, as specified in the README file.
  956.    *
  957.    * $Log:    util.h,v $
  958. +  * Revision 4.0.1.1  91/06/07  12:11:00  lwall
  959. +  * patch4: new copyright notice
  960. +  * 
  961.    * Revision 4.0  91/03/20  01:56:48  lwall
  962.    * 4.0 baseline.
  963.    * 
  964.  
  965. Index: x2p/util.h
  966. Prereq: 4.0
  967. *** x2p/util.h.old    Fri Jun  7 12:28:25 1991
  968. --- x2p/util.h    Fri Jun  7 12:28:26 1991
  969. ***************
  970. *** 1,11 ****
  971. ! /* $Header: util.h,v 4.0 91/03/20 01:58:29 lwall Locked $
  972.    *
  973. !  *    Copyright (c) 1989, Larry Wall
  974.    *
  975. !  *    You may distribute under the terms of the GNU General Public License
  976. !  *    as specified in the README file that comes with the perl 3.0 kit.
  977.    *
  978.    * $Log:    util.h,v $
  979.    * Revision 4.0  91/03/20  01:58:29  lwall
  980.    * 4.0 baseline.
  981.    * 
  982. --- 1,14 ----
  983. ! /* $RCSfile: util.h,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:20:43 $
  984.    *
  985. !  *    Copyright (c) 1991, Larry Wall
  986.    *
  987. !  *    You may distribute under the terms of either the GNU General Public
  988. !  *    License or the Artistic License, as specified in the README file.
  989.    *
  990.    * $Log:    util.h,v $
  991. +  * Revision 4.0.1.1  91/06/07  12:20:43  lwall
  992. +  * patch4: new copyright notice
  993. +  * 
  994.    * Revision 4.0  91/03/20  01:58:29  lwall
  995.    * 4.0 baseline.
  996.    * 
  997.  
  998. Index: hints/vax.sh
  999. *** hints/vax.sh.old    Fri Jun  7 12:25:04 1991
  1000. --- hints/vax.sh    Fri Jun  7 12:25:05 1991
  1001. ***************
  1002. *** 0 ****
  1003. --- 1 ----
  1004. + teval_cflags='case $cc in *gcc);; *) optimize="-O";; esac'
  1005.  
  1006. Index: x2p/walk.c
  1007. Prereq: 4.0
  1008. *** x2p/walk.c.old    Fri Jun  7 12:28:29 1991
  1009. --- x2p/walk.c    Fri Jun  7 12:28:30 1991
  1010. ***************
  1011. *** 1,11 ****
  1012. ! /* $Header: walk.c,v 4.0 91/03/20 01:58:36 lwall Locked $
  1013.    *
  1014. !  *    Copyright (c) 1989, Larry Wall
  1015.    *
  1016. !  *    You may distribute under the terms of the GNU General Public License
  1017. !  *    as specified in the README file that comes with the perl 3.0 kit.
  1018.    *
  1019.    * $Log:    walk.c,v $
  1020.    * Revision 4.0  91/03/20  01:58:36  lwall
  1021.    * 4.0 baseline.
  1022.    * 
  1023. --- 1,15 ----
  1024. ! /* $RCSfile: walk.c,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:22:04 $
  1025.    *
  1026. !  *    Copyright (c) 1991, Larry Wall
  1027.    *
  1028. !  *    You may distribute under the terms of either the GNU General Public
  1029. !  *    License or the Artistic License, as specified in the README file.
  1030.    *
  1031.    * $Log:    walk.c,v $
  1032. +  * Revision 4.0.1.1  91/06/07  12:22:04  lwall
  1033. +  * patch4: new copyright notice
  1034. +  * patch4: a2p didn't correctly implement -n switch
  1035. +  * 
  1036.    * Revision 4.0  91/03/20  01:58:36  lwall
  1037.    * 4.0 baseline.
  1038.    * 
  1039. ***************
  1040. *** 22,27 ****
  1041. --- 26,32 ----
  1042.   bool subretnum = FALSE;
  1043.   bool saw_FNR = FALSE;
  1044.   bool saw_argv0 = FALSE;
  1045. + bool saw_fh = FALSE;
  1046.   int maxtmp = 0;
  1047.   char *lparen;
  1048.   char *rparen;
  1049. ***************
  1050. *** 60,65 ****
  1051. --- 65,84 ----
  1052.       type &= 255;
  1053.       switch (type) {
  1054.       case OPROG:
  1055. +     arymax = 0;
  1056. +     if (namelist) {
  1057. +         while (isalpha(*namelist)) {
  1058. +         for (d = tokenbuf,s=namelist;
  1059. +           isalpha(*s) || isdigit(*s) || *s == '_';
  1060. +           *d++ = *s++) ;
  1061. +         *d = '\0';
  1062. +         while (*s && !isalpha(*s)) s++;
  1063. +         namelist = s;
  1064. +         nameary[++arymax] = savestr(tokenbuf);
  1065. +         }
  1066. +     }
  1067. +     if (maxfld < arymax)
  1068. +         maxfld = arymax;
  1069.       opens = str_new(0);
  1070.       subs = str_new(0);
  1071.       str = walk(0,level,ops[node+1].ival,&numarg,P_MIN);
  1072. ***************
  1073. *** 115,134 ****
  1074.           str_cat(str,"chop;\t# strip record separator\n");
  1075.           tab(str,level);
  1076.           }
  1077. -         arymax = 0;
  1078. -         if (namelist) {
  1079. -         while (isalpha(*namelist)) {
  1080. -             for (d = tokenbuf,s=namelist;
  1081. -               isalpha(*s) || isdigit(*s) || *s == '_';
  1082. -               *d++ = *s++) ;
  1083. -             *d = '\0';
  1084. -             while (*s && !isalpha(*s)) s++;
  1085. -             namelist = s;
  1086. -             nameary[++arymax] = savestr(tokenbuf);
  1087. -         }
  1088. -         }
  1089. -         if (maxfld < arymax)
  1090. -         maxfld = arymax;
  1091.           if (do_split)
  1092.           emit_split(str,level);
  1093.           str_scat(str,fstr);
  1094. --- 134,139 ----
  1095. ***************
  1096. *** 584,594 ****
  1097.           s = savestr(tokenbuf);
  1098.           for (t = tokenbuf; *t; t++) {
  1099.               *t &= 127;
  1100.               if (!isalpha(*t) && !isdigit(*t))
  1101.               *t = '_';
  1102.           }
  1103.           if (!index(tokenbuf,'_'))
  1104. !             strcpy(t,"_fh");
  1105.           tmp3str = hfetch(symtab,tokenbuf);
  1106.           if (!tmp3str) {
  1107.               do_opens = TRUE;
  1108. --- 589,601 ----
  1109.           s = savestr(tokenbuf);
  1110.           for (t = tokenbuf; *t; t++) {
  1111.               *t &= 127;
  1112. +             if (islower(*t))
  1113. +             *t = toupper(*t);
  1114.               if (!isalpha(*t) && !isdigit(*t))
  1115.               *t = '_';
  1116.           }
  1117.           if (!index(tokenbuf,'_'))
  1118. !             strcpy(t,"_FH");
  1119.           tmp3str = hfetch(symtab,tokenbuf);
  1120.           if (!tmp3str) {
  1121.               do_opens = TRUE;
  1122. ***************
  1123. *** 1110,1120 ****
  1124.           s = savestr(tokenbuf);
  1125.           for (t = tokenbuf; *t; t++) {
  1126.           *t &= 127;
  1127.           if (!isalpha(*t) && !isdigit(*t))
  1128.               *t = '_';
  1129.           }
  1130.           if (!index(tokenbuf,'_'))
  1131. !         strcpy(t,"_fh");
  1132.           str_free(tmpstr);
  1133.           safefree(s);
  1134.           str_set(str,"close ");
  1135. --- 1117,1129 ----
  1136.           s = savestr(tokenbuf);
  1137.           for (t = tokenbuf; *t; t++) {
  1138.           *t &= 127;
  1139. +         if (islower(*t))
  1140. +             *t = toupper(*t);
  1141.           if (!isalpha(*t) && !isdigit(*t))
  1142.               *t = '_';
  1143.           }
  1144.           if (!index(tokenbuf,'_'))
  1145. !         strcpy(t,"_FH");
  1146.           str_free(tmpstr);
  1147.           safefree(s);
  1148.           str_set(str,"close ");
  1149. ***************
  1150. *** 1145,1155 ****
  1151.           s = savestr(tokenbuf);
  1152.           for (t = tokenbuf; *t; t++) {
  1153.               *t &= 127;
  1154.               if (!isalpha(*t) && !isdigit(*t))
  1155.               *t = '_';
  1156.           }
  1157.           if (!index(tokenbuf,'_'))
  1158. !             strcpy(t,"_fh");
  1159.           tmp3str = hfetch(symtab,tokenbuf);
  1160.           if (!tmp3str) {
  1161.               str_cat(opens,"open(");
  1162. --- 1154,1166 ----
  1163.           s = savestr(tokenbuf);
  1164.           for (t = tokenbuf; *t; t++) {
  1165.               *t &= 127;
  1166. +             if (islower(*t))
  1167. +             *t = toupper(*t);
  1168.               if (!isalpha(*t) && !isdigit(*t))
  1169.               *t = '_';
  1170.           }
  1171.           if (!index(tokenbuf,'_'))
  1172. !             strcpy(t,"_FH");
  1173.           tmp3str = hfetch(symtab,tokenbuf);
  1174.           if (!tmp3str) {
  1175.               str_cat(opens,"open(");
  1176. ***************
  1177. *** 1195,1203 ****
  1178.           str_cat(str,"printf");
  1179.       else
  1180.           str_cat(str,"print");
  1181.       if (len == 3 || do_fancy_opens) {
  1182. !         if (*tokenbuf)
  1183.           str_cat(str," ");
  1184.           str_cat(str,tokenbuf);
  1185.       }
  1186.       tmpstr = walk(1+(type==OPRINT),level,ops[node+1].ival,&numarg,P_MIN);
  1187. --- 1206,1217 ----
  1188.           str_cat(str,"printf");
  1189.       else
  1190.           str_cat(str,"print");
  1191. +     saw_fh = 0;
  1192.       if (len == 3 || do_fancy_opens) {
  1193. !         if (*tokenbuf) {
  1194.           str_cat(str," ");
  1195. +         saw_fh = 1;
  1196. +         }
  1197.           str_cat(str,tokenbuf);
  1198.       }
  1199.       tmpstr = walk(1+(type==OPRINT),level,ops[node+1].ival,&numarg,P_MIN);
  1200. ***************
  1201. *** 1224,1230 ****
  1202.       }
  1203.       if (*tmpstr->str_ptr) {
  1204.           str_cat(str," ");
  1205. !         str_scat(str,tmpstr);
  1206.       }
  1207.       else {
  1208.           str_cat(str," $_");
  1209. --- 1238,1250 ----
  1210.       }
  1211.       if (*tmpstr->str_ptr) {
  1212.           str_cat(str," ");
  1213. !         if (!saw_fh && *tmpstr->str_ptr == '(') {
  1214. !         str_cat(str,"(");
  1215. !         str_scat(str,tmpstr);
  1216. !         str_cat(str,")");
  1217. !         }
  1218. !         else
  1219. !         str_scat(str,tmpstr);
  1220.       }
  1221.       else {
  1222.           str_cat(str," $_");
  1223.  
  1224. Index: x2p/Makefile.SH
  1225. Prereq: 4.0
  1226. *** x2p/Makefile.SH.old    Fri Jun  7 12:27:40 1991
  1227. --- x2p/Makefile.SH    Fri Jun  7 12:27:41 1991
  1228. ***************
  1229. *** 19,27 ****
  1230.   esac
  1231.   echo "Extracting x2p/Makefile (with variable substitutions)"
  1232.   cat >Makefile <<!GROK!THIS!
  1233. ! # $Header: Makefile.SH,v 4.0 91/03/20 01:57:03 lwall Locked $
  1234.   #
  1235.   # $Log:    Makefile.SH,v $
  1236.   # Revision 4.0  91/03/20  01:57:03  lwall
  1237.   # 4.0 baseline.
  1238.   # 
  1239. --- 19,30 ----
  1240.   esac
  1241.   echo "Extracting x2p/Makefile (with variable substitutions)"
  1242.   cat >Makefile <<!GROK!THIS!
  1243. ! # $RCSfile: Makefile.SH,v $$Revision: 4.0.1.1 $$Date: 91/06/07 12:12:14 $
  1244.   #
  1245.   # $Log:    Makefile.SH,v $
  1246. + # Revision 4.0.1.1  91/06/07  12:12:14  lwall
  1247. + # patch4: cflags now emits entire cc command except for the filename
  1248. + # 
  1249.   # Revision 4.0  91/03/20  01:57:03  lwall
  1250.   # 4.0 baseline.
  1251.   # 
  1252. ***************
  1253. *** 33,39 ****
  1254.   lib = $lib
  1255.   mansrc = $mansrc
  1256.   manext = $manext
  1257. - CFLAGS = $ccflags $optimize
  1258.   LDFLAGS = $ldflags
  1259.   SMALL = $small
  1260.   LARGE = $large $split
  1261. --- 36,41 ----
  1262. ***************
  1263. *** 45,50 ****
  1264. --- 47,54 ----
  1265.   
  1266.   cat >>Makefile <<'!NO!SUBS!'
  1267.   
  1268. + CCCMD = `sh cflags $@`
  1269. + 
  1270.   public = a2p s2p find2perl
  1271.   
  1272.   private = 
  1273. ***************
  1274. *** 69,81 ****
  1275.   SHELL = /bin/sh
  1276.   
  1277.   .c.o:
  1278. !     $(CC) -c $(CFLAGS) $(LARGE) $*.c
  1279.   
  1280.   all: $(public) $(private) $(util)
  1281.       touch all
  1282.   
  1283.   a2p: $(obj) a2p.o
  1284. !     $(CC) $(LARGE) $(LDFLAGS) $(obj) a2p.o $(libs) -o a2p
  1285.   
  1286.   a2p.c: a2p.y
  1287.       @ echo Expect 226 shift/reduce conflicts...
  1288. --- 73,85 ----
  1289.   SHELL = /bin/sh
  1290.   
  1291.   .c.o:
  1292. !     $(CCCMD) $*.c
  1293.   
  1294.   all: $(public) $(private) $(util)
  1295.       touch all
  1296.   
  1297.   a2p: $(obj) a2p.o
  1298. !     $(CC) $(LDFLAGS) $(obj) a2p.o $(libs) -o a2p
  1299.   
  1300.   a2p.c: a2p.y
  1301.       @ echo Expect 226 shift/reduce conflicts...
  1302. ***************
  1303. *** 83,89 ****
  1304.       mv y.tab.c a2p.c
  1305.   
  1306.   a2p.o: a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h handy.h ../config.h str.h hash.h
  1307. !     $(CC) -c $(CFLAGS) $(LARGE) a2p.c
  1308.   
  1309.   install: a2p s2p
  1310.   # won't work with csh
  1311. --- 87,93 ----
  1312.       mv y.tab.c a2p.c
  1313.   
  1314.   a2p.o: a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h handy.h ../config.h str.h hash.h
  1315. !     $(CCCMD) $(LARGE) a2p.c
  1316.   
  1317.   install: a2p s2p
  1318.   # won't work with csh
  1319. ***************
  1320. *** 95,110 ****
  1321.   for pub in $(public); do \
  1322.   chmod +x `basename $$pub`; \
  1323.   done
  1324. - #    chmod +x makedir
  1325. - #    - ./makedir `filexp $(lib)`
  1326. - #    - \
  1327. - #if test `pwd` != `filexp $(lib)`; then \
  1328. - #cp $(private) `filexp $(lib)`; \
  1329. - #fi
  1330. - #    cd `filexp $(lib)`; \
  1331. - #for priv in $(private); do \
  1332. - #chmod +x `basename $$priv`; \
  1333. - #done
  1334.       - if test `pwd` != $(mansrc); then \
  1335.   for page in $(manpages); do \
  1336.   cp $$page $(mansrc)/`basename $$page .man`.$(manext); \
  1337. --- 99,104 ----
  1338. ***************
  1339. *** 115,121 ****
  1340.       rm -f a2p *.o
  1341.   
  1342.   realclean: clean
  1343. !     rm -f *.orig */*.orig core $(addedbyconf) a2p.c s2p all
  1344.   
  1345.   # The following lint has practically everything turned on.  Unfortunately,
  1346.   # you have to wade through a lot of mumbo jumbo that can't be suppressed.
  1347. --- 109,115 ----
  1348.       rm -f a2p *.o
  1349.   
  1350.   realclean: clean
  1351. !     rm -f *.orig */*.orig core $(addedbyconf) a2p.c s2p find2perl all cflags
  1352.   
  1353.   # The following lint has practically everything turned on.  Unfortunately,
  1354.   # you have to wade through a lot of mumbo jumbo that can't be suppressed.
  1355.  
  1356. Index: README
  1357. *** README.old    Fri Jun  7 12:22:37 1991
  1358. --- README    Fri Jun  7 12:22:38 1991
  1359. ***************
  1360. *** 2,27 ****
  1361.               Perl Kit, Version 4.0
  1362.   
  1363.           Copyright (c) 1989,1990,1991, Larry Wall
  1364.   
  1365.       This program is free software; you can redistribute it and/or modify
  1366. !     it under the terms of the GNU General Public License as published by
  1367. !     the Free Software Foundation; either version 1, or (at your option)
  1368. !     any later version.
  1369.   
  1370.       This program is distributed in the hope that it will be useful,
  1371.       but WITHOUT ANY WARRANTY; without even the implied warranty of
  1372. !     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  1373. !     GNU General Public License for more details.
  1374.   
  1375. !     You should have received a copy of the GNU General Public License
  1376.       along with this program; if not, write to the Free Software
  1377.       Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  1378.   
  1379. !     My interpretation of the GNU General Public License is that no Perl
  1380. !     script falls under the terms of the License unless you explicitly put
  1381. !     said script under the terms of the License yourself.  Furthermore, any
  1382.       object code linked with uperl.o does not automatically fall under the
  1383. !     terms of the License, provided such object code only adds definitions
  1384.       of subroutines and variables, and does not otherwise impair the
  1385.       resulting interpreter from executing any standard Perl script.  I
  1386.       consider linking in C subroutines in this manner to be the moral
  1387. --- 2,36 ----
  1388.               Perl Kit, Version 4.0
  1389.   
  1390.           Copyright (c) 1989,1990,1991, Larry Wall
  1391. +               All rights reserved.
  1392.   
  1393.       This program is free software; you can redistribute it and/or modify
  1394. !     it under the terms of either:
  1395. !     
  1396. !     a) the GNU General Public License as published by the Free
  1397. !     Software Foundation; either version 1, or (at your option) any
  1398. !     later version, or
  1399.   
  1400. +     b) the "Artistic License" which comes with this Kit.
  1401. + 
  1402.       This program is distributed in the hope that it will be useful,
  1403.       but WITHOUT ANY WARRANTY; without even the implied warranty of
  1404. !     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See either
  1405. !     the GNU General Public License or the Artistic License for more details.
  1406.   
  1407. !     You should have received a copy of the Artistic License with this
  1408. !     Kit, in the file named "Artistic".  If not, I'll be glad to provide one.
  1409. ! 
  1410. !     You should also have received a copy of the GNU General Public License
  1411.       along with this program; if not, write to the Free Software
  1412.       Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  1413.   
  1414. !     For those of you that choose to use the GNU General Public License,
  1415. !     my interpretation of the GNU General Public License is that no Perl
  1416. !     script falls under the terms of the GPL unless you explicitly put
  1417. !     said script under the terms of the GPL yourself.  Furthermore, any
  1418.       object code linked with uperl.o does not automatically fall under the
  1419. !     terms of the GPL, provided such object code only adds definitions
  1420.       of subroutines and variables, and does not otherwise impair the
  1421.       resulting interpreter from executing any standard Perl script.  I
  1422.       consider linking in C subroutines in this manner to be the moral
  1423. ***************
  1424. *** 31,46 ****
  1425.       Public License.  (This is merely an alternate way of specifying input
  1426.       to the program.)  You may also sell a binary produced by the dumping of
  1427.       a running Perl script that belongs to you, provided that you provide or
  1428. !     offer to provide the Perl source as specified by the License.  (The
  1429.       fact that a Perl interpreter and your code are in the same binary file
  1430.       is, in this case, a form of mere aggregation.)  This is my interpretation
  1431. !     of the License.  If you still have concerns or difficulties understanding
  1432. !     my intent, feel free to contact me.
  1433.   
  1434.   --------------------------------------------------------------------------
  1435.   
  1436.   Perl is a language that combines some of the features of C, sed, awk and shell.
  1437. ! See the manual page for more hype.
  1438.   
  1439.   Perl will probably not run on machines with a small address space.
  1440.   
  1441. --- 40,58 ----
  1442.       Public License.  (This is merely an alternate way of specifying input
  1443.       to the program.)  You may also sell a binary produced by the dumping of
  1444.       a running Perl script that belongs to you, provided that you provide or
  1445. !     offer to provide the Perl source as specified by the GPL.  (The
  1446.       fact that a Perl interpreter and your code are in the same binary file
  1447.       is, in this case, a form of mere aggregation.)  This is my interpretation
  1448. !     of the GPL.  If you still have concerns or difficulties understanding
  1449. !     my intent, feel free to contact me.  Of course, the Artistic License
  1450. !     spells all this out for your protection, so you may prefer to use that.
  1451.   
  1452.   --------------------------------------------------------------------------
  1453.   
  1454.   Perl is a language that combines some of the features of C, sed, awk and shell.
  1455. ! See the manual page for more hype.  There's also a Nutshell Handbook published
  1456. ! by O'Reilly & Assoc.  Their U.S. number is 1-800-338-6887 (dev-nuts) and
  1457. ! their international number is 1-707-829-0515.  E-mail to nuts@ora.com.
  1458.   
  1459.   Perl will probably not run on machines with a small address space.
  1460.   
  1461. ***************
  1462. *** 107,113 ****
  1463.       AIX/RT may need a -a switch and -DCRIPPLED_CC.
  1464.       AIX RS/6000 needs to use system malloc and avoid -O on eval.c and toke.c.
  1465.       AIX RS/6000 needs -D_NO_PROTO.
  1466. !     SUNOS 4.0.[12] needs #define fputs(str,fp) fprintf(fp,"%s",str) in perl.h
  1467.       SUNOS 3.[45] should use the system malloc.
  1468.       SGI machines may need -Ddouble="long float" and -O1.
  1469.       Vax-based systems may need to hand assemble teval.s with a -J switch.
  1470. --- 119,125 ----
  1471.       AIX/RT may need a -a switch and -DCRIPPLED_CC.
  1472.       AIX RS/6000 needs to use system malloc and avoid -O on eval.c and toke.c.
  1473.       AIX RS/6000 needs -D_NO_PROTO.
  1474. !     SUNOS 4.0.[12] needs -DFPUTS_BOTCH.
  1475.       SUNOS 3.[45] should use the system malloc.
  1476.       SGI machines may need -Ddouble="long float" and -O1.
  1477.       Vax-based systems may need to hand assemble teval.s with a -J switch.
  1478. ***************
  1479. *** 114,119 ****
  1480. --- 126,132 ----
  1481.       Ultrix on MIPS machines may need -DLANGUAGE_C.
  1482.       Ultrix 4.0 on MIPS machines may need -Olimit 2900 or so.
  1483.       Ultrix 3.[01] on MIPS needs to undefine WAITPID--the system call is busted.
  1484. +     MIPS machines need /bin before /bsd43/bin in PATH.
  1485.       MIPS machines may need to undef d_volatile.
  1486.       MIPS machines may need to turn off -O on cmd.c, perl.c and tperl.c.
  1487.       Some MIPS machines may need to undefine CASTNEGFLOAT.
  1488. ***************
  1489. *** 164,170 ****
  1490.   
  1491.       If possible, send in patches such that the patch program will apply them.
  1492.       Context diffs are the best, then normal diffs.  Don't send ed scripts--
  1493. !     I've probably changed my copy since the version you have.
  1494.   
  1495.       Watch for perl patches in comp.lang.perl.  Patches will generally be
  1496.       in a form usable by the patch program.  If you are just now bringing up
  1497. --- 177,184 ----
  1498.   
  1499.       If possible, send in patches such that the patch program will apply them.
  1500.       Context diffs are the best, then normal diffs.  Don't send ed scripts--
  1501. !     I've probably changed my copy since the version you have.  It's also
  1502. !     helpful if you send the output of "uname -a".
  1503.   
  1504.       Watch for perl patches in comp.lang.perl.  Patches will generally be
  1505.       in a form usable by the patch program.  If you are just now bringing up
  1506.  
  1507. *** End of Patch 9 ***
  1508. -- 
  1509. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1510. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1511. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1512. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1513.