home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume20 / perl3.0 / patch1 < prev    next >
Encoding:
Internet Message Format  |  1989-11-01  |  51.0 KB
  1. Subject:  v20i108:  Perl, a language with features of C/sed/awk/shell/etc, Patch1
  2. Newsgroups: comp.sources.unix,comp.sources.bugs
  3. Sender: sources
  4. Approved: rsalz@uunet.UU.NET
  5. Followup-To: comp.sources.d
  6.  
  7. Submitted-by: Larry Wall <lwall@jpl-devvax.jpl.nasa.gov>
  8. Posting-number: Volume 20, Issue 108
  9. Archive-name: perl3.0/patch1
  10.  
  11. [  IMPORTANT!  PLEASE READ THIS NOTE:
  12.  
  13.     This is the first patch for PERL3.0.  There might be others.
  14.     If you are retrieving this from a comp.sources.unix archive
  15.     site, that site MIGHT NOT have all the latest patches:  patches
  16.     don't always get posted to c.s.u, for a variety of reasons.
  17.     (If you questions or problems with this, please mail to
  18.     rsalz@uunet.uu.net.)  This patch, as with all of Larry Wall's
  19.     patches, contains information on how to get all the later patches.
  20.     If you cannot subscribe to comp.sources.bugs, SAVE THIS and
  21.     use the instructions below to get the new patches.
  22.  
  23.     Thank you for your cooperation.  If you follow these guidelines,
  24.     you will reduce needless net and email bandwith, and make it easier
  25.     on the moderator, and the archive sites.  /r$  ]
  26.  
  27. System: perl version 3.0
  28. Patch #: 1
  29. Priority: MEDIUM-HIGH
  30. Subject: Configure now includes user's PATH
  31. Subject: Configure decides whether to include <netinet/in.h>
  32. Subject: Configure checks Sun shared library in preference to /lib/libc.a
  33. Subject: Fixed Configure typo of -fpcc-struct-return
  34. Subject: Configure figures out if BSD shadow passwords are installed
  35. Subject: Clarified prompts regarding gid and uid types
  36. Subject: Makefile.SH needed some more .h dependecies
  37. Subject: Documented that "make test" is needed before "cd t; TEST"
  38. Subject: reverse didn't work
  39. Subject: heuristically disabled optimization could cause core dump
  40. Subject: unless was broken when run under the debugger
  41. Subject: Configure vfork test was backwards
  42. Subject: numeric switch optimization was broken
  43. Subject: Configure now checks for BSD shadow passwords
  44. Subject: split in a subroutine wrongly freed referenced arguments
  45. Subject: glob didn't free a temporary string
  46. Subject: RCS expanded an unintended $Header in lib/perldb.pl
  47. Subject: some declarations were missing from malloc.c
  48. Subject: sparc machines had alignment problems in malloc.c
  49. Subject: vfork now conditionally defined based on VFORK
  50. Subject: DEC risc machines have a buggy memcmp
  51. Subject: perl.h now includes <netinet/in.h> if it exists
  52. Subject: documented the desirability of unnecessary parentheses
  53. Subject: grandfathered "format stdout"
  54. Subject: operator(); is now normally equivalent to operator;
  55. Subject: string ordering tests were wrong
  56. Subject: $/ now works even when STDSTDIO undefined
  57. Subject: rearranged some structures to align doubles better on Gould
  58. Subject: added regression tests for reverse
  59. Subject: disambiguated word after "sort" better
  60. Subject: declared bcopy if necessary
  61. Subject: in x2p/Makefile.SH, added dependency on ../config.sh
  62.  
  63. Description:
  64.     Configure had difficulties if the user's path had weird components.
  65.     Now Configure appends the user's path to its own.
  66.  
  67.     Some machines need <netinet/in.h> included in order to define
  68.     certain macros for packing or unpacking network order data.
  69.  
  70.     On Suns, the shared library is used by default.  If it doesn't
  71.     contain something contained in /lib/libc.a, then Configure was
  72.     getting things wrong (such as gethostent()).  Now Configure uses
  73.     the shared library if it's there in preference to libc.a.
  74.  
  75.     When gcc was selected as the compiler, the cc flags defaulted to
  76.     -fpcc_struct_return.  Unfortunately, the underlines should be hyphens.
  77.  
  78.     Configure figures out if BSD shadow passwords are installed and
  79.     the getpw* routines now return slightly different data in the
  80.     affected fields.
  81.  
  82.     Some of the prompts in Configure with regard to gid and uid types
  83.     were unclear as to their intended use.  They are now a little
  84.     clearer.
  85.  
  86.     Sometimes you could change a .h file and taintperl and suidperl
  87.     didn't get remade correctly because of missing dependencies
  88.     in the Makefile.
  89.  
  90.     The README file was misleading about the fact that you have to
  91.     say "make test" before you can "cd t; TEST"
  92.  
  93.     The reverse operator was busted in two different ways.  Should work
  94.     better now.  There are now regression tests for it.
  95.  
  96.     Some of the optimizations that perl does are disabled after period
  97.     of time if perl decides they aren't doing any good.  One of these
  98.     caused a string to be freed that was later referenced via another
  99.     pointer, causing core dumps.  The free turned out to be unnecessary,
  100.     so it was removed.
  101.  
  102.     The unless modifier was broken when run under the debugger, due to
  103.     the invert() routine in perl.y inverting the logic on the DB
  104.     subroutine call instead of the command the unless was modifying.
  105.  
  106.     Configure vfork test was backwards.  It now works like other defines.
  107.  
  108.     The numeric switch optimization was broken, and caused code to be
  109.     bypassed.  This has been fixed.
  110.  
  111.     A split in a subroutine that has no target splits into @_.
  112.     Unfortunately, this wrongly freed any referenced arguments passed
  113.     in through @_, causing confusing behavior later in the program.
  114.  
  115.     File globbing (<foo.*>) left one orphaned string each time it
  116.     called the shell to do the glob.
  117.  
  118.     RCS expanded an unintended $Header in lib/perldb.pl.  This has
  119.     been fixed simply by replacing the $ with a .
  120.  
  121.     Some forward declarations of static functions were missing from
  122.     malloc.c.
  123.  
  124.     There's a strut in malloc for mips machines to extend the overhead
  125.     union to the size of a double.  This was also enabled for sparc
  126.     machines.
  127.  
  128.     DEC risc machines are reported to have a buggy memcmp.  I've put
  129.     some conditional code into perl.h which I think will undef MEMCMP
  130.     appropriately.
  131.  
  132.     In perl.man.4, I documented the desirability of using parens even
  133.     where they aren't strictly necessary.
  134.  
  135.     I've grandfathered "format stdout" to be the same as "format STDOUT".
  136.  
  137.     Unary operators can be called with no argument.  The corresponding
  138.     function call form using empty parens () didn't work right, though
  139.     it did for certain functions in 2.0.  It now works in 3.0.
  140.  
  141.     The string ordering tests were wrong for pairs of strings in which
  142.     one string was a prefix of the other.  This affected lt, le, gt,
  143.     ge, and the sort operator when used with no subroutine.
  144.  
  145.     $/ didn't work with the stupid code used when STDSTDIO was undefined.
  146.     The stupid code has been replaced with smarter code that can do
  147.     it right.  Special thanks to Piet van Oostrum for the code.
  148.  
  149.     Goulds work better if the union in STR is at an 8 byte boundary.
  150.     The fields were rearranged somewhat to provide this.
  151.  
  152.     "sort keys %a" should now work right (though parens are still
  153.     desirable for readability).
  154.  
  155.     bcopy() needed a forward declaration on some machines.
  156.  
  157.     In x2p/Makefile.SH, added dependency on ../config.sh so that it
  158.     gets linked down from above if it got removed for some reason.
  159.  
  160. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your perl source
  161.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  162.     If you don't have the patch program, apply the following by hand,
  163.     or get patch (version 2.0, latest patchlevel).
  164.  
  165.     After patching:
  166.         Configure -d
  167.         make depend
  168.         make
  169.         make test
  170.         make install
  171.  
  172.     If patch indicates that patchlevel is the wrong version, you may need
  173.     to apply one or more previous patches, or the patch may already
  174.     have been applied.  See the patchlevel.h file to find out what has or
  175.     has not been applied.  In any event, don't continue with the patch.
  176.  
  177.     If you are missing previous patches (hah!) they can be obtained from me:
  178.  
  179.     Larry Wall
  180.     lwall@jpl-devvax.jpl.nasa.gov
  181.  
  182.     If you send a mail message of the following form it will greatly speed
  183.     processing:
  184.  
  185.     Subject: Command
  186.     @SH mailpatch PATH perl 3.0 LIST
  187.            ^ note the c
  188.  
  189.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  190.     or in bang notation from some well-known host, and LIST is the number
  191.     of one or more patches you need, separated by spaces, commas, and/or
  192.     hyphens.  Saying 35- says everything from 35 to the end.
  193.  
  194.  
  195.     You can also get the patches via anonymous FTP from
  196.     jpl-devvax.jpl.nasa.gov (128.149.1.143).
  197.  
  198. Index: patchlevel.h
  199. Prereq: 0
  200. 1c1
  201. < #define PATCHLEVEL 0
  202. ---
  203. > #define PATCHLEVEL 1
  204.  
  205. Index: Configure
  206. Prereq: 3.0
  207. *** Configure.old    Thu Oct 26 23:29:20 1989
  208. --- Configure    Thu Oct 26 23:29:22 1989
  209. ***************
  210. *** 8,14 ****
  211.   # and edit it to reflect your system.  Some packages may include samples
  212.   # of config.h for certain machines, so you might look for one of those.)
  213.   #
  214. ! # $Header: Configure,v 3.0 89/10/18 15:04:55 lwall Locked $
  215.   #
  216.   # Yes, you may rip this off to use in other distribution packages.
  217.   # (Note: this Configure script was generated automatically.  Rather than
  218. --- 8,14 ----
  219.   # and edit it to reflect your system.  Some packages may include samples
  220.   # of config.h for certain machines, so you might look for one of those.)
  221.   #
  222. ! # $Header: Configure,v 3.0.1.1 89/10/26 22:58:02 lwall Locked $
  223.   #
  224.   # Yes, you may rip this off to use in other distribution packages.
  225.   # (Note: this Configure script was generated automatically.  Rather than
  226. ***************
  227. *** 15,21 ****
  228.   # working with this copy of Configure, you may wish to get metaconfig.)
  229.   
  230.   : sanity checks
  231. ! PATH='.:/bin:/usr/bin:/usr/local/bin:/usr/ucb:/usr/local:/usr/lbin:/etc:/usr/new:/usr/new/bin:/usr/nbin'
  232.   export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  233.   
  234.   if test ! -t 0; then
  235. --- 15,21 ----
  236.   # working with this copy of Configure, you may wish to get metaconfig.)
  237.   
  238.   : sanity checks
  239. ! PATH=".:/bin:/usr/bin:/usr/local/bin:/usr/ucb:/usr/local:/usr/lbin:/etc:/usr/new:/usr/new/bin:/usr/nbin:$PATH"
  240.   export PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  241.   
  242.   if test ! -t 0; then
  243. ***************
  244. *** 157,162 ****
  245. --- 157,163 ----
  246.   d_dirnamlen=''
  247.   i_fcntl=''
  248.   i_grp=''
  249. + i_niin=''
  250.   i_pwd=''
  251.   d_pwquota=''
  252.   d_pwage=''
  253. ***************
  254. *** 424,430 ****
  255.   cpp
  256.   egrep
  257.   test
  258. - uname
  259.   "
  260.   for file in $loclist; do
  261.       xxx=`loc $file $file $pth`
  262. --- 425,430 ----
  263. ***************
  264. *** 513,533 ****
  265.   rmlist="$rmlist loc"
  266.   
  267.   : get list of predefined functions in a handy place
  268. - if $test -n "$uname"; then
  269. -     os=`$uname -s`
  270. - else
  271. -     os=unknown
  272. - fi
  273.   echo " "
  274. ! if test -f /lib/libc.a; then
  275.       echo "Your C library is in /lib/libc.a.  You're normal."
  276.       libc=/lib/libc.a
  277.   else
  278. !     if test "$os" = DomainOS ; then
  279. !     ans=`loc libc blurfl/dyick $libpth`
  280. !     else
  281. !     ans=`loc libc.a blurfl/dyick $libpth`
  282. !     fi
  283.       if test ! -f "$ans"; then
  284.       ans=`loc clib blurfl/dyick $libpth`
  285.       fi
  286. --- 513,529 ----
  287.   rmlist="$rmlist loc"
  288.   
  289.   : get list of predefined functions in a handy place
  290.   echo " "
  291. ! set /usr/lib/libc.so.[0-9]*
  292. ! eval set \$$#
  293. ! if test -f "$1"; then
  294. !     echo "Your shared C library is in $1."
  295. !     libc="$1"
  296. ! elif test -f /lib/libc.a; then
  297.       echo "Your C library is in /lib/libc.a.  You're normal."
  298.       libc=/lib/libc.a
  299.   else
  300. !     ans=`loc libc.a blurfl/dyick $libpth`
  301.       if test ! -f "$ans"; then
  302.       ans=`loc clib blurfl/dyick $libpth`
  303.       fi
  304. ***************
  305. *** 573,583 ****
  306.   if $contains '^printf$' libc.list >/dev/null 2>&1; then
  307.       echo "done"
  308.   else
  309. !     if test "$os" = DomainOS ; then
  310. !         $sed -n -e 's/^__*//' -e 's/^\([a-zA-Z_0-9$]*\).*xtern.*/\1/p' <libc.tmp >libc.list
  311. !     else
  312.       $sed -n -e 's/^.* D __*//p' -e 's/^.* D //p' <libc.tmp >libc.list
  313. -     fi
  314.       $contains '^printf$' libc.list >/dev/null 2>&1 || \
  315.          $sed -n -e 's/^_//' \
  316.             -e 's/^\([a-zA-Z_0-9]*\).*xtern.*text.*/\1/p' <libc.tmp >libc.list
  317. --- 569,577 ----
  318.   if $contains '^printf$' libc.list >/dev/null 2>&1; then
  319.       echo "done"
  320.   else
  321. !     $sed -n -e 's/^__*//' -e 's/^\([a-zA-Z_0-9$]*\).*xtern.*/\1/p' <libc.tmp >libc.list
  322. !     $contains '^printf$' libc.list >/dev/null 2>&1 || \
  323.       $sed -n -e 's/^.* D __*//p' -e 's/^.* D //p' <libc.tmp >libc.list
  324.       $contains '^printf$' libc.list >/dev/null 2>&1 || \
  325.          $sed -n -e 's/^_//' \
  326.             -e 's/^\([a-zA-Z_0-9]*\).*xtern.*text.*/\1/p' <libc.tmp >libc.list
  327. ***************
  328. *** 1102,1108 ****
  329.   
  330.   case "$ccflags" in
  331.   '') case "$cc" in
  332. !     gcc) dflt='-fpcc_struct_return';;
  333.       *) dflt='none';;
  334.       esac
  335.       ;;
  336. --- 1096,1102 ----
  337.   
  338.   case "$ccflags" in
  339.   '') case "$cc" in
  340. !     gcc) dflt='-fpcc-struct-return';;
  341.       *) dflt='none';;
  342.       esac
  343.       ;;
  344. ***************
  345. *** 1553,1559 ****
  346.       echo "dbm.h not found."
  347.   fi
  348.   
  349. ! : see if this is an pwd system
  350.   echo " "
  351.   if $test -r /usr/include/pwd.h ; then
  352.       i_pwd="$define"
  353. --- 1547,1553 ----
  354.       echo "dbm.h not found."
  355.   fi
  356.   
  357. ! : see if this is a pwd system
  358.   echo " "
  359.   if $test -r /usr/include/pwd.h ; then
  360.       i_pwd="$define"
  361. ***************
  362. *** 1568,1577 ****
  363. --- 1562,1589 ----
  364.       else
  365.       d_pwage="$undef"
  366.       fi
  367. +     if $contains 'pw_change' /usr/include/pwd.h >/dev/null 2>&1; then
  368. +     d_pwchange="$define"
  369. +     else
  370. +     d_pwchange="$undef"
  371. +     fi
  372. +     if $contains 'pw_class' /usr/include/pwd.h >/dev/null 2>&1; then
  373. +     d_pwclass="$define"
  374. +     else
  375. +     d_pwclass="$undef"
  376. +     fi
  377. +     if $contains 'pw_expire' /usr/include/pwd.h >/dev/null 2>&1; then
  378. +     d_pwexpire="$define"
  379. +     else
  380. +     d_pwexpire="$undef"
  381. +     fi
  382.   else
  383.       i_pwd="$undef"
  384.       d_pwquota="$undef"
  385.       d_pwage="$undef"
  386. +     d_pwchange="$undef"
  387. +     d_pwclass="$undef"
  388. +     d_pwexpire="$undef"
  389.       echo "No pwd.h found."
  390.   fi
  391.   
  392. ***************
  393. *** 1868,1874 ****
  394.   esac
  395.   cont=true
  396.   echo " "
  397. ! rp="What type are group ids on this system declared as? [$dflt]"
  398.   $echo $n "$rp $c"
  399.   . myread
  400.   gidtype="$ans"
  401. --- 1880,1886 ----
  402.   esac
  403.   cont=true
  404.   echo " "
  405. ! rp="What type are the group ids are returned by getgroups()? [$dflt]"
  406.   $echo $n "$rp $c"
  407.   . myread
  408.   gidtype="$ans"
  409. ***************
  410. *** 1893,1898 ****
  411. --- 1905,1920 ----
  412.       echo "No grp.h found."
  413.   fi
  414.   
  415. + : see if this is a netinet/in.h system
  416. + echo " "
  417. + if $test -r /usr/include/netinet/in.h ; then
  418. +     i_niin="$define"
  419. +     echo "netinet/in.h found."
  420. + else
  421. +     i_niin="$undef"
  422. +     echo "No netinet/in.h found."
  423. + fi
  424. + 
  425.   : see if this is a sys/dir.h system
  426.   echo " "
  427.   if $test -r /usr/include/sys/dir.h ; then
  428. ***************
  429. *** 2070,2076 ****
  430.   esac
  431.   cont=true
  432.   echo " "
  433. ! rp="What type are user ids on this system declared as? [$dflt]"
  434.   $echo $n "$rp $c"
  435.   . myread
  436.   uidtype="$ans"
  437. --- 2092,2098 ----
  438.   esac
  439.   cont=true
  440.   echo " "
  441. ! rp="What type are user ids returned by getuid(), etc.? [$dflt]"
  442.   $echo $n "$rp $c"
  443.   . myread
  444.   uidtype="$ans"
  445. ***************
  446. *** 2307,2312 ****
  447. --- 2329,2335 ----
  448.   d_dirnamlen='$d_dirnamlen'
  449.   i_fcntl='$i_fcntl'
  450.   i_grp='$i_grp'
  451. + i_niin='$i_niin'
  452.   i_pwd='$i_pwd'
  453.   d_pwquota='$d_pwquota'
  454.   d_pwage='$d_pwage'
  455.  
  456. Index: Makefile.SH
  457. Prereq: 3.0
  458. *** Makefile.SH.old    Thu Oct 26 23:29:29 1989
  459. --- Makefile.SH    Thu Oct 26 23:29:31 1989
  460. ***************
  461. *** 25,33 ****
  462.   
  463.   echo "Extracting Makefile (with variable substitutions)"
  464.   cat >Makefile <<!GROK!THIS!
  465. ! # $Header: Makefile.SH,v 3.0 89/10/18 15:06:43 lwall Locked $
  466.   #
  467.   # $Log:    Makefile.SH,v $
  468.   # Revision 3.0  89/10/18  15:06:43  lwall
  469.   # 3.0 baseline
  470.   # 
  471. --- 25,36 ----
  472.   
  473.   echo "Extracting Makefile (with variable substitutions)"
  474.   cat >Makefile <<!GROK!THIS!
  475. ! # $Header: Makefile.SH,v 3.0.1.1 89/10/26 23:00:38 lwall Locked $
  476.   #
  477.   # $Log:    Makefile.SH,v $
  478. + # Revision 3.0.1.1  89/10/26  23:00:38  lwall
  479. + # patch1: Makefile.SH needed some more .h dependecies
  480. + # 
  481.   # Revision 3.0  89/10/18  15:06:43  lwall
  482.   # 3.0 baseline
  483.   # 
  484. ***************
  485. *** 125,246 ****
  486.   
  487.   # Replicating all this junk is yucky, but I don't see a portable way to fix it.
  488.   
  489. ! tperl.o: perl.c perly.h perl.h EXTERN.h regexp.h util.h INTERN.h handy.h \
  490. !     config.h stab.h
  491.       /bin/rm -f tperl.c
  492.       $(SLN) perl.c tperl.c
  493.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tperl.c
  494.       /bin/rm -f tperl.c
  495.   
  496. ! tperly.o: perly.c
  497.       /bin/rm -f tperly.c
  498.       $(SLN) perly.c tperly.c
  499.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tperly.c
  500.       /bin/rm -f tperly.c
  501.   
  502. ! sperly.o: perly.c perl.h handy.h perly.h patchlevel.h
  503.       /bin/rm -f sperly.c
  504.       $(SLN) perly.c sperly.c
  505.       $(CC) -c -DTAINT -DIAMSUID $(CFLAGS) $(LARGE) sperly.c
  506.       /bin/rm -f sperly.c
  507.   
  508. ! tarray.o: array.c
  509.       /bin/rm -f tarray.c
  510.       $(SLN) array.c tarray.c
  511.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tarray.c
  512.       /bin/rm -f tarray.c
  513.   
  514. ! tcmd.o: cmd.c
  515.       /bin/rm -f tcmd.c
  516.       $(SLN) cmd.c tcmd.c
  517.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tcmd.c
  518.       /bin/rm -f tcmd.c
  519.   
  520. ! tcons.o: cons.c
  521.       /bin/rm -f tcons.c
  522.       $(SLN) cons.c tcons.c
  523.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tcons.c
  524.       /bin/rm -f tcons.c
  525.   
  526. ! tconsarg.o: consarg.c
  527.       /bin/rm -f tconsarg.c
  528.       $(SLN) consarg.c tconsarg.c
  529.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tconsarg.c
  530.       /bin/rm -f tconsarg.c
  531.   
  532. ! tdoarg.o: doarg.c
  533.       /bin/rm -f tdoarg.c
  534.       $(SLN) doarg.c tdoarg.c
  535.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tdoarg.c
  536.       /bin/rm -f tdoarg.c
  537.   
  538. ! tdoio.o: doio.c
  539.       /bin/rm -f tdoio.c
  540.       $(SLN) doio.c tdoio.c
  541.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tdoio.c
  542.       /bin/rm -f tdoio.c
  543.   
  544. ! tdolist.o: dolist.c
  545.       /bin/rm -f tdolist.c
  546.       $(SLN) dolist.c tdolist.c
  547.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tdolist.c
  548.       /bin/rm -f tdolist.c
  549.   
  550. ! tdump.o: dump.c
  551.       /bin/rm -f tdump.c
  552.       $(SLN) dump.c tdump.c
  553.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tdump.c
  554.       /bin/rm -f tdump.c
  555.   
  556. ! teval.o: eval.c
  557.       /bin/rm -f teval.c
  558.       $(SLN) eval.c teval.c
  559.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) teval.c
  560.       /bin/rm -f teval.c
  561.   
  562. ! tform.o: form.c
  563.       /bin/rm -f tform.c
  564.       $(SLN) form.c tform.c
  565.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tform.c
  566.       /bin/rm -f tform.c
  567.   
  568. ! thash.o: hash.c
  569.       /bin/rm -f thash.c
  570.       $(SLN) hash.c thash.c
  571.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) thash.c
  572.       /bin/rm -f thash.c
  573.   
  574. ! tregcomp.o: regcomp.c
  575.       /bin/rm -f tregcomp.c
  576.       $(SLN) regcomp.c tregcomp.c
  577.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tregcomp.c
  578.       /bin/rm -f tregcomp.c
  579.   
  580. ! tregexec.o: regexec.c
  581.       /bin/rm -f tregexec.c
  582.       $(SLN) regexec.c tregexec.c
  583.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tregexec.c
  584.       /bin/rm -f tregexec.c
  585.   
  586. ! tstab.o: stab.c
  587.       /bin/rm -f tstab.c
  588.       $(SLN) stab.c tstab.c
  589.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tstab.c
  590.       /bin/rm -f tstab.c
  591.   
  592. ! tstr.o: str.c
  593.       /bin/rm -f tstr.c
  594.       $(SLN) str.c tstr.c
  595.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tstr.c
  596.       /bin/rm -f tstr.c
  597.   
  598. ! ttoke.o: toke.c
  599.       /bin/rm -f ttoke.c
  600.       $(SLN) toke.c ttoke.c
  601.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) ttoke.c
  602.       /bin/rm -f ttoke.c
  603.   
  604. ! tutil.o: util.c
  605.       /bin/rm -f tutil.c
  606.       $(SLN) util.c tutil.c
  607.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tutil.c
  608. --- 128,248 ----
  609.   
  610.   # Replicating all this junk is yucky, but I don't see a portable way to fix it.
  611.   
  612. ! tperl.o: perl.c perly.h $(h)
  613.       /bin/rm -f tperl.c
  614.       $(SLN) perl.c tperl.c
  615.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tperl.c
  616.       /bin/rm -f tperl.c
  617.   
  618. ! tperly.o: perly.c perly.h $(h)
  619.       /bin/rm -f tperly.c
  620.       $(SLN) perly.c tperly.c
  621.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tperly.c
  622.       /bin/rm -f tperly.c
  623.   
  624. ! sperly.o: perly.c perly.h patchlevel.h $(h)
  625.       /bin/rm -f sperly.c
  626.       $(SLN) perly.c sperly.c
  627.       $(CC) -c -DTAINT -DIAMSUID $(CFLAGS) $(LARGE) sperly.c
  628.       /bin/rm -f sperly.c
  629.   
  630. ! tarray.o: array.c $(h)
  631.       /bin/rm -f tarray.c
  632.       $(SLN) array.c tarray.c
  633.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tarray.c
  634.       /bin/rm -f tarray.c
  635.   
  636. ! tcmd.o: cmd.c $(h)
  637.       /bin/rm -f tcmd.c
  638.       $(SLN) cmd.c tcmd.c
  639.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tcmd.c
  640.       /bin/rm -f tcmd.c
  641.   
  642. ! tcons.o: cons.c $(h)
  643.       /bin/rm -f tcons.c
  644.       $(SLN) cons.c tcons.c
  645.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tcons.c
  646.       /bin/rm -f tcons.c
  647.   
  648. ! tconsarg.o: consarg.c $(h)
  649.       /bin/rm -f tconsarg.c
  650.       $(SLN) consarg.c tconsarg.c
  651.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tconsarg.c
  652.       /bin/rm -f tconsarg.c
  653.   
  654. ! tdoarg.o: doarg.c $(h)
  655.       /bin/rm -f tdoarg.c
  656.       $(SLN) doarg.c tdoarg.c
  657.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tdoarg.c
  658.       /bin/rm -f tdoarg.c
  659.   
  660. ! tdoio.o: doio.c $(h)
  661.       /bin/rm -f tdoio.c
  662.       $(SLN) doio.c tdoio.c
  663.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tdoio.c
  664.       /bin/rm -f tdoio.c
  665.   
  666. ! tdolist.o: dolist.c $(h)
  667.       /bin/rm -f tdolist.c
  668.       $(SLN) dolist.c tdolist.c
  669.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tdolist.c
  670.       /bin/rm -f tdolist.c
  671.   
  672. ! tdump.o: dump.c $(h)
  673.       /bin/rm -f tdump.c
  674.       $(SLN) dump.c tdump.c
  675.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tdump.c
  676.       /bin/rm -f tdump.c
  677.   
  678. ! teval.o: eval.c $(h)
  679.       /bin/rm -f teval.c
  680.       $(SLN) eval.c teval.c
  681.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) teval.c
  682.       /bin/rm -f teval.c
  683.   
  684. ! tform.o: form.c $(h)
  685.       /bin/rm -f tform.c
  686.       $(SLN) form.c tform.c
  687.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tform.c
  688.       /bin/rm -f tform.c
  689.   
  690. ! thash.o: hash.c $(h)
  691.       /bin/rm -f thash.c
  692.       $(SLN) hash.c thash.c
  693.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) thash.c
  694.       /bin/rm -f thash.c
  695.   
  696. ! tregcomp.o: regcomp.c $(h)
  697.       /bin/rm -f tregcomp.c
  698.       $(SLN) regcomp.c tregcomp.c
  699.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tregcomp.c
  700.       /bin/rm -f tregcomp.c
  701.   
  702. ! tregexec.o: regexec.c $(h)
  703.       /bin/rm -f tregexec.c
  704.       $(SLN) regexec.c tregexec.c
  705.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tregexec.c
  706.       /bin/rm -f tregexec.c
  707.   
  708. ! tstab.o: stab.c $(h)
  709.       /bin/rm -f tstab.c
  710.       $(SLN) stab.c tstab.c
  711.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tstab.c
  712.       /bin/rm -f tstab.c
  713.   
  714. ! tstr.o: str.c $(h)
  715.       /bin/rm -f tstr.c
  716.       $(SLN) str.c tstr.c
  717.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tstr.c
  718.       /bin/rm -f tstr.c
  719.   
  720. ! ttoke.o: toke.c $(h)
  721.       /bin/rm -f ttoke.c
  722.       $(SLN) toke.c ttoke.c
  723.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) ttoke.c
  724.       /bin/rm -f ttoke.c
  725.   
  726. ! tutil.o: util.c $(h)
  727.       /bin/rm -f tutil.c
  728.       $(SLN) util.c tutil.c
  729.       $(CC) -c -DTAINT $(CFLAGS) $(LARGE) tutil.c
  730. ***************
  731. *** 252,259 ****
  732.       mv y.tab.c perl.c
  733.       mv y.tab.h perly.h
  734.   
  735. ! perl.o: perl.c perly.h perl.h EXTERN.h regexp.h util.h INTERN.h handy.h \
  736. !     config.h arg.h stab.h
  737.       $(CC) -c $(CFLAGS) $(LARGE) perl.c
  738.   
  739.   perl.man: perl.man.1 perl.man.2 perl.man.3 perl.man.4 patchlevel.h perl
  740. --- 254,260 ----
  741.       mv y.tab.c perl.c
  742.       mv y.tab.h perly.h
  743.   
  744. ! perl.o: perl.c perly.h $(h)
  745.       $(CC) -c $(CFLAGS) $(LARGE) perl.c
  746.   
  747.   perl.man: perl.man.1 perl.man.2 perl.man.3 perl.man.4 patchlevel.h perl
  748.  
  749. Index: x2p/Makefile.SH
  750. Prereq: 3.0
  751. *** x2p/Makefile.SH.old    Thu Oct 26 23:31:39 1989
  752. --- x2p/Makefile.SH    Thu Oct 26 23:31:40 1989
  753. ***************
  754. *** 18,26 ****
  755.   esac
  756.   echo "Extracting x2p/Makefile (with variable substitutions)"
  757.   cat >Makefile <<!GROK!THIS!
  758. ! # $Header: Makefile.SH,v 3.0 89/10/18 15:33:52 lwall Locked $
  759.   #
  760.   # $Log:    Makefile.SH,v $
  761.   # Revision 3.0  89/10/18  15:33:52  lwall
  762.   # 3.0 baseline
  763.   # 
  764. --- 18,29 ----
  765.   esac
  766.   echo "Extracting x2p/Makefile (with variable substitutions)"
  767.   cat >Makefile <<!GROK!THIS!
  768. ! # $Header: Makefile.SH,v 3.0.1.1 89/10/26 23:29:11 lwall Locked $
  769.   #
  770.   # $Log:    Makefile.SH,v $
  771. + # Revision 3.0.1.1  89/10/26  23:29:11  lwall
  772. + # patch1: in x2p/Makefile.SH, added dependency on ../config.sh
  773. + # 
  774.   # Revision 3.0  89/10/18  15:33:52  lwall
  775.   # 3.0 baseline
  776.   # 
  777. ***************
  778. *** 143,148 ****
  779. --- 146,155 ----
  780.   
  781.   shlist:
  782.       echo $(sh) | tr ' ' '\012' >.shlist
  783. + 
  784. + config.sh: ../config.sh
  785. +     rm -f config.sh
  786. +     ln ../config.sh .
  787.   
  788.   # AUTOMATICALLY GENERATED MAKE DEPENDENCIES--PUT NOTHING BELOW THIS LINE
  789.   $(obj):
  790.  
  791. Index: README
  792. *** README.old    Thu Oct 26 23:29:35 1989
  793. --- README    Thu Oct 26 23:29:36 1989
  794. ***************
  795. *** 65,72 ****
  796.       This will run the regression tests on the perl you just made.
  797.       If it doesn't say "All tests successful" then something went wrong.
  798.       See the README in the t subdirectory.  Note that you can't run it
  799. !     in background if this disables opening of /dev/tty.  If in doubt, just
  800. !     cd to the t directory and run TEST by hand.
  801.   
  802.   6)  make install
  803.   
  804. --- 65,73 ----
  805.       This will run the regression tests on the perl you just made.
  806.       If it doesn't say "All tests successful" then something went wrong.
  807.       See the README in the t subdirectory.  Note that you can't run it
  808. !     in background if this disables opening of /dev/tty.  If "make test"
  809. !     bombs out, just cd to the t directory and run TEST by hand to see if
  810. !     it makes any difference.
  811.   
  812.   6)  make install
  813.   
  814.  
  815. Index: arg.h
  816. Prereq: 3.0
  817. *** arg.h.old    Thu Oct 26 23:29:41 1989
  818. --- arg.h    Thu Oct 26 23:29:43 1989
  819. ***************
  820. *** 1,4 ****
  821. ! /* $Header: arg.h,v 3.0 89/10/18 15:08:27 lwall Locked $
  822.    *
  823.    *    Copyright (c) 1989, Larry Wall
  824.    *
  825. --- 1,4 ----
  826. ! /* $Header: arg.h,v 3.0.1.1 89/10/26 23:02:35 lwall Locked $
  827.    *
  828.    *    Copyright (c) 1989, Larry Wall
  829.    *
  830. ***************
  831. *** 6,11 ****
  832. --- 6,14 ----
  833.    *    as specified in the README file that comes with the perl 3.0 kit.
  834.    *
  835.    * $Log:    arg.h,v $
  836. +  * Revision 3.0.1.1  89/10/26  23:02:35  lwall
  837. +  * patch1: reverse didn't work
  838. +  * 
  839.    * Revision 3.0  89/10/18  15:08:27  lwall
  840.    * 3.0 baseline
  841.    * 
  842. ***************
  843. *** 805,811 ****
  844.       A(3,3,0),    /* AASSIGN */
  845.       A(0,0,0),    /* SASSIGN */
  846.       A(0,0,0),    /* DUMP */
  847. !     A(0,0,0),    /* REVERSE */
  848.       A(1,0,0),    /* ADDROF */
  849.       A(1,1,1),    /* SOCKET */
  850.       A(1,1,0),    /* BIND */
  851. --- 808,814 ----
  852.       A(3,3,0),    /* AASSIGN */
  853.       A(0,0,0),    /* SASSIGN */
  854.       A(0,0,0),    /* DUMP */
  855. !     A(0,3,0),    /* REVERSE */
  856.       A(1,0,0),    /* ADDROF */
  857.       A(1,1,1),    /* SOCKET */
  858.       A(1,1,0),    /* BIND */
  859.  
  860. Index: cmd.c
  861. Prereq: 3.0
  862. *** cmd.c.old    Thu Oct 26 23:29:50 1989
  863. --- cmd.c    Thu Oct 26 23:29:52 1989
  864. ***************
  865. *** 1,4 ****
  866. ! /* $Header: cmd.c,v 3.0 89/10/18 15:09:02 lwall Locked $
  867.    *
  868.    *    Copyright (c) 1989, Larry Wall
  869.    *
  870. --- 1,4 ----
  871. ! /* $Header: cmd.c,v 3.0.1.1 89/10/26 23:04:21 lwall Locked $
  872.    *
  873.    *    Copyright (c) 1989, Larry Wall
  874.    *
  875. ***************
  876. *** 6,11 ****
  877. --- 6,14 ----
  878.    *    as specified in the README file that comes with the perl 3.0 kit.
  879.    *
  880.    * $Log:    cmd.c,v $
  881. +  * Revision 3.0.1.1  89/10/26  23:04:21  lwall
  882. +  * patch1: heuristically disabled optimization could cause core dump
  883. +  * 
  884.    * Revision 3.0  89/10/18  15:09:02  lwall
  885.    * 3.0 baseline
  886.    * 
  887. ***************
  888. *** 416,423 ****
  889.           }
  890.           }
  891.           if (--cmd->c_short->str_u.str_useful < 0) {
  892. -         str_free(cmd->c_short);
  893. -         cmd->c_short = Nullstr;
  894.           cmdflags &= ~CF_OPTIMIZE;
  895.           cmdflags |= CFT_EVAL;    /* never try this optimization again */
  896.           cmd->c_flags = cmdflags;
  897. --- 419,424 ----
  898.  
  899. Index: cmd.h
  900. Prereq: 3.0
  901. *** cmd.h.old    Thu Oct 26 23:29:55 1989
  902. --- cmd.h    Thu Oct 26 23:29:56 1989
  903. ***************
  904. *** 1,4 ****
  905. ! /* $Header: cmd.h,v 3.0 89/10/18 15:09:15 lwall Locked $
  906.    *
  907.    *    Copyright (c) 1989, Larry Wall
  908.    *
  909. --- 1,4 ----
  910. ! /* $Header: cmd.h,v 3.0.1.1 89/10/26 23:05:43 lwall Locked $
  911.    *
  912.    *    Copyright (c) 1989, Larry Wall
  913.    *
  914. ***************
  915. *** 6,11 ****
  916. --- 6,14 ----
  917.    *    as specified in the README file that comes with the perl 3.0 kit.
  918.    *
  919.    * $Log:    cmd.h,v $
  920. +  * Revision 3.0.1.1  89/10/26  23:05:43  lwall
  921. +  * patch1: unless was broken when run under the debugger
  922. +  * 
  923.    * Revision 3.0  89/10/18  15:09:15  lwall
  924.    * 3.0 baseline
  925.    * 
  926. ***************
  927. *** 53,58 ****
  928. --- 56,62 ----
  929.   #define CF_ONCE 010000    /* we've already pushed the label on the stack */
  930.   #define CF_FLIP 020000    /* on a match do flipflop */
  931.   #define CF_TERM 040000    /* value of this cmd might be returned */
  932. + #define CF_DBSUB 0100000 /* this is an inserted cmd for debugging */
  933.   
  934.   #define CFT_FALSE 0    /* c_expr is always false */
  935.   #define CFT_TRUE 1    /* c_expr is always true */
  936.  
  937. Index: config.h.SH
  938. *** config.h.SH.old    Thu Oct 26 23:29:59 1989
  939. --- config.h.SH    Thu Oct 26 23:30:01 1989
  940. ***************
  941. *** 385,395 ****
  942.    */
  943.   #$d_varargs    VARARGS        /**/
  944.   
  945. ! /* vfork:
  946. !  *    This symbol, if defined, remaps the vfork routine to fork if the
  947. !  *    vfork() routine isn't supported here.
  948.    */
  949. ! #$d_vfork    vfork fork    /**/
  950.   
  951.   /* VOIDSIG:
  952.    *    This symbol is defined if this system declares "void (*signal())()" in
  953. --- 385,394 ----
  954.    */
  955.   #$d_varargs    VARARGS        /**/
  956.   
  957. ! /* VFORK:
  958. !  *    This symbol, if defined, indicates that vfork() exists.
  959.    */
  960. ! #$d_vfork    VFORK    /**/
  961.   
  962.   /* VOIDSIG:
  963.    *    This symbol is defined if this system declares "void (*signal())()" in
  964. ***************
  965. *** 443,448 ****
  966. --- 442,453 ----
  967.    */
  968.   #$i_grp    I_GRP        /**/
  969.   
  970. + /* I_NETINET_IN:
  971. +  *    This symbol, if defined, indicates to the C program that it should
  972. +  *    include netinet/in.h.
  973. +  */
  974. + #$i_niin    I_NETINET_IN        /**/
  975. + 
  976.   /* I_PWD:
  977.    *    This symbol, if defined, indicates to the C program that it should
  978.    *    include pwd.h.
  979. ***************
  980. *** 455,463 ****
  981. --- 460,483 ----
  982.    *    This symbol, if defined, indicates to the C program that struct passwd
  983.    *    contains pw_age.
  984.    */
  985. + /* PWCHANGE:
  986. +  *    This symbol, if defined, indicates to the C program that struct passwd
  987. +  *    contains pw_change.
  988. +  */
  989. + /* PWCLASS:
  990. +  *    This symbol, if defined, indicates to the C program that struct passwd
  991. +  *    contains pw_class.
  992. +  */
  993. + /* PWEXPIRE:
  994. +  *    This symbol, if defined, indicates to the C program that struct passwd
  995. +  *    contains pw_expire.
  996. +  */
  997.   #$i_pwd    I_PWD        /**/
  998.   #$d_pwquota    PWQUOTA        /**/
  999.   #$d_pwage    PWAGE        /**/
  1000. + #$d_pwage    PWCHANGE    /**/
  1001. + #$d_pwage    PWCLASS        /**/
  1002. + #$d_pwage    PWEXPIRE    /**/
  1003.   
  1004.   /* I_SYSDIR:
  1005.    *    This symbol, if defined, indicates to the C program that it should
  1006.  
  1007. Index: cons.c
  1008. Prereq: 3.0
  1009. *** cons.c.old    Thu Oct 26 23:30:06 1989
  1010. --- cons.c    Thu Oct 26 23:30:08 1989
  1011. ***************
  1012. *** 1,4 ****
  1013. ! /* $Header: cons.c,v 3.0 89/10/18 15:10:23 lwall Locked $
  1014.    *
  1015.    *    Copyright (c) 1989, Larry Wall
  1016.    *
  1017. --- 1,4 ----
  1018. ! /* $Header: cons.c,v 3.0.1.1 89/10/26 23:09:01 lwall Locked $
  1019.    *
  1020.    *    Copyright (c) 1989, Larry Wall
  1021.    *
  1022. ***************
  1023. *** 6,11 ****
  1024. --- 6,15 ----
  1025.    *    as specified in the README file that comes with the perl 3.0 kit.
  1026.    *
  1027.    * $Log:    cons.c,v $
  1028. +  * Revision 3.0.1.1  89/10/26  23:09:01  lwall
  1029. +  * patch1: numeric switch optimization was broken
  1030. +  * patch1: unless was broken when run under the debugger
  1031. +  * 
  1032.    * Revision 3.0  89/10/18  15:10:23  lwall
  1033.    * 3.0 baseline
  1034.    * 
  1035. ***************
  1036. *** 285,295 ****
  1037.   
  1038.       Newz(105,loc, max - min + 3, CMD*);
  1039.       loc++;
  1040.       while (count--) {
  1041.       i = (int)str_gnum(cur->c_short);
  1042.       i -= min;
  1043. -     max -= min;
  1044. -     max++;
  1045.       switch(cur->c_slen) {
  1046.       case O_LE:
  1047.           i++;
  1048. --- 289,299 ----
  1049.   
  1050.       Newz(105,loc, max - min + 3, CMD*);
  1051.       loc++;
  1052. +     max -= min;
  1053. +     max++;
  1054.       while (count--) {
  1055.       i = (int)str_gnum(cur->c_short);
  1056.       i -= min;
  1057.       switch(cur->c_slen) {
  1058.       case O_LE:
  1059.           i++;
  1060. ***************
  1061. *** 314,319 ****
  1062. --- 318,324 ----
  1063.       }
  1064.       loc--;
  1065.       min--;
  1066. +     max++;
  1067.       for (i = 0; i <= max; i++)
  1068.       if (!loc[i])
  1069.           loc[i] = cur;
  1070. ***************
  1071. *** 378,384 ****
  1072.       stab2arg(A_WORD,DBstab),
  1073.       make_list(arg),
  1074.       Nullarg);
  1075. !     cmd->c_flags |= CF_COND;
  1076.       cmd->c_line = head->c_line;
  1077.       cmd->c_label = head->c_label;
  1078.       cmd->c_file = filename;
  1079. --- 383,389 ----
  1080.       stab2arg(A_WORD,DBstab),
  1081.       make_list(arg),
  1082.       Nullarg);
  1083. !     cmd->c_flags |= CF_COND|CF_DBSUB;
  1084.       cmd->c_line = head->c_line;
  1085.       cmd->c_label = head->c_label;
  1086.       cmd->c_file = filename;
  1087. ***************
  1088. *** 797,808 ****
  1089.   
  1090.   CMD *
  1091.   invert(cmd)
  1092. ! register CMD *cmd;
  1093.   {
  1094. !     if (cmd->c_head)
  1095. !     cmd->c_head->c_flags ^= CF_INVERT;
  1096. !     else
  1097. !     cmd->c_flags ^= CF_INVERT;
  1098.       return cmd;
  1099.   }
  1100.   
  1101. --- 802,815 ----
  1102.   
  1103.   CMD *
  1104.   invert(cmd)
  1105. ! CMD *cmd;
  1106.   {
  1107. !     register CMD *targ = cmd;
  1108. !     if (targ->c_head)
  1109. !     targ = targ->c_head;
  1110. !     if (targ->c_flags & CF_DBSUB)
  1111. !     targ = targ->c_next;
  1112. !     targ->c_flags ^= CF_INVERT;
  1113.       return cmd;
  1114.   }
  1115.   
  1116.  
  1117. Index: doio.c
  1118. Prereq: 3.0
  1119. *** doio.c.old    Thu Oct 26 23:30:14 1989
  1120. --- doio.c    Thu Oct 26 23:30:16 1989
  1121. ***************
  1122. *** 1,4 ****
  1123. ! /* $Header: doio.c,v 3.0 89/10/18 15:10:54 lwall Locked $
  1124.    *
  1125.    *    Copyright (c) 1989, Larry Wall
  1126.    *
  1127. --- 1,4 ----
  1128. ! /* $Header: doio.c,v 3.0.1.1 89/10/26 23:10:05 lwall Locked $
  1129.    *
  1130.    *    Copyright (c) 1989, Larry Wall
  1131.    *
  1132. ***************
  1133. *** 6,11 ****
  1134. --- 6,14 ----
  1135.    *    as specified in the README file that comes with the perl 3.0 kit.
  1136.    *
  1137.    * $Log:    doio.c,v $
  1138. +  * Revision 3.0.1.1  89/10/26  23:10:05  lwall
  1139. +  * patch1: Configure now checks for BSD shadow passwords
  1140. +  * 
  1141.    * Revision 3.0  89/10/18  15:10:54  lwall
  1142.    * 3.0 baseline
  1143.    * 
  1144. ***************
  1145. *** 1580,1585 ****
  1146. --- 1583,1591 ----
  1147.       (void)astore(ary, ++sp, str = str_static(&str_no));
  1148.       str_numset(str, (double)pwent->pw_gid);
  1149.       (void)astore(ary, ++sp, str = str_static(&str_no));
  1150. + #ifdef PWCHANGE
  1151. +     str_numset(str, (double)pwent->pw_change);
  1152. + #else
  1153.   #ifdef PWQUOTA
  1154.       str_numset(str, (double)pwent->pw_quota);
  1155.   #else
  1156. ***************
  1157. *** 1587,1594 ****
  1158. --- 1593,1605 ----
  1159.       str_set(str, pwent->pw_age);
  1160.   #endif
  1161.   #endif
  1162. + #endif
  1163.       (void)astore(ary, ++sp, str = str_static(&str_no));
  1164. + #ifdef PWCLASS
  1165. +     str_set(str,pwent->pw_class);
  1166. + #else
  1167.       str_set(str, pwent->pw_comment);
  1168. + #endif
  1169.       (void)astore(ary, ++sp, str = str_static(&str_no));
  1170.       str_set(str, pwent->pw_gecos);
  1171.       (void)astore(ary, ++sp, str = str_static(&str_no));
  1172. ***************
  1173. *** 1595,1600 ****
  1174. --- 1606,1615 ----
  1175.       str_set(str, pwent->pw_dir);
  1176.       (void)astore(ary, ++sp, str = str_static(&str_no));
  1177.       str_set(str, pwent->pw_shell);
  1178. + #ifdef PWEXPIRE
  1179. +     (void)astore(ary, ++sp, str = str_static(&str_no));
  1180. +     str_numset(str, (double)pwent->pw_expire);
  1181. + #endif
  1182.       }
  1183.   
  1184.       return sp;
  1185.  
  1186. Index: dolist.c
  1187. Prereq: 3.0
  1188. *** dolist.c.old    Thu Oct 26 23:30:24 1989
  1189. --- dolist.c    Thu Oct 26 23:30:26 1989
  1190. ***************
  1191. *** 1,4 ****
  1192. ! /* $Header: dolist.c,v 3.0 89/10/18 15:11:02 lwall Locked $
  1193.    *
  1194.    *    Copyright (c) 1989, Larry Wall
  1195.    *
  1196. --- 1,4 ----
  1197. ! /* $Header: dolist.c,v 3.0.1.1 89/10/26 23:11:51 lwall Locked $
  1198.    *
  1199.    *    Copyright (c) 1989, Larry Wall
  1200.    *
  1201. ***************
  1202. *** 6,11 ****
  1203. --- 6,15 ----
  1204.    *    as specified in the README file that comes with the perl 3.0 kit.
  1205.    *
  1206.    * $Log:    dolist.c,v $
  1207. +  * Revision 3.0.1.1  89/10/26  23:11:51  lwall
  1208. +  * patch1: split in a subroutine wrongly freed referenced arguments
  1209. +  * patch1: reverse didn't work
  1210. +  * 
  1211.    * Revision 3.0  89/10/18  15:11:02  lwall
  1212.    * 3.0 baseline
  1213.    * 
  1214. ***************
  1215. *** 285,292 ****
  1216.   #endif
  1217.       ary = stab_xarray(spat->spat_repl[1].arg_ptr.arg_stab);
  1218.       if (ary && ((ary->ary_flags & ARF_REAL) || gimme != G_ARRAY)) {
  1219. -     ary->ary_flags |= ARF_REAL;
  1220.       realarray = 1;
  1221.       ary->ary_fill = -1;
  1222.       sp = -1;    /* temporarily switch stacks */
  1223.       }
  1224. --- 289,300 ----
  1225.   #endif
  1226.       ary = stab_xarray(spat->spat_repl[1].arg_ptr.arg_stab);
  1227.       if (ary && ((ary->ary_flags & ARF_REAL) || gimme != G_ARRAY)) {
  1228.       realarray = 1;
  1229. +     if (!(ary->ary_flags & ARF_REAL)) {
  1230. +         ary->ary_flags |= ARF_REAL;
  1231. +         for (i = ary->ary_fill; i >= 0; i--)
  1232. +         ary->ary_array[i] = Nullstr;    /* don't free mere refs */
  1233. +     }
  1234.       ary->ary_fill = -1;
  1235.       sp = -1;    /* temporarily switch stacks */
  1236.       }
  1237. ***************
  1238. *** 754,761 ****
  1239.       }
  1240.       while (i-- > 0) {
  1241.       *up++ = *down;
  1242. !     *down-- = *up;
  1243.       }
  1244.       return arglast[2] - 1;
  1245.   }
  1246.   
  1247. --- 762,772 ----
  1248.       }
  1249.       while (i-- > 0) {
  1250.       *up++ = *down;
  1251. !     if (i-- > 0)
  1252. !         *down-- = *up;
  1253.       }
  1254. +     i = arglast[2] - arglast[1];
  1255. +     Copy(down+1,up,i/2,STR*);
  1256.       return arglast[2] - 1;
  1257.   }
  1258.   
  1259.  
  1260. Index: evalargs.xc
  1261. Prereq: 3.0
  1262. *** evalargs.xc.old    Thu Oct 26 23:30:31 1989
  1263. --- evalargs.xc    Thu Oct 26 23:30:32 1989
  1264. ***************
  1265. *** 2,10 ****
  1266.    * kit sizes from getting too big.
  1267.    */
  1268.   
  1269. ! /* $Header: evalargs.xc,v 3.0 89/10/18 15:17:16 lwall Locked $
  1270.    *
  1271.    * $Log:    evalargs.xc,v $
  1272.    * Revision 3.0  89/10/18  15:17:16  lwall
  1273.    * 3.0 baseline
  1274.    * 
  1275. --- 2,13 ----
  1276.    * kit sizes from getting too big.
  1277.    */
  1278.   
  1279. ! /* $Header: evalargs.xc,v 3.0.1.1 89/10/26 23:12:55 lwall Locked $
  1280.    *
  1281.    * $Log:    evalargs.xc,v $
  1282. +  * Revision 3.0.1.1  89/10/26  23:12:55  lwall
  1283. +  * patch1: glob didn't free a temporary string
  1284. +  * 
  1285.    * Revision 3.0  89/10/18  15:17:16  lwall
  1286.    * 3.0 baseline
  1287.    * 
  1288. ***************
  1289. *** 275,280 ****
  1290. --- 278,284 ----
  1291.               }
  1292.               (void)do_open(last_in_stab,tmpstr->str_ptr);
  1293.               fp = stab_io(last_in_stab)->ifp;
  1294. +             str_free(tmpstr);
  1295.               }
  1296.           }
  1297.           }
  1298.  
  1299. Index: malloc.c
  1300. Prereq: 3.0
  1301. *** malloc.c.old    Thu Oct 26 23:30:42 1989
  1302. --- malloc.c    Thu Oct 26 23:30:43 1989
  1303. ***************
  1304. *** 1,6 ****
  1305. ! /* $Header: malloc.c,v 3.0 89/10/18 15:20:39 lwall Locked $
  1306.    *
  1307.    * $Log:    malloc.c,v $
  1308.    * Revision 3.0  89/10/18  15:20:39  lwall
  1309.    * 3.0 baseline
  1310.    * 
  1311. --- 1,10 ----
  1312. ! /* $Header: malloc.c,v 3.0.1.1 89/10/26 23:15:05 lwall Locked $
  1313.    *
  1314.    * $Log:    malloc.c,v $
  1315. +  * Revision 3.0.1.1  89/10/26  23:15:05  lwall
  1316. +  * patch1: some declarations were missing from malloc.c
  1317. +  * patch1: sparc machines had alignment problems in malloc.c
  1318. +  * 
  1319.    * Revision 3.0  89/10/18  15:20:39  lwall
  1320.    * 3.0 baseline
  1321.    * 
  1322. ***************
  1323. *** 27,32 ****
  1324. --- 31,38 ----
  1325.   #include "EXTERN.h"
  1326.   #include "perl.h"
  1327.   
  1328. + static findbucket(), morecore();
  1329. + 
  1330.   /* I don't much care whether these are defined in sys/types.h--LAW */
  1331.   
  1332.   #define u_char unsigned char
  1333. ***************
  1334. *** 44,50 ****
  1335.    */
  1336.   union    overhead {
  1337.       union    overhead *ov_next;    /* when free */
  1338. ! #ifdef mips
  1339.       double  strut;            /* alignment problems */
  1340.   #endif
  1341.       struct {
  1342. --- 50,56 ----
  1343.    */
  1344.   union    overhead {
  1345.       union    overhead *ov_next;    /* when free */
  1346. ! #if defined (mips) || defined (sparc)
  1347.       double  strut;            /* alignment problems */
  1348.   #endif
  1349.       struct {
  1350.  
  1351. Index: t/op.sort
  1352. Prereq: 3.0
  1353. *** t/op.sort.old    Thu Oct 26 23:31:20 1989
  1354. --- t/op.sort    Thu Oct 26 23:31:21 1989
  1355. ***************
  1356. *** 1,8 ****
  1357.   #!./perl
  1358.   
  1359. ! # $Header: op.sort,v 3.0 89/10/18 15:31:19 lwall Locked $
  1360.   
  1361. ! print "1..3\n";
  1362.   
  1363.   sub reverse { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
  1364.   
  1365. --- 1,8 ----
  1366.   #!./perl
  1367.   
  1368. ! # $Header: op.sort,v 3.0.1.1 89/10/26 23:25:37 lwall Locked $
  1369.   
  1370. ! print "1..8\n";
  1371.   
  1372.   sub reverse { $a lt $b ? 1 : $a gt $b ? -1 : 0; }
  1373.   
  1374. ***************
  1375. *** 17,19 ****
  1376. --- 17,39 ----
  1377.   
  1378.   $x = join('', sort @george, 'to', @harry);
  1379.   print ($x eq 'AbelAxedCainPunishedcatchaseddoggonetoxyz'?"ok 3\n":"not ok 3\n");
  1380. + 
  1381. + @a = ();
  1382. + @b = reverse @a;
  1383. + print ("@b" eq "" ? "ok 4\n" : "not ok 4 (@b)\n");
  1384. + 
  1385. + @a = (1);
  1386. + @b = reverse @a;
  1387. + print ("@b" eq "1" ? "ok 5\n" : "not ok 5 (@b)\n");
  1388. + 
  1389. + @a = (1,2);
  1390. + @b = reverse @a;
  1391. + print ("@b" eq "2 1" ? "ok 6\n" : "not ok 6 (@b)\n");
  1392. + 
  1393. + @a = (1,2,3);
  1394. + @b = reverse @a;
  1395. + print ("@b" eq "3 2 1" ? "ok 7\n" : "not ok 7 (@b)\n");
  1396. + 
  1397. + @a = (1,2,3,4);
  1398. + @b = reverse @a;
  1399. + print ("@b" eq "4 3 2 1" ? "ok 8\n" : "not ok 8 (@b)\n");
  1400.  
  1401. Index: perl.h
  1402. Prereq: 3.0
  1403. *** perl.h.old    Thu Oct 26 23:30:47 1989
  1404. --- perl.h    Thu Oct 26 23:30:48 1989
  1405. ***************
  1406. *** 1,4 ****
  1407. ! /* $Header: perl.h,v 3.0 89/10/18 15:21:21 lwall Locked $
  1408.    *
  1409.    *    Copyright (c) 1989, Larry Wall
  1410.    *
  1411. --- 1,4 ----
  1412. ! /* $Header: perl.h,v 3.0.1.1 89/10/26 23:17:08 lwall Locked $
  1413.    *
  1414.    *    Copyright (c) 1989, Larry Wall
  1415.    *
  1416. ***************
  1417. *** 6,11 ****
  1418. --- 6,16 ----
  1419.    *    as specified in the README file that comes with the perl 3.0 kit.
  1420.    *
  1421.    * $Log:    perl.h,v $
  1422. +  * Revision 3.0.1.1  89/10/26  23:17:08  lwall
  1423. +  * patch1: vfork now conditionally defined based on VFORK
  1424. +  * patch1: DEC risc machines have a buggy memcmp
  1425. +  * patch1: perl.h now includes <netinet/in.h> if it exists
  1426. +  * 
  1427.    * Revision 3.0  89/10/18  15:21:21  lwall
  1428.    * 3.0 baseline
  1429.    * 
  1430. ***************
  1431. *** 24,29 ****
  1432. --- 29,42 ----
  1433.   #   endif
  1434.   #endif
  1435.   
  1436. + #ifndef VFORK
  1437. + #   define vfork fork
  1438. + #endif
  1439. + 
  1440. + #if defined(MEMCMP) && defined(mips) && BYTEORDER == 01234
  1441. + #undef MEMCMP
  1442. + #endif
  1443. + 
  1444.   #ifdef MEMCPY
  1445.   extern char *memcpy(), *memset();
  1446.   #define bcopy(s1,s2,l) memcpy(s2,s1,l)
  1447. ***************
  1448. *** 37,42 ****
  1449. --- 50,59 ----
  1450.   #include <ctype.h>
  1451.   #include <setjmp.h>
  1452.   #include <sys/param.h>    /* if this needs types.h we're still wrong */
  1453. + 
  1454. + #ifdef I_NETINET_IN
  1455. + #include <netinet/in.h>
  1456. + #endif
  1457.   
  1458.   #ifndef _TYPES_        /* If types.h defines this it's easy. */
  1459.   #ifndef major        /* Does everyone's types.h define this? */
  1460.  
  1461. Index: perl.man.4
  1462. Prereq: 3.0
  1463. *** perl.man.4.old    Thu Oct 26 23:30:54 1989
  1464. --- perl.man.4    Thu Oct 26 23:30:56 1989
  1465. ***************
  1466. *** 1,7 ****
  1467.   ''' Beginning of part 4
  1468. ! ''' $Header: perl.man.4,v 3.0 89/10/18 15:21:55 lwall Locked $
  1469.   '''
  1470.   ''' $Log:    perl.man.4,v $
  1471.   ''' Revision 3.0  89/10/18  15:21:55  lwall
  1472.   ''' 3.0 baseline
  1473.   ''' 
  1474. --- 1,10 ----
  1475.   ''' Beginning of part 4
  1476. ! ''' $Header: perl.man.4,v 3.0.1.1 89/10/26 23:18:43 lwall Locked $
  1477.   '''
  1478.   ''' $Log:    perl.man.4,v $
  1479. + ''' Revision 3.0.1.1  89/10/26  23:18:43  lwall
  1480. + ''' patch1: documented the desirability of unnecessary parentheses
  1481. + ''' 
  1482.   ''' Revision 3.0  89/10/18  15:21:55  lwall
  1483.   ''' 3.0 baseline
  1484.   ''' 
  1485. ***************
  1486. *** 992,997 ****
  1487. --- 995,1012 ----
  1488.   The defaults are there for lazy systems programmers writing one-shot
  1489.   programs.
  1490.   If you want your program to be readable, consider supplying the argument.
  1491. + .Sp
  1492. + Along the same lines, just because you
  1493. + .I can
  1494. + omit parentheses in many places doesn't mean that you ought to:
  1495. + .nf
  1496. + 
  1497. +     return print reverse sort num values array;
  1498. +     return print(reverse(sort num (values(%array))));
  1499. + 
  1500. + .fi
  1501. + When in doubt, parenthesize.
  1502. + At the very least it will let some poor schmuck bounce on the % key in vi.
  1503.   .Ip 2. 4 4
  1504.   Don't go through silly contortions to exit a loop at the top or the
  1505.   bottom, when
  1506. ***************
  1507. *** 1017,1022 ****
  1508. --- 1032,1039 ----
  1509.   .Ip 6. 4 4
  1510.   For portability, when using features that may not be implemented on every
  1511.   machine, test the construct in an eval to see if it fails.
  1512. + If you know what version or patchlevel a particular feature was implemented,
  1513. + you can test $] to see if it will be there.
  1514.   .Ip 4. 4 4
  1515.   Choose mnemonic indentifiers.
  1516.   .Ip 5. 4 4
  1517.  
  1518. Index: perl.y
  1519. Prereq: 3.0
  1520. *** perl.y.old    Thu Oct 26 23:31:02 1989
  1521. --- perl.y    Thu Oct 26 23:31:03 1989
  1522. ***************
  1523. *** 1,4 ****
  1524. ! /* $Header: perl.y,v 3.0 89/10/18 15:22:04 lwall Locked $
  1525.    *
  1526.    *    Copyright (c) 1989, Larry Wall
  1527.    *
  1528. --- 1,4 ----
  1529. ! /* $Header: perl.y,v 3.0.1.1 89/10/26 23:20:41 lwall Locked $
  1530.    *
  1531.    *    Copyright (c) 1989, Larry Wall
  1532.    *
  1533. ***************
  1534. *** 6,11 ****
  1535. --- 6,15 ----
  1536.    *    as specified in the README file that comes with the perl 3.0 kit.
  1537.    *
  1538.    * $Log:    perl.y,v $
  1539. +  * Revision 3.0.1.1  89/10/26  23:20:41  lwall
  1540. +  * patch1: grandfathered "format stdout"
  1541. +  * patch1: operator(); is now normally equivalent to operator;
  1542. +  * 
  1543.    * Revision 3.0  89/10/18  15:22:04  lwall
  1544.    * 3.0 baseline
  1545.    * 
  1546. ***************
  1547. *** 276,282 ****
  1548.       ;
  1549.   
  1550.   format    :    FORMAT WORD '=' FORMLIST
  1551. !             { stab_form(stabent($2,TRUE)) = $4; Safefree($2);}
  1552.       |    FORMAT '=' FORMLIST
  1553.               { stab_form(stabent("STDOUT",TRUE)) = $3; }
  1554.       ;
  1555. --- 280,292 ----
  1556.       ;
  1557.   
  1558.   format    :    FORMAT WORD '=' FORMLIST
  1559. !             { if (strEQ($2,"stdout"))
  1560. !                 stab_form(stabent("STDOUT",TRUE)) = $4;
  1561. !               else if (strEQ($2,"stderr"))
  1562. !                 stab_form(stabent("STDERR",TRUE)) = $4;
  1563. !               else
  1564. !                 stab_form(stabent($2,TRUE)) = $4;
  1565. !               Safefree($2);}
  1566.       |    FORMAT '=' FORMLIST
  1567.               { stab_form(stabent("STDOUT",TRUE)) = $3; }
  1568.       ;
  1569. ***************
  1570. *** 632,637 ****
  1571. --- 642,651 ----
  1572.                   Nullarg, Nullarg)); }
  1573.       |    FUNC0
  1574.               { $$ = make_op($1, 0, Nullarg, Nullarg, Nullarg); }
  1575. +     |    FUNC1 '(' ')'
  1576. +             { $$ = make_op($1, 1, Nullarg, Nullarg, Nullarg);
  1577. +               if ($1 == O_EVAL || $1 == O_RESET)
  1578. +                 $$ = fixeval($$); }
  1579.       |    FUNC1 '(' expr ')'
  1580.               { $$ = make_op($1, 1, $3, Nullarg, Nullarg);
  1581.                 if ($1 == O_EVAL || $1 == O_RESET)
  1582.  
  1583. Index: lib/perldb.pl
  1584. Prereq: 3.0
  1585. *** lib/perldb.pl.old    Thu Oct 26 23:30:36 1989
  1586. --- lib/perldb.pl    Thu Oct 26 23:30:37 1989
  1587. ***************
  1588. *** 1,6 ****
  1589.   package DB;
  1590.   
  1591. ! $header = '$Header: perldb.pl,v 3.0 89/10/18 15:19:46 lwall Locked $';
  1592.   #
  1593.   # This file is automatically included if you do perl -d.
  1594.   # It's probably not useful to include this yourself.
  1595. --- 1,6 ----
  1596.   package DB;
  1597.   
  1598. ! $header = '$Header: perldb.pl,v 3.0.1.1 89/10/26 23:14:02 lwall Locked $';
  1599.   #
  1600.   # This file is automatically included if you do perl -d.
  1601.   # It's probably not useful to include this yourself.
  1602. ***************
  1603. *** 10,15 ****
  1604. --- 10,18 ----
  1605.   # have a breakpoint.  It also inserts a do 'perldb.pl' before the first line.
  1606.   #
  1607.   # $Log:    perldb.pl,v $
  1608. + # Revision 3.0.1.1  89/10/26  23:14:02  lwall
  1609. + # patch1: RCS expanded an unintended $Header in lib/perldb.pl
  1610. + # 
  1611.   # Revision 3.0  89/10/18  15:19:46  lwall
  1612.   # 3.0 baseline
  1613.   # 
  1614. ***************
  1615. *** 25,31 ****
  1616.   select(STDOUT);
  1617.   $| = 1;                # for real STDOUT
  1618.   
  1619. ! $header =~ s/\$Header: perldb.pl,v 3.0 89/10/18 15:19:46 lwall Locked $/$1$2/;
  1620.   print OUT "\nLoading DB from $header\n\n";
  1621.   
  1622.   sub DB {
  1623. --- 28,34 ----
  1624.   select(STDOUT);
  1625.   $| = 1;                # for real STDOUT
  1626.   
  1627. ! $header =~ s/.Header: ([^,]+),v(\s+\S+\s+\S+).*$/$1$2/;
  1628.   print OUT "\nLoading DB from $header\n\n";
  1629.   
  1630.   sub DB {
  1631.  
  1632. Index: str.c
  1633. Prereq: 3.0
  1634. *** str.c.old    Thu Oct 26 23:31:09 1989
  1635. --- str.c    Thu Oct 26 23:31:10 1989
  1636. ***************
  1637. *** 1,4 ****
  1638. ! /* $Header: str.c,v 3.0 89/10/18 15:23:38 lwall Locked $
  1639.    *
  1640.    *    Copyright (c) 1989, Larry Wall
  1641.    *
  1642. --- 1,4 ----
  1643. ! /* $Header: str.c,v 3.0.1.1 89/10/26 23:23:41 lwall Locked $
  1644.    *
  1645.    *    Copyright (c) 1989, Larry Wall
  1646.    *
  1647. ***************
  1648. *** 6,11 ****
  1649. --- 6,15 ----
  1650.    *    as specified in the README file that comes with the perl 3.0 kit.
  1651.    *
  1652.    * $Log:    str.c,v $
  1653. +  * Revision 3.0.1.1  89/10/26  23:23:41  lwall
  1654. +  * patch1: string ordering tests were wrong
  1655. +  * patch1: $/ now works even when STDSTDIO undefined
  1656. +  * 
  1657.    * Revision 3.0  89/10/18  15:23:38  lwall
  1658.    * 3.0 baseline
  1659.    * 
  1660. ***************
  1661. *** 604,610 ****
  1662.       if (retval = memcmp(str1->str_ptr, str2->str_ptr, str1->str_cur))
  1663.           return retval;
  1664.       else
  1665. !         return 1;
  1666.       }
  1667.       else if (retval = memcmp(str1->str_ptr, str2->str_ptr, str2->str_cur))
  1668.       return retval;
  1669. --- 608,614 ----
  1670.       if (retval = memcmp(str1->str_ptr, str2->str_ptr, str1->str_cur))
  1671.           return retval;
  1672.       else
  1673. !         return -1;
  1674.       }
  1675.       else if (retval = memcmp(str1->str_ptr, str2->str_ptr, str2->str_cur))
  1676.       return retval;
  1677. ***************
  1678. *** 611,617 ****
  1679.       else if (str1->str_cur == str2->str_cur)
  1680.       return 0;
  1681.       else
  1682. !     return -1;
  1683.   }
  1684.   
  1685.   char *
  1686. --- 615,621 ----
  1687.       else if (str1->str_cur == str2->str_cur)
  1688.       return 0;
  1689.       else
  1690. !     return 1;
  1691.   }
  1692.   
  1693.   char *
  1694. ***************
  1695. *** 620,627 ****
  1696.   register FILE *fp;
  1697.   int append;
  1698.   {
  1699. - #ifdef STDSTDIO        /* Here is some breathtakingly efficient cheating */
  1700. - 
  1701.       register char *bp;        /* we're going to steal some values */
  1702.       register int cnt;        /*  from the stdio struct and put EVERYTHING */
  1703.       register STDCHAR *ptr;    /*   in the innermost loop into registers */
  1704. --- 624,629 ----
  1705. ***************
  1706. *** 636,641 ****
  1707. --- 638,645 ----
  1708.       newline = '\n';
  1709.       oldbp = Nullch;            /* remember last \n position (none) */
  1710.       }
  1711. + #ifdef STDSTDIO        /* Here is some breathtakingly efficient cheating */
  1712. + 
  1713.       cnt = fp->_cnt;            /* get count into register */
  1714.       str->str_nok = 0;            /* invalidate number */
  1715.       str->str_pok = 1;            /* validate pointer */
  1716. ***************
  1717. *** 686,701 ****
  1718.   
  1719.   #else /* !STDSTDIO */    /* The big, slow, and stupid way */
  1720.   
  1721. !     static char buf[8192];
  1722.   
  1723. !     if (fgets(buf, sizeof buf, fp) != Nullch) {
  1724.       if (append)
  1725.           str_cat(str, buf);
  1726.       else
  1727.           str_set(str, buf);
  1728.       }
  1729. -     else
  1730. -     str_set(str, No);
  1731.   
  1732.   #endif /* STDSTDIO */
  1733.   
  1734. --- 690,717 ----
  1735.   
  1736.   #else /* !STDSTDIO */    /* The big, slow, and stupid way */
  1737.   
  1738. !     {
  1739. !     static char buf[8192];
  1740. !     char * bpe = buf + sizeof(buf) - 3;
  1741.   
  1742. ! screamer:
  1743. !     bp = buf;
  1744. ! filler:
  1745. !     while ((i = getc(fp)) != EOF && (*bp++ = i) != newline && bp < bpe);
  1746. !     if (i == newline && get_paragraph &&
  1747. !         (i = getc(fp)) != EOF && (*bp++ = i) != newline && bp < bpe)
  1748. !         goto filler;
  1749. ! 
  1750. !     *bp = '\0';
  1751.       if (append)
  1752.           str_cat(str, buf);
  1753.       else
  1754.           str_set(str, buf);
  1755. +     if (i != newline && i != EOF) {
  1756. +         append = -1;
  1757. +         goto screamer;
  1758. +     }
  1759.       }
  1760.   
  1761.   #endif /* STDSTDIO */
  1762.   
  1763.  
  1764. Index: str.h
  1765. Prereq: 3.0
  1766. *** str.h.old    Thu Oct 26 23:31:15 1989
  1767. --- str.h    Thu Oct 26 23:31:16 1989
  1768. ***************
  1769. *** 1,4 ****
  1770. ! /* $Header: str.h,v 3.0 89/10/18 15:23:49 lwall Locked $
  1771.    *
  1772.    *    Copyright (c) 1989, Larry Wall
  1773.    *
  1774. --- 1,4 ----
  1775. ! /* $Header: str.h,v 3.0.1.1 89/10/26 23:24:42 lwall Locked $
  1776.    *
  1777.    *    Copyright (c) 1989, Larry Wall
  1778.    *
  1779. ***************
  1780. *** 6,11 ****
  1781. --- 6,14 ----
  1782.    *    as specified in the README file that comes with the perl 3.0 kit.
  1783.    *
  1784.    * $Log:    str.h,v $
  1785. +  * Revision 3.0.1.1  89/10/26  23:24:42  lwall
  1786. +  * patch1: rearranged some structures to align doubles better on Gould
  1787. +  * 
  1788.    * Revision 3.0  89/10/18  15:23:49  lwall
  1789.    * 3.0 baseline
  1790.    * 
  1791. ***************
  1792. *** 13,18 ****
  1793. --- 16,22 ----
  1794.   
  1795.   struct string {
  1796.       char *    str_ptr;    /* pointer to malloced string */
  1797. +     int        str_len;    /* allocated size */
  1798.       union {
  1799.       double    str_nval;    /* numeric value, if any */
  1800.       STAB    *str_stab;    /* magic stab for magic "key" string */
  1801. ***************
  1802. *** 21,27 ****
  1803.       HASH    *str_hash;    /* string represents an assoc array (stab?) */
  1804.       ARRAY    *str_array;    /* string represents an array */
  1805.       } str_u;
  1806. -     int        str_len;    /* allocated size */
  1807.       int        str_cur;    /* length of str_ptr as a C string */
  1808.       STR *str_magic;        /* while free, link to next free str */
  1809.                   /* while in use, ptr to "key" for magic items */
  1810. --- 25,30 ----
  1811. ***************
  1812. *** 37,42 ****
  1813. --- 40,46 ----
  1814.   
  1815.   struct stab {    /* should be identical, except for str_ptr */
  1816.       STBP *    str_ptr;    /* pointer to malloced string */
  1817. +     int        str_len;    /* allocated size */
  1818.       union {
  1819.       double    str_nval;    /* numeric value, if any */
  1820.       STAB    *str_stab;    /* magic stab for magic "key" string */
  1821. ***************
  1822. *** 45,51 ****
  1823.       HASH    *str_hash;    /* string represents an assoc array (stab?) */
  1824.       ARRAY    *str_array;    /* string represents an array */
  1825.       } str_u;
  1826. -     int        str_len;    /* allocated size */
  1827.       int        str_cur;    /* length of str_ptr as a C string */
  1828.       STR *str_magic;        /* while free, link to next free str */
  1829.                   /* while in use, ptr to "key" for magic items */
  1830. --- 49,54 ----
  1831.  
  1832. Index: toke.c
  1833. Prereq: 3.0
  1834. *** toke.c.old    Thu Oct 26 23:31:26 1989
  1835. --- toke.c    Thu Oct 26 23:31:28 1989
  1836. ***************
  1837. *** 1,4 ****
  1838. ! /* $Header: toke.c,v 3.0 89/10/18 15:32:33 lwall Locked $
  1839.    *
  1840.    *    Copyright (c) 1989, Larry Wall
  1841.    *
  1842. --- 1,4 ----
  1843. ! /* $Header: toke.c,v 3.0.1.1 89/10/26 23:26:21 lwall Locked $
  1844.    *
  1845.    *    Copyright (c) 1989, Larry Wall
  1846.    *
  1847. ***************
  1848. *** 6,11 ****
  1849. --- 6,14 ----
  1850.    *    as specified in the README file that comes with the perl 3.0 kit.
  1851.    *
  1852.    * $Log:    toke.c,v $
  1853. +  * Revision 3.0.1.1  89/10/26  23:26:21  lwall
  1854. +  * patch1: disambiguated word after "sort" better
  1855. +  * 
  1856.    * Revision 3.0  89/10/18  15:32:33  lwall
  1857.    * 3.0 baseline
  1858.    * 
  1859. ***************
  1860. *** 865,871 ****
  1861.               fatal("sort is now a reserved word");
  1862.           if (isascii(*s) && (isalpha(*s) || *s == '_')) {
  1863.               for (d = s; isalpha(*d) || isdigit(*d) || *d == '_'; d++) ;
  1864. !             if (d >= bufend || isspace(*d))
  1865.               *(--s) = '\\';    /* force next ident to WORD */
  1866.           }
  1867.           LOP(O_SORT);
  1868. --- 868,882 ----
  1869.               fatal("sort is now a reserved word");
  1870.           if (isascii(*s) && (isalpha(*s) || *s == '_')) {
  1871.               for (d = s; isalpha(*d) || isdigit(*d) || *d == '_'; d++) ;
  1872. !             strncpy(tokenbuf,s,d-s);
  1873. !             if (strNE(tokenbuf,"keys") &&
  1874. !             strNE(tokenbuf,"values") &&
  1875. !             strNE(tokenbuf,"split") &&
  1876. !             strNE(tokenbuf,"grep") &&
  1877. !             strNE(tokenbuf,"readdir") &&
  1878. !             strNE(tokenbuf,"unpack") &&
  1879. !             strNE(tokenbuf,"do") &&
  1880. !             (d >= bufend || isspace(*d)) )
  1881.               *(--s) = '\\';    /* force next ident to WORD */
  1882.           }
  1883.           LOP(O_SORT);
  1884.  
  1885. Index: util.h
  1886. Prereq: 3.0
  1887. *** util.h.old    Thu Oct 26 23:31:34 1989
  1888. --- util.h    Thu Oct 26 23:31:35 1989
  1889. ***************
  1890. *** 1,4 ****
  1891. ! /* $Header: util.h,v 3.0 89/10/18 15:33:18 lwall Locked $
  1892.    *
  1893.    *    Copyright (c) 1989, Larry Wall
  1894.    *
  1895. --- 1,4 ----
  1896. ! /* $Header: util.h,v 3.0.1.1 89/10/26 23:28:25 lwall Locked $
  1897.    *
  1898.    *    Copyright (c) 1989, Larry Wall
  1899.    *
  1900. ***************
  1901. *** 6,11 ****
  1902. --- 6,14 ----
  1903.    *    as specified in the README file that comes with the perl 3.0 kit.
  1904.    *
  1905.    * $Log:    util.h,v $
  1906. +  * Revision 3.0.1.1  89/10/26  23:28:25  lwall
  1907. +  * patch1: declared bcopy if necessary
  1908. +  * 
  1909.    * Revision 3.0  89/10/18  15:33:18  lwall
  1910.    * 3.0 baseline
  1911.    * 
  1912. ***************
  1913. *** 30,32 ****
  1914. --- 33,40 ----
  1915.   char    *nsavestr();
  1916.   FILE    *mypopen();
  1917.   int    mypclose();
  1918. + #ifndef BCOPY
  1919. + #ifndef MEMCPY
  1920. + char    *bcopy();
  1921. + #endif
  1922. + #endif
  1923.  
  1924.