home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume30 / perl / patch26 < prev    next >
Encoding:
Text File  |  1992-06-11  |  49.3 KB  |  1,972 lines
  1. Newsgroups: comp.sources.misc
  2. From: lwall@netlabs.com (Larry Wall)
  3. Subject:  v30i037:  perl - The perl programming language, Patch26
  4. Message-ID: <1992Jun11.180523.527@sparky.imd.sterling.com>
  5. X-Md4-Signature: 18c4bf1a1e924dd0670a7367ed2631c7
  6. Date: Thu, 11 Jun 1992 18:05:23 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: lwall@netlabs.com (Larry Wall)
  10. Posting-number: Volume 30, Issue 37
  11. Archive-name: perl/patch26
  12. Environment: UNIX, MS-DOS, OS2
  13. Patch-To: perl: Volume 18, Issue 19-54
  14.  
  15. System: perl version 4.0
  16. Patch #: 26
  17. Priority: highish
  18. Subject: patch #20, continued
  19.  
  20. Description:
  21.     See patch #20.
  22.  
  23. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your perl source
  24.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  25.     If you don't have the patch program, apply the following by hand,
  26.     or get patch (version 2.0, latest patchlevel).
  27.  
  28.     After patching:
  29.         *** DO NOTHING--INSTALL ALL PATCHES UP THROUGH #33 FIRST ***
  30.  
  31.     If patch indicates that patchlevel is the wrong version, you may need
  32.     to apply one or more previous patches, or the patch may already
  33.     have been applied.  See the patchlevel.h file to find out what has or
  34.     has not been applied.  In any event, don't continue with the patch.
  35.  
  36.     If you are missing previous patches they can be obtained from me:
  37.  
  38.     Larry Wall
  39.     lwall@netlabs.com
  40.  
  41.     If you send a mail message of the following form it will greatly speed
  42.     processing:
  43.  
  44.     Subject: Command
  45.     @SH mailpatch PATH perl 4.0 LIST
  46.            ^ note the c
  47.  
  48.     where PATH is a return path FROM ME TO YOU either in Internet notation,
  49.     or in bang notation from some well-known host, and LIST is the number
  50.     of one or more patches you need, separated by spaces, commas, and/or
  51.     hyphens.  Saying 35- says everything from 35 to the end.
  52.  
  53.  
  54. Index: patchlevel.h
  55. Prereq: 25
  56. 1c1
  57. < #define PATCHLEVEL 25
  58. ---
  59. > #define PATCHLEVEL 26
  60.  
  61. Index: doio.c
  62. *** doio.c.old    Mon Jun  8 17:46:42 1992
  63. --- doio.c    Mon Jun  8 17:46:44 1992
  64. ***************
  65. *** 1,4 ****
  66. ! /* $RCSfile: doio.c,v $$Revision: 4.0.1.4 $$Date: 91/11/05 16:51:43 $
  67.    *
  68.    *    Copyright (c) 1991, Larry Wall
  69.    *
  70. --- 1,4 ----
  71. ! /* $RCSfile: doio.c,v $$Revision: 4.0.1.5 $$Date: 92/06/08 13:00:21 $
  72.    *
  73.    *    Copyright (c) 1991, Larry Wall
  74.    *
  75. ***************
  76. *** 6,11 ****
  77. --- 6,21 ----
  78.    *    License or the Artistic License, as specified in the README file.
  79.    *
  80.    * $Log:    doio.c,v $
  81. +  * Revision 4.0.1.5  92/06/08  13:00:21  lwall
  82. +  * patch20: some machines don't define ENOTSOCK in errno.h
  83. +  * patch20: new warnings for failed use of stat operators on filenames with \n
  84. +  * patch20: wait failed when STDOUT or STDERR reopened to a pipe
  85. +  * patch20: end of file latch not reset on reopen of STDIN
  86. +  * patch20: seek(HANDLE, 0, 1) went to eof because of ancient Ultrix workaround
  87. +  * patch20: fixed memory leak on system() for vfork() machines
  88. +  * patch20: get*by* routines now return something useful in a scalar context
  89. +  * patch20: h_errno now accessible via $?
  90. +  * 
  91.    * Revision 4.0.1.4  91/11/05  16:51:43  lwall
  92.    * patch11: prepared for ctype implementations that don't define isascii()
  93.    * patch11: perl mistook some streams for sockets because they return mode 0 too
  94. ***************
  95. *** 41,47 ****
  96. --- 51,60 ----
  97.   #ifdef HAS_SOCKET
  98.   #include <sys/socket.h>
  99.   #include <netdb.h>
  100. + #ifndef ENOTSOCK
  101. + #include <net/errno.h>
  102.   #endif
  103. + #endif
  104.   
  105.   #ifdef HAS_SELECT
  106.   #ifdef I_SYS_SELECT
  107. ***************
  108. *** 83,88 ****
  109. --- 96,103 ----
  110.   int laststatval = -1;
  111.   int laststype = O_STAT;
  112.   
  113. + static char* warn_nl = "Unsuccessful %s on filename containing newline";
  114. + 
  115.   bool
  116.   do_open(stab,name,len)
  117.   STAB *stab;
  118. ***************
  119. *** 100,105 ****
  120. --- 115,121 ----
  121.       FILE *saveofp = Nullfp;
  122.       char savetype = ' ';
  123.   
  124. +     mode[0] = mode[1] = mode[2] = '\0';
  125.       name = myname;
  126.       forkprocess = 1;        /* assume true if no fork */
  127.       while (len && isSPACE(name[len-1]))
  128. ***************
  129. *** 130,136 ****
  130.           result = fclose(stio->ifp);
  131.       if (result == EOF && fd > maxsysfd)
  132.           fprintf(stderr,"Warning: unable to close filehandle %s properly.\n",
  133. !           stab_name(stab));
  134.       stio->ofp = stio->ifp = Nullfp;
  135.       }
  136.       if (*name == '+' && len > 1 && name[len-1] != '|') {    /* scary */
  137. --- 146,152 ----
  138.           result = fclose(stio->ifp);
  139.       if (result == EOF && fd > maxsysfd)
  140.           fprintf(stderr,"Warning: unable to close filehandle %s properly.\n",
  141. !           stab_ename(stab));
  142.       stio->ofp = stio->ifp = Nullfp;
  143.       }
  144.       if (*name == '+' && len > 1 && name[len-1] != '|') {    /* scary */
  145. ***************
  146. *** 244,252 ****
  147.           fp = fopen(name,"r");
  148.       }
  149.       }
  150. !     Safefree(myname);
  151. !     if (!fp)
  152.       goto say_false;
  153.       if (stio->type &&
  154.         stio->type != '|' && stio->type != '-') {
  155.       if (fstat(fileno(fp),&statbuf) < 0) {
  156. --- 260,272 ----
  157.           fp = fopen(name,"r");
  158.       }
  159.       }
  160. !     if (!fp) {
  161. !     if (dowarn && stio->type == '<' && index(name, '\n'))
  162. !         warn(warn_nl, "open");
  163. !     Safefree(myname);
  164.       goto say_false;
  165. +     }
  166. +     Safefree(myname);
  167.       if (stio->type &&
  168.         stio->type != '|' && stio->type != '-') {
  169.       if (fstat(fileno(fp),&statbuf) < 0) {
  170. ***************
  171. *** 263,269 ****
  172.           !statbuf.st_mode
  173.   #endif
  174.       ) {
  175. !         if (getsockname(fileno(fp), tokenbuf, 0) >= 0 || errno != ENOTSOCK)
  176.           stio->type = 's'; /* some OS's return 0 on fstat()ed socket */
  177.                   /* but some return 0 for streams too, sigh */
  178.       }
  179. --- 283,291 ----
  180.           !statbuf.st_mode
  181.   #endif
  182.       ) {
  183. !         int buflen = sizeof tokenbuf;
  184. !         if (getsockname(fileno(fp), tokenbuf, &buflen) >= 0
  185. !         || errno != ENOTSOCK)
  186.           stio->type = 's'; /* some OS's return 0 on fstat()ed socket */
  187.                   /* but some return 0 for streams too, sigh */
  188.       }
  189. ***************
  190. *** 280,289 ****
  191. --- 302,321 ----
  192.           }
  193.       }
  194.       if (fd != fileno(fp)) {
  195. +         int pid;
  196. +         STR *str;
  197. + 
  198.           dup2(fileno(fp), fd);
  199. +         str = afetch(fdpid,fileno(fp),TRUE);
  200. +         pid = str->str_u.str_useful;
  201. +         str->str_u.str_useful = 0;
  202. +         str = afetch(fdpid,fd,TRUE);
  203. +         str->str_u.str_useful = pid;
  204.           fclose(fp);
  205. + 
  206.       }
  207.       fp = saveifp;
  208. +     clearerr(fp);
  209.       }
  210.   #if defined(HAS_FCNTL) && defined(F_SETFD)
  211.       fd = fileno(fp);
  212. ***************
  213. *** 384,390 ****
  214.               }
  215.   #endif
  216.   #ifdef HAS_RENAME
  217. ! #ifndef MSDOS
  218.               if (rename(oldname,str->str_ptr) < 0) {
  219.               warn("Can't rename %s to %s: %s, skipping file",
  220.                 oldname, str->str_ptr, strerror(errno) );
  221. --- 416,422 ----
  222.               }
  223.   #endif
  224.   #ifdef HAS_RENAME
  225. ! #ifndef DOSISH
  226.               if (rename(oldname,str->str_ptr) < 0) {
  227.               warn("Can't rename %s to %s: %s, skipping file",
  228.                 oldname, str->str_ptr, strerror(errno) );
  229. ***************
  230. *** 411,417 ****
  231.   #endif
  232.           }
  233.           else {
  234. ! #ifndef MSDOS
  235.               if (UNLINK(oldname) < 0) {
  236.               warn("Can't rename %s to %s: %s, skipping file",
  237.                 oldname, str->str_ptr, strerror(errno) );
  238. --- 443,449 ----
  239.   #endif
  240.           }
  241.           else {
  242. ! #ifndef DOSISH
  243.               if (UNLINK(oldname) < 0) {
  244.               warn("Can't rename %s to %s: %s, skipping file",
  245.                 oldname, str->str_ptr, strerror(errno) );
  246. ***************
  247. *** 536,542 ****
  248.       stio = stab_io(stab);
  249.       if (!stio) {        /* never opened */
  250.       if (dowarn && explicit)
  251. !         warn("Close on unopened file <%s>",stab_name(stab));
  252.       return FALSE;
  253.       }
  254.       if (stio->ifp) {
  255. --- 568,574 ----
  256.       stio = stab_io(stab);
  257.       if (!stio) {        /* never opened */
  258.       if (dowarn && explicit)
  259. !         warn("Close on unopened file <%s>",stab_ename(stab));
  260.       return FALSE;
  261.       }
  262.       if (stio->ifp) {
  263. ***************
  264. *** 621,628 ****
  265. --- 653,662 ----
  266.       if (!stio || !stio->ifp)
  267.       goto phooey;
  268.   
  269. + #ifdef ULTRIX_STDIO_BOTCH
  270.       if (feof(stio->ifp))
  271.       (void)fseek (stio->ifp, 0L, 2);        /* ultrix 1.2 workaround */
  272. + #endif
  273.   
  274.       return ftell(stio->ifp);
  275.   
  276. ***************
  277. *** 648,655 ****
  278. --- 682,691 ----
  279.       if (!stio || !stio->ifp)
  280.       goto nuts;
  281.   
  282. + #ifdef ULTRIX_STDIO_BOTCH
  283.       if (feof(stio->ifp))
  284.       (void)fseek (stio->ifp, 0L, 2);        /* ultrix 1.2 workaround */
  285. + #endif
  286.   
  287.       return fseek(stio->ifp, pos, whence) >= 0;
  288.   
  289. ***************
  290. *** 700,706 ****
  291.       }
  292.       else {
  293.       retval = (int)str_gnum(argstr);
  294. ! #ifdef MSDOS
  295.       s = (char*)(long)retval;        /* ouch */
  296.   #else
  297.       s = (char*)retval;        /* ouch */
  298. --- 736,742 ----
  299.       }
  300.       else {
  301.       retval = (int)str_gnum(argstr);
  302. ! #ifdef DOSISH
  303.       s = (char*)(long)retval;        /* ouch */
  304.   #else
  305.       s = (char*)retval;        /* ouch */
  306. ***************
  307. *** 711,717 ****
  308.       if (optype == O_IOCTL)
  309.       retval = ioctl(fileno(stio->ifp), func, s);
  310.       else
  311. ! #ifdef MSDOS
  312.       fatal("fcntl is not implemented");
  313.   #else
  314.   #ifdef HAS_FCNTL
  315. --- 747,753 ----
  316.       if (optype == O_IOCTL)
  317.       retval = ioctl(fileno(stio->ifp), func, s);
  318.       else
  319. ! #ifdef DOSISH
  320.       fatal("fcntl is not implemented");
  321.   #else
  322.   #ifdef HAS_FCNTL
  323. ***************
  324. *** 768,775 ****
  325.       else
  326.   #endif
  327.           laststatval = stat(str_get(statname),&statcache);
  328. !     if (laststatval < 0)
  329.           max = 0;
  330.       }
  331.   
  332.       if (gimme != G_ARRAY) {
  333. --- 804,814 ----
  334.       else
  335.   #endif
  336.           laststatval = stat(str_get(statname),&statcache);
  337. !     if (laststatval < 0) {
  338. !         if (dowarn && index(str_get(statname), '\n'))
  339. !         warn(warn_nl, "stat");
  340.           max = 0;
  341. +     }
  342.       }
  343.   
  344.       if (gimme != G_ARRAY) {
  345. ***************
  346. *** 1000,1006 ****
  347.       if (*tmps == 'S' && tmps[1] == 't' && tmps[2] == 'B' && tmps[3] == '\0'
  348.         && str->str_cur == sizeof(STBP) && strlen(tmps) < str->str_cur) {
  349.           STR *tmpstr = str_mortal(&str_undef);
  350. !         stab_fullname(tmpstr,((STAB*)str));/* a stab value, be nice */
  351.           str = tmpstr;
  352.           tmps = str->str_ptr;
  353.           putc('*',fp);
  354. --- 1039,1045 ----
  355.       if (*tmps == 'S' && tmps[1] == 't' && tmps[2] == 'B' && tmps[3] == '\0'
  356.         && str->str_cur == sizeof(STBP) && strlen(tmps) < str->str_cur) {
  357.           STR *tmpstr = str_mortal(&str_undef);
  358. !         stab_efullname(tmpstr,((STAB*)str));/* a stab value, be nice */
  359.           str = tmpstr;
  360.           tmps = str->str_ptr;
  361.           putc('*',fp);
  362. ***************
  363. *** 1072,1078 ****
  364.           return laststatval;
  365.           if (dowarn)
  366.           warn("Stat on unopened file <%s>",
  367. !           stab_name(arg[1].arg_ptr.arg_stab));
  368.           statstab = Nullstab;
  369.           str_set(statname,"");
  370.           return (laststatval = -1);
  371. --- 1111,1117 ----
  372.           return laststatval;
  373.           if (dowarn)
  374.           warn("Stat on unopened file <%s>",
  375. !           stab_ename(arg[1].arg_ptr.arg_stab));
  376.           statstab = Nullstab;
  377.           str_set(statname,"");
  378.           return (laststatval = -1);
  379. ***************
  380. *** 1082,1088 ****
  381.       statstab = Nullstab;
  382.       str_set(statname,str_get(str));
  383.       laststype = O_STAT;
  384. !     return (laststatval = stat(str_get(str),&statcache));
  385.       }
  386.   }
  387.   
  388. --- 1121,1130 ----
  389.       statstab = Nullstab;
  390.       str_set(statname,str_get(str));
  391.       laststype = O_STAT;
  392. !     laststatval = stat(str_get(str),&statcache);
  393. !     if (laststatval < 0 && dowarn && index(str_get(str), '\n'))
  394. !         warn(warn_nl, "stat");
  395. !     return laststatval;
  396.       }
  397.   }
  398.   
  399. ***************
  400. *** 1104,1113 ****
  401.       statstab = Nullstab;
  402.       str_set(statname,str_get(str));
  403.   #ifdef HAS_LSTAT
  404. !     return (laststatval = lstat(str_get(str),&statcache));
  405.   #else
  406. !     return (laststatval = stat(str_get(str),&statcache));
  407.   #endif
  408.   }
  409.   
  410.   STR *
  411. --- 1146,1158 ----
  412.       statstab = Nullstab;
  413.       str_set(statname,str_get(str));
  414.   #ifdef HAS_LSTAT
  415. !     laststatval = lstat(str_get(str),&statcache);
  416.   #else
  417. !     laststatval = stat(str_get(str),&statcache);
  418.   #endif
  419. +     if (laststatval < 0 && dowarn && index(str_get(str), '\n'))
  420. +     warn(warn_nl, "lstat");
  421. +     return laststatval;
  422.   }
  423.   
  424.   STR *
  425. ***************
  426. *** 1137,1143 ****
  427.           stio = stab_io(statstab);
  428.       }
  429.       if (stio && stio->ifp) {
  430. ! #ifdef STDSTDIO
  431.           fstat(fileno(stio->ifp),&statcache);
  432.           if (S_ISDIR(statcache.st_mode))    /* handle NFS glitch */
  433.           return arg->arg_type == O_FTTEXT ? &str_no : &str_yes;
  434. --- 1182,1188 ----
  435.           stio = stab_io(statstab);
  436.       }
  437.       if (stio && stio->ifp) {
  438. ! #if defined(STDSTDIO) || defined(atarist) /* this will work with atariST */
  439.           fstat(fileno(stio->ifp),&statcache);
  440.           if (S_ISDIR(statcache.st_mode))    /* handle NFS glitch */
  441.           return arg->arg_type == O_FTTEXT ? &str_no : &str_yes;
  442. ***************
  443. *** 1157,1163 ****
  444.       else {
  445.           if (dowarn)
  446.           warn("Test on unopened file <%s>",
  447. !           stab_name(arg[1].arg_ptr.arg_stab));
  448.           errno = EBADF;
  449.           return &str_undef;
  450.       }
  451. --- 1202,1208 ----
  452.       else {
  453.           if (dowarn)
  454.           warn("Test on unopened file <%s>",
  455. !           stab_ename(arg[1].arg_ptr.arg_stab));
  456.           errno = EBADF;
  457.           return &str_undef;
  458.       }
  459. ***************
  460. *** 1167,1174 ****
  461.       str_set(statname,str_get(str));
  462.         really_filename:
  463.       i = open(str_get(str),0);
  464. !     if (i < 0)
  465.           return &str_undef;
  466.       fstat(i,&statcache);
  467.       len = read(i,tbuf,512);
  468.       (void)close(i);
  469. --- 1212,1222 ----
  470.       str_set(statname,str_get(str));
  471.         really_filename:
  472.       i = open(str_get(str),0);
  473. !     if (i < 0) {
  474. !         if (dowarn && index(str_get(str), '\n'))
  475. !         warn(warn_nl, "open");
  476.           return &str_undef;
  477. +     }
  478.       fstat(i,&statcache);
  479.       len = read(i,tbuf,512);
  480.       (void)close(i);
  481. ***************
  482. *** 1201,1206 ****
  483. --- 1249,1257 ----
  484.       return &str_yes;
  485.   }
  486.   
  487. + static char **Argv = Null(char **);
  488. + static char *Cmd = Nullch;
  489. + 
  490.   bool
  491.   do_aexec(really,arglast)
  492.   STR *really;
  493. ***************
  494. *** 1210,1221 ****
  495.       register int sp = arglast[1];
  496.       register int items = arglast[2] - sp;
  497.       register char **a;
  498. -     char **argv;
  499.       char *tmps;
  500.   
  501.       if (items) {
  502. !     New(401,argv, items+1, char*);
  503. !     a = argv;
  504.       for (st += ++sp; items > 0; items--,st++) {
  505.           if (*st)
  506.           *a++ = str_get(*st);
  507. --- 1261,1271 ----
  508.       register int sp = arglast[1];
  509.       register int items = arglast[2] - sp;
  510.       register char **a;
  511.       char *tmps;
  512.   
  513.       if (items) {
  514. !     New(401,Argv, items+1, char*);
  515. !     a = Argv;
  516.       for (st += ++sp; items > 0; items--,st++) {
  517.           if (*st)
  518.           *a++ = str_get(*st);
  519. ***************
  520. *** 1224,1244 ****
  521.       }
  522.       *a = Nullch;
  523.   #ifdef TAINT
  524. !     if (*argv[0] != '/')    /* will execvp use PATH? */
  525.           taintenv();        /* testing IFS here is overkill, probably */
  526.   #endif
  527.       if (really && *(tmps = str_get(really)))
  528. !         execvp(tmps,argv);
  529.       else
  530. !         execvp(argv[0],argv);
  531. !     Safefree(argv);
  532.       }
  533.       return FALSE;
  534.   }
  535.   
  536. - static char **Argv = Null(char **);
  537. - static char *Cmd = Nullch;
  538. - 
  539.   void
  540.   do_execfree()
  541.   {
  542. --- 1274,1291 ----
  543.       }
  544.       *a = Nullch;
  545.   #ifdef TAINT
  546. !     if (*Argv[0] != '/')    /* will execvp use PATH? */
  547.           taintenv();        /* testing IFS here is overkill, probably */
  548.   #endif
  549.       if (really && *(tmps = str_get(really)))
  550. !         execvp(tmps,Argv);
  551.       else
  552. !         execvp(Argv[0],Argv);
  553.       }
  554. +     do_execfree();
  555.       return FALSE;
  556.   }
  557.   
  558.   void
  559.   do_execfree()
  560.   {
  561. ***************
  562. *** 1551,1558 ****
  563.       register int sp = arglast[1];
  564.       register STIO *stio;
  565.       int fd;
  566. !     int lvl;
  567. !     int optname;
  568.   
  569.       if (!stab)
  570.       goto nuts;
  571. --- 1598,1605 ----
  572.       register int sp = arglast[1];
  573.       register STIO *stio;
  574.       int fd;
  575. !     unsigned int lvl;
  576. !     unsigned int optname;
  577.   
  578.       if (!stab)
  579.       goto nuts;
  580. ***************
  581. *** 1562,1575 ****
  582.       goto nuts;
  583.   
  584.       fd = fileno(stio->ifp);
  585. !     lvl = (int)str_gnum(st[sp+1]);
  586. !     optname = (int)str_gnum(st[sp+2]);
  587.       switch (optype) {
  588.       case O_GSOCKOPT:
  589.       st[sp] = str_2mortal(Str_new(22,257));
  590.       st[sp]->str_cur = 256;
  591.       st[sp]->str_pok = 1;
  592. !     if (getsockopt(fd, lvl, optname, st[sp]->str_ptr, &st[sp]->str_cur) < 0)
  593.           goto nuts;
  594.       break;
  595.       case O_SSOCKOPT:
  596. --- 1609,1623 ----
  597.       goto nuts;
  598.   
  599.       fd = fileno(stio->ifp);
  600. !     lvl = (unsigned int)str_gnum(st[sp+1]);
  601. !     optname = (unsigned int)str_gnum(st[sp+2]);
  602.       switch (optype) {
  603.       case O_GSOCKOPT:
  604.       st[sp] = str_2mortal(Str_new(22,257));
  605.       st[sp]->str_cur = 256;
  606.       st[sp]->str_pok = 1;
  607. !     if (getsockopt(fd, lvl, optname, st[sp]->str_ptr,
  608. !             (int*)&st[sp]->str_cur) < 0)
  609.           goto nuts;
  610.       break;
  611.       case O_SSOCKOPT:
  612. ***************
  613. *** 1615,1625 ****
  614.       fd = fileno(stio->ifp);
  615.       switch (optype) {
  616.       case O_GETSOCKNAME:
  617. !     if (getsockname(fd, st[sp]->str_ptr, &st[sp]->str_cur) < 0)
  618.           goto nuts2;
  619.       break;
  620.       case O_GETPEERNAME:
  621. !     if (getpeername(fd, st[sp]->str_ptr, &st[sp]->str_cur) < 0)
  622.           goto nuts2;
  623.       break;
  624.       }
  625. --- 1663,1673 ----
  626.       fd = fileno(stio->ifp);
  627.       switch (optype) {
  628.       case O_GETSOCKNAME:
  629. !     if (getsockname(fd, st[sp]->str_ptr, (int*)&st[sp]->str_cur) < 0)
  630.           goto nuts2;
  631.       break;
  632.       case O_GETPEERNAME:
  633. !     if (getpeername(fd, st[sp]->str_ptr, (int*)&st[sp]->str_cur) < 0)
  634.           goto nuts2;
  635.       break;
  636.       }
  637. ***************
  638. *** 1654,1664 ****
  639.       struct hostent *hent;
  640.       unsigned long len;
  641.   
  642. -     if (gimme != G_ARRAY) {
  643. -     astore(ary, ++sp, str_mortal(&str_undef));
  644. -     return sp;
  645. -     }
  646. - 
  647.       if (which == O_GHBYNAME) {
  648.       char *name = str_get(ary->ary_array[sp+1]);
  649.   
  650. --- 1702,1707 ----
  651. ***************
  652. *** 1677,1682 ****
  653. --- 1720,1747 ----
  654.   #else
  655.       fatal("gethostent not implemented");
  656.   #endif
  657. + 
  658. + #ifdef HOST_NOT_FOUND
  659. +     if (!hent)
  660. +     statusvalue = (unsigned short)h_errno & 0xffff;
  661. + #endif
  662. + 
  663. +     if (gimme != G_ARRAY) {
  664. +     astore(ary, ++sp, str = str_mortal(&str_undef));
  665. +     if (hent) {
  666. +         if (which == O_GHBYNAME) {
  667. + #ifdef h_addr
  668. +         str_nset(str, *hent->h_addr, hent->h_length);
  669. + #else
  670. +         str_nset(str, hent->h_addr, hent->h_length);
  671. + #endif
  672. +         }
  673. +         else
  674. +         str_set(str, hent->h_name);
  675. +     }
  676. +     return sp;
  677. +     }
  678. + 
  679.       if (hent) {
  680.   #ifndef lint
  681.       (void)astore(ary, ++sp, str = str_mortal(&str_no));
  682. ***************
  683. *** 1726,1736 ****
  684.       struct netent *getnetent();
  685.       struct netent *nent;
  686.   
  687. -     if (gimme != G_ARRAY) {
  688. -     astore(ary, ++sp, str_mortal(&str_undef));
  689. -     return sp;
  690. -     }
  691. - 
  692.       if (which == O_GNBYNAME) {
  693.       char *name = str_get(ary->ary_array[sp+1]);
  694.   
  695. --- 1791,1796 ----
  696. ***************
  697. *** 1745,1750 ****
  698. --- 1805,1821 ----
  699.       else
  700.       nent = getnetent();
  701.   
  702. +     if (gimme != G_ARRAY) {
  703. +     astore(ary, ++sp, str = str_mortal(&str_undef));
  704. +     if (nent) {
  705. +         if (which == O_GNBYNAME)
  706. +         str_numset(str, (double)nent->n_net);
  707. +         else
  708. +         str_set(str, nent->n_name);
  709. +     }
  710. +     return sp;
  711. +     }
  712. + 
  713.       if (nent) {
  714.   #ifndef lint
  715.       (void)astore(ary, ++sp, str = str_mortal(&str_no));
  716. ***************
  717. *** 1784,1794 ****
  718.       struct protoent *getprotoent();
  719.       struct protoent *pent;
  720.   
  721. -     if (gimme != G_ARRAY) {
  722. -     astore(ary, ++sp, str_mortal(&str_undef));
  723. -     return sp;
  724. -     }
  725. - 
  726.       if (which == O_GPBYNAME) {
  727.       char *name = str_get(ary->ary_array[sp+1]);
  728.   
  729. --- 1855,1860 ----
  730. ***************
  731. *** 1802,1807 ****
  732. --- 1868,1884 ----
  733.       else
  734.       pent = getprotoent();
  735.   
  736. +     if (gimme != G_ARRAY) {
  737. +     astore(ary, ++sp, str = str_mortal(&str_undef));
  738. +     if (pent) {
  739. +         if (which == O_GPBYNAME)
  740. +         str_numset(str, (double)pent->p_proto);
  741. +         else
  742. +         str_set(str, pent->p_name);
  743. +     }
  744. +     return sp;
  745. +     }
  746. + 
  747.       if (pent) {
  748.   #ifndef lint
  749.       (void)astore(ary, ++sp, str = str_mortal(&str_no));
  750. ***************
  751. *** 1839,1849 ****
  752.       struct servent *getservent();
  753.       struct servent *sent;
  754.   
  755. -     if (gimme != G_ARRAY) {
  756. -     astore(ary, ++sp, str_mortal(&str_undef));
  757. -     return sp;
  758. -     }
  759. - 
  760.       if (which == O_GSBYNAME) {
  761.       char *name = str_get(ary->ary_array[sp+1]);
  762.       char *proto = str_get(ary->ary_array[sp+2]);
  763. --- 1916,1921 ----
  764. ***************
  765. *** 1861,1866 ****
  766. --- 1933,1955 ----
  767.       }
  768.       else
  769.       sent = getservent();
  770. + 
  771. +     if (gimme != G_ARRAY) {
  772. +     astore(ary, ++sp, str = str_mortal(&str_undef));
  773. +     if (sent) {
  774. +         if (which == O_GSBYNAME) {
  775. + #ifdef HAS_NTOHS
  776. +         str_numset(str, (double)ntohs(sent->s_port));
  777. + #else
  778. +         str_numset(str, (double)(sent->s_port));
  779. + #endif
  780. +         }
  781. +         else
  782. +         str_set(str, sent->s_name);
  783. +     }
  784. +     return sp;
  785. +     }
  786. + 
  787.       if (sent) {
  788.   #ifndef lint
  789.       (void)astore(ary, ++sp, str = str_mortal(&str_no));
  790. ***************
  791. *** 2007,2012 ****
  792. --- 2096,2102 ----
  793.           for (j = 0, k=ORDERBYTE; j < masksize; j++, (k >>= 4))
  794.               s[(k % masksize) + offset] = fd_sets[i][j+offset];
  795.           }
  796. +         Safefree(fd_sets[i]);
  797.       }
  798.       }
  799.   #endif
  800. ***************
  801. *** 2098,2108 ****
  802.       struct passwd *getpwent();
  803.       struct passwd *pwent;
  804.   
  805. -     if (gimme != G_ARRAY) {
  806. -     astore(ary, ++sp, str_mortal(&str_undef));
  807. -     return sp;
  808. -     }
  809. - 
  810.       if (which == O_GPWNAM) {
  811.       char *name = str_get(ary->ary_array[sp+1]);
  812.   
  813. --- 2188,2193 ----
  814. ***************
  815. *** 2116,2121 ****
  816. --- 2201,2217 ----
  817.       else
  818.       pwent = getpwent();
  819.   
  820. +     if (gimme != G_ARRAY) {
  821. +     astore(ary, ++sp, str = str_mortal(&str_undef));
  822. +     if (pwent) {
  823. +         if (which == O_GPWNAM)
  824. +         str_numset(str, (double)pwent->pw_uid);
  825. +         else
  826. +         str_set(str, pwent->pw_name);
  827. +     }
  828. +     return sp;
  829. +     }
  830. + 
  831.       if (pwent) {
  832.       (void)astore(ary, ++sp, str = str_mortal(&str_no));
  833.       str_set(str, pwent->pw_name);
  834. ***************
  835. *** 2179,2189 ****
  836.       struct group *getgrent();
  837.       struct group *grent;
  838.   
  839. -     if (gimme != G_ARRAY) {
  840. -     astore(ary, ++sp, str_mortal(&str_undef));
  841. -     return sp;
  842. -     }
  843. - 
  844.       if (which == O_GGRNAM) {
  845.       char *name = str_get(ary->ary_array[sp+1]);
  846.   
  847. --- 2275,2280 ----
  848. ***************
  849. *** 2197,2202 ****
  850. --- 2288,2304 ----
  851.       else
  852.       grent = getgrent();
  853.   
  854. +     if (gimme != G_ARRAY) {
  855. +     astore(ary, ++sp, str = str_mortal(&str_undef));
  856. +     if (grent) {
  857. +         if (which == O_GGRNAM)
  858. +         str_numset(str, (double)grent->gr_gid);
  859. +         else
  860. +         str_set(str, grent->gr_name);
  861. +     }
  862. +     return sp;
  863. +     }
  864. + 
  865.       if (grent) {
  866.       (void)astore(ary, ++sp, str = str_mortal(&str_no));
  867.       str_set(str, grent->gr_name);
  868. ***************
  869. *** 2231,2239 ****
  870.       register int sp = arglast[1];
  871.       register STIO *stio;
  872.       long along;
  873. - #ifndef telldir
  874. -     long telldir();
  875. - #endif
  876.   #ifndef apollo
  877.       struct DIRENT *readdir();
  878.   #endif
  879. --- 2333,2338 ----
  880. ***************
  881. *** 2278,2307 ****
  882.   #endif
  883.       }
  884.       break;
  885. ! #if MACH
  886. !     case O_TELLDIR:
  887.       case O_SEEKDIR:
  888. -         goto nope;
  889. - #else
  890. -     case O_TELLDIR:
  891.       st[sp] = str_mortal(&str_undef);
  892. -     str_numset(st[sp], (double)telldir(stio->dirp));
  893. -     break;
  894. -     case O_SEEKDIR:
  895. -     st[sp] = str_mortal(&str_undef);
  896.       along = (long)str_gnum(st[sp+1]);
  897.       (void)seekdir(stio->dirp,along);
  898.       break;
  899.   #endif
  900.       case O_REWINDDIR:
  901.       st[sp] = str_mortal(&str_undef);
  902.       (void)rewinddir(stio->dirp);
  903.       break;
  904.       case O_CLOSEDIR:
  905.       st[sp] = str_mortal(&str_undef);
  906.       (void)closedir(stio->dirp);
  907.       stio->dirp = 0;
  908.       break;
  909.       }
  910.       return sp;
  911.   
  912. --- 2377,2412 ----
  913.   #endif
  914.       }
  915.       break;
  916. ! #if defined(HAS_TELLDIR) || defined(telldir)
  917. !     case O_TELLDIR: {
  918. ! #ifndef telldir
  919. !         long telldir();
  920. ! #endif
  921. !         st[sp] = str_mortal(&str_undef);
  922. !         str_numset(st[sp], (double)telldir(stio->dirp));
  923. !         break;
  924. !     }
  925. ! #endif
  926. ! #if defined(HAS_SEEKDIR) || defined(seekdir)
  927.       case O_SEEKDIR:
  928.       st[sp] = str_mortal(&str_undef);
  929.       along = (long)str_gnum(st[sp+1]);
  930.       (void)seekdir(stio->dirp,along);
  931.       break;
  932.   #endif
  933. + #if defined(HAS_REWINDDIR) || defined(rewinddir)
  934.       case O_REWINDDIR:
  935.       st[sp] = str_mortal(&str_undef);
  936.       (void)rewinddir(stio->dirp);
  937.       break;
  938. + #endif
  939.       case O_CLOSEDIR:
  940.       st[sp] = str_mortal(&str_undef);
  941.       (void)closedir(stio->dirp);
  942.       stio->dirp = 0;
  943.       break;
  944. +     default:
  945. +     goto phooey;
  946.       }
  947.       return sp;
  948.   
  949. ***************
  950. *** 2311,2321 ****
  951.       errno = EBADF;
  952.       return sp;
  953.   
  954. - #else
  955. -     fatal("Unimplemented directory operation");
  956.   #endif
  957.   }
  958.   
  959.   apply(type,arglast)
  960.   int type;
  961.   int *arglast;
  962. --- 2416,2427 ----
  963.       errno = EBADF;
  964.       return sp;
  965.   
  966.   #endif
  967. + phooey:
  968. +     fatal("Unimplemented directory operation");
  969.   }
  970.   
  971. + int
  972.   apply(type,arglast)
  973.   int type;
  974.   int *arglast;
  975. ***************
  976. *** 2469,2475 ****
  977.   int effective;
  978.   register struct stat *statbufp;
  979.   {
  980. ! #ifdef MSDOS
  981.       /* [Comments and code from Len Reed]
  982.        * MS-DOS "user" is similar to UNIX's "superuser," but can't write
  983.        * to write-protected files.  The execute permission bit is set
  984. --- 2575,2581 ----
  985.   int effective;
  986.   register struct stat *statbufp;
  987.   {
  988. ! #ifdef DOSISH
  989.       /* [Comments and code from Len Reed]
  990.        * MS-DOS "user" is similar to UNIX's "superuser," but can't write
  991.        * to write-protected files.  The execute permission bit is set
  992. ***************
  993. *** 2488,2493 ****
  994. --- 2594,2602 ----
  995.        *        Sun's PC-NFS.]
  996.        */
  997.   
  998. +      /* Atari stat() does pretty much the same thing. we set x_bit_set_in_stat
  999. +       * too so it will actually look into the files for magic numbers
  1000. +       */
  1001.        return (bit & statbufp->st_mode) ? TRUE : FALSE;
  1002.   
  1003.   #else /* ! MSDOS */
  1004. ***************
  1005. *** 2658,2664 ****
  1006.       {
  1007.   #ifdef HAS_MSG
  1008.       case O_MSGCTL:
  1009. !     ret = msgctl(id, cmd, a);
  1010.       break;
  1011.   #endif
  1012.   #ifdef HAS_SEM
  1013. --- 2767,2773 ----
  1014.       {
  1015.   #ifdef HAS_MSG
  1016.       case O_MSGCTL:
  1017. !     ret = msgctl(id, cmd, (struct msqid_ds *)a);
  1018.       break;
  1019.   #endif
  1020.   #ifdef HAS_SEM
  1021. ***************
  1022. *** 2668,2674 ****
  1023.   #endif
  1024.   #ifdef HAS_SHM
  1025.       case O_SHMCTL:
  1026. !     ret = shmctl(id, cmd, a);
  1027.       break;
  1028.   #endif
  1029.       }
  1030. --- 2777,2783 ----
  1031.   #endif
  1032.   #ifdef HAS_SHM
  1033.       case O_SHMCTL:
  1034. !     ret = shmctl(id, cmd, (struct shmid_ds *)a);
  1035.       break;
  1036.   #endif
  1037.       }
  1038. ***************
  1039. *** 2699,2705 ****
  1040.       return -1;
  1041.       }
  1042.       errno = 0;
  1043. !     return msgsnd(id, mbuf, msize, flags);
  1044.   #else
  1045.       fatal("msgsnd not implemented");
  1046.   #endif
  1047. --- 2808,2814 ----
  1048.       return -1;
  1049.       }
  1050.       errno = 0;
  1051. !     return msgsnd(id, (struct msgbuf *)mbuf, msize, flags);
  1052.   #else
  1053.       fatal("msgsnd not implemented");
  1054.   #endif
  1055. ***************
  1056. *** 2728,2734 ****
  1057.       mbuf = str_get(mstr);
  1058.       }
  1059.       errno = 0;
  1060. !     ret = msgrcv(id, mbuf, msize, mtype, flags);
  1061.       if (ret >= 0) {
  1062.       mstr->str_cur = sizeof(long)+ret;
  1063.       mstr->str_ptr[sizeof(long)+ret] = '\0';
  1064. --- 2837,2843 ----
  1065.       mbuf = str_get(mstr);
  1066.       }
  1067.       errno = 0;
  1068. !     ret = msgrcv(id, (struct msgbuf *)mbuf, msize, mtype, flags);
  1069.       if (ret >= 0) {
  1070.       mstr->str_cur = sizeof(long)+ret;
  1071.       mstr->str_ptr[sizeof(long)+ret] = '\0';
  1072. ***************
  1073. *** 2802,2808 ****
  1074.           STR_GROW(mstr, msize+1);
  1075.           mbuf = str_get(mstr);
  1076.       }
  1077. !     bcopy(shm + mpos, mbuf, msize);
  1078.       mstr->str_cur = msize;
  1079.       mstr->str_ptr[msize] = '\0';
  1080.       }
  1081. --- 2911,2917 ----
  1082.           STR_GROW(mstr, msize+1);
  1083.           mbuf = str_get(mstr);
  1084.       }
  1085. !     Copy(shm + mpos, mbuf, msize, char);
  1086.       mstr->str_cur = msize;
  1087.       mstr->str_ptr[msize] = '\0';
  1088.       }
  1089. ***************
  1090. *** 2811,2819 ****
  1091.   
  1092.       if ((n = mstr->str_cur) > msize)
  1093.           n = msize;
  1094. !     bcopy(mbuf, shm + mpos, n);
  1095.       if (n < msize)
  1096. !         bzero(shm + mpos + n, msize - n);
  1097.       }
  1098.       return shmdt(shm);
  1099.   #else
  1100. --- 2920,2928 ----
  1101.   
  1102.       if ((n = mstr->str_cur) > msize)
  1103.           n = msize;
  1104. !     Copy(mbuf, shm + mpos, n, char);
  1105.       if (n < msize)
  1106. !         memzero(shm + mpos + n, msize - n);
  1107.       }
  1108.       return shmdt(shm);
  1109.   #else
  1110.  
  1111. Index: form.c
  1112. *** form.c.old    Mon Jun  8 17:47:24 1992
  1113. --- form.c    Mon Jun  8 17:47:25 1992
  1114. ***************
  1115. *** 1,4 ****
  1116. ! /* $RCSfile: form.c,v $$Revision: 4.0.1.2 $$Date: 91/11/05 17:18:43 $
  1117.    *
  1118.    *    Copyright (c) 1991, Larry Wall
  1119.    *
  1120. --- 1,4 ----
  1121. ! /* $RCSfile: form.c,v $$Revision: 4.0.1.3 $$Date: 92/06/08 13:21:42 $
  1122.    *
  1123.    *    Copyright (c) 1991, Larry Wall
  1124.    *
  1125. ***************
  1126. *** 6,11 ****
  1127. --- 6,16 ----
  1128.    *    License or the Artistic License, as specified in the README file.
  1129.    *
  1130.    * $Log:    form.c,v $
  1131. +  * Revision 4.0.1.3  92/06/08  13:21:42  lwall
  1132. +  * patch20: removed implicit int declarations on funcions
  1133. +  * patch20: form feed for formats is now specifiable via $^L
  1134. +  * patch20: Perl now distinguishes overlapped copies from non-overlapped
  1135. +  * 
  1136.    * Revision 4.0.1.2  91/11/05  17:18:43  lwall
  1137.    * patch11: formats didn't fill their fields as well as they could
  1138.    * patch11: ^ fields chopped hyphens on line break
  1139. ***************
  1140. *** 25,30 ****
  1141. --- 30,37 ----
  1142.   
  1143.   /* Forms stuff */
  1144.   
  1145. + static int countlines();
  1146. + 
  1147.   void
  1148.   form_parseargs(fcmd)
  1149.   register FCMD *fcmd;
  1150. ***************
  1151. *** 80,85 ****
  1152. --- 87,93 ----
  1153.       curlen = orec->o_len - 2; \
  1154.   }
  1155.   
  1156. + void
  1157.   format(orec,fcmd,sp)
  1158.   register struct outrec *orec;
  1159.   register FCMD *fcmd;
  1160. ***************
  1161. *** 219,225 ****
  1162.           *d++ = ' ';
  1163.           }
  1164.           size = s - t;
  1165. !         (void)bcopy(t,d,size);
  1166.           d += size;
  1167.           *s = tmpchar;
  1168.           if (fcmd->f_flags & FC_CHOP)
  1169. --- 227,233 ----
  1170.           *d++ = ' ';
  1171.           }
  1172.           size = s - t;
  1173. !         Copy(t,d,size,char);
  1174.           d += size;
  1175.           *s = tmpchar;
  1176.           if (fcmd->f_flags & FC_CHOP)
  1177. ***************
  1178. *** 264,270 ****
  1179.           *d++ = ' ';
  1180.           }
  1181.           size = s - t;
  1182. !         (void)bcopy(t,d,size);
  1183.           d += size;
  1184.           *s = tmpchar;
  1185.           if (fcmd->f_next && fcmd->f_next->f_pre[0] == '\n')
  1186. --- 272,278 ----
  1187.           *d++ = ' ';
  1188.           }
  1189.           size = s - t;
  1190. !         Copy(t,d,size,char);
  1191.           d += size;
  1192.           *s = tmpchar;
  1193.           if (fcmd->f_next && fcmd->f_next->f_pre[0] == '\n')
  1194. ***************
  1195. *** 286,292 ****
  1196.           size = str_len(str);
  1197.           CHKLEN(size+1);
  1198.           orec->o_lines += countlines(s,size) - 1;
  1199. !         (void)bcopy(s,d,size);
  1200.           d += size;
  1201.           if (size && s[size-1] != '\n') {
  1202.           *d++ = '\n';
  1203. --- 294,300 ----
  1204.           size = str_len(str);
  1205.           CHKLEN(size+1);
  1206.           orec->o_lines += countlines(s,size) - 1;
  1207. !         Copy(s,d,size,char);
  1208.           d += size;
  1209.           if (size && s[size-1] != '\n') {
  1210.           *d++ = '\n';
  1211. ***************
  1212. *** 325,330 ****
  1213. --- 333,339 ----
  1214.       *d++ = '\0';
  1215.   }
  1216.   
  1217. + static int
  1218.   countlines(s,size)
  1219.   register char *s;
  1220.   register int size;
  1221. ***************
  1222. *** 338,343 ****
  1223. --- 347,353 ----
  1224.       return count;
  1225.   }
  1226.   
  1227. + void
  1228.   do_write(orec,stab,sp)
  1229.   struct outrec *orec;
  1230.   STAB *stab;
  1231. ***************
  1232. *** 374,380 ****
  1233.           stio->top_stab = topstab;
  1234.       }
  1235.       if (stio->lines_left >= 0 && stio->page > 0)
  1236. !         (void)putc('\f',ofp);
  1237.       stio->lines_left = stio->page_len;
  1238.       stio->page++;
  1239.       format(&toprec,stab_form(stio->top_stab),sp);
  1240. --- 384,390 ----
  1241.           stio->top_stab = topstab;
  1242.       }
  1243.       if (stio->lines_left >= 0 && stio->page > 0)
  1244. !         fwrite(formfeed->str_ptr, formfeed->str_cur, 1, ofp);
  1245.       stio->lines_left = stio->page_len;
  1246.       stio->page++;
  1247.       format(&toprec,stab_form(stio->top_stab),sp);
  1248.  
  1249. Index: atarist/test/gdbm
  1250. *** atarist/test/gdbm.old    Mon Jun  8 17:45:03 1992
  1251. --- atarist/test/gdbm    Mon Jun  8 17:45:04 1992
  1252. ***************
  1253. *** 0 ****
  1254. --- 1,28 ----
  1255. + die "cant create dbmtest" unless dbmopen(%keys, "dbmtest", 0666);
  1256. + 
  1257. + print "Writing...\n";
  1258. + 
  1259. + foreach (0..100) {
  1260. +     $keys{"$_"} = $_;
  1261. + }
  1262. + 
  1263. + print "Done\n";
  1264. + 
  1265. + dbmclose (%keys);
  1266. + 
  1267. + die "cant read dbmtest" unless dbmopen(%rkeys, "dbmtest", undef);
  1268. + 
  1269. + $i = 0;
  1270. + print "Reading...\n";
  1271. + while (($key, $val) = each %rkeys)
  1272. + {
  1273. +   if ($keys{$key} != $val)
  1274. +   {
  1275. +      print 'Incorrect val ', $key, ' = ', $val, ' expecting ', $keys{$key}, "\n";
  1276. +      $i = $i + 1;
  1277. +   }
  1278. + }
  1279. + print "Done\n";
  1280. + dbmclose (%keys);
  1281. + print $i, " Error(s)\n";
  1282. + unlink "dbmtest";
  1283.  
  1284. Index: atarist/test/gdbm.t
  1285. *** atarist/test/gdbm.t.old    Mon Jun  8 17:45:06 1992
  1286. --- atarist/test/gdbm.t    Mon Jun  8 17:45:06 1992
  1287. ***************
  1288. *** 0 ****
  1289. --- 1,101 ----
  1290. + #!./perl
  1291. + 
  1292. + #
  1293. + # based on t/op/dbm.t modified for gdbm and atariST stat() semantics
  1294. + #
  1295. + print "1..12\n";
  1296. + 
  1297. + unlink <Op.dbm>;
  1298. + umask(0);
  1299. + print (dbmopen(h,'Op.dbm',0640) ? "ok 1\n" : "not ok 1\n");
  1300. + ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  1301. +    $blksize,$blocks) = stat('Op.dbm');
  1302. + print (($mode & 0770) == 0640 ? "ok 2\n" : "not ok 2\n");
  1303. + while (($key,$value) = each(h)) {
  1304. +     $i++;
  1305. + }
  1306. + print (!$i ? "ok 3\n" : "not ok 3\n");
  1307. + 
  1308. + $h{'goner1'} = 'snork';
  1309. + 
  1310. + $h{'abc'} = 'ABC';
  1311. + $h{'def'} = 'DEF';
  1312. + $h{'jkl','mno'} = "JKL\034MNO";
  1313. + $h{'a',2,3,4,5} = join("\034",'A',2,3,4,5);
  1314. + $h{'a'} = 'A';
  1315. + $h{'b'} = 'B';
  1316. + $h{'c'} = 'C';
  1317. + $h{'d'} = 'D';
  1318. + $h{'e'} = 'E';
  1319. + $h{'f'} = 'F';
  1320. + $h{'g'} = 'G';
  1321. + $h{'h'} = 'H';
  1322. + $h{'i'} = 'I';
  1323. + 
  1324. + $h{'goner2'} = 'snork';
  1325. + delete $h{'goner2'};
  1326. + 
  1327. + dbmclose(h);
  1328. + print (dbmopen(h,'Op.dbm',0640) ? "ok 4\n" : "not ok 4\n");
  1329. + 
  1330. + $h{'j'} = 'J';
  1331. + $h{'k'} = 'K';
  1332. + $h{'l'} = 'L';
  1333. + $h{'m'} = 'M';
  1334. + $h{'n'} = 'N';
  1335. + $h{'o'} = 'O';
  1336. + $h{'p'} = 'P';
  1337. + $h{'q'} = 'Q';
  1338. + $h{'r'} = 'R';
  1339. + $h{'s'} = 'S';
  1340. + $h{'t'} = 'T';
  1341. + $h{'u'} = 'U';
  1342. + $h{'v'} = 'V';
  1343. + $h{'w'} = 'W';
  1344. + $h{'x'} = 'X';
  1345. + $h{'y'} = 'Y';
  1346. + $h{'z'} = 'Z';
  1347. + 
  1348. + $h{'goner3'} = 'snork';
  1349. + 
  1350. + delete $h{'goner1'};
  1351. + delete $h{'goner3'};
  1352. + 
  1353. + @keys = keys(%h);
  1354. + @values = values(%h);
  1355. + 
  1356. + if ($#keys == 29 && $#values == 29) {print "ok 5\n";} else {print "not ok 5\n";}
  1357. + 
  1358. + while (($key,$value) = each(h)) {
  1359. +     if ($key eq $keys[$i] && $value eq $values[$i] && $key gt $value) {
  1360. +     $key =~ y/a-z/A-Z/;
  1361. +     $i++ if $key eq $value;
  1362. +     }
  1363. + }
  1364. + 
  1365. + if ($i == 30) {print "ok 6\n";} else {print "not ok 6\n";}
  1366. + 
  1367. + @keys = ('blurfl', keys(h), 'dyick');
  1368. + if ($#keys == 31) {print "ok 7\n";} else {print "not ok 7\n";}
  1369. + 
  1370. + $h{'foo'} = '';
  1371. + $h{''} = 'bar';
  1372. + 
  1373. + # check cache overflow and numeric keys and contents
  1374. + $ok = 1;
  1375. + for ($i = 1; $i < 200; $i++) { $h{$i + 0} = $i + 0; }
  1376. + for ($i = 1; $i < 200; $i++) { $ok = 0 unless $h{$i} == $i; }
  1377. + print ($ok ? "ok 8\n" : "not ok 8\n");
  1378. + 
  1379. + ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  1380. +    $blksize,$blocks) = stat('Op.dbm');
  1381. + print ($size > 0 ? "ok 9\n" : "not ok 9\n");
  1382. + 
  1383. + @h{0..200} = 200..400;
  1384. + @foo = @h{0..200};
  1385. + print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
  1386. + 
  1387. + print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
  1388. + print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
  1389. + 
  1390. + unlink 'Op.dbm';
  1391.  
  1392. Index: os2/glob.c
  1393. *** os2/glob.c.old    Mon Jun  8 17:49:54 1992
  1394. --- os2/glob.c    Mon Jun  8 17:49:54 1992
  1395. ***************
  1396. *** 1,18 ****
  1397.   /*
  1398.    * Globbing for OS/2.  Relies on the expansion done by the library
  1399. !  * startup code. (dds)
  1400.    */
  1401.   
  1402. ! #include <stdio.h>
  1403. ! #include <string.h>
  1404.   
  1405. ! main(int argc, char *argv[])
  1406.   {
  1407. !   register i;
  1408.   
  1409.     for (i = 1; i < argc; i++)
  1410.     {
  1411. !     fputs(IsFileSystemFAT(argv[i]) ? strlwr(argv[i]) : argv[i], stdout);
  1412. !     putchar(0);
  1413.     }
  1414.   }
  1415. --- 1,21 ----
  1416.   /*
  1417.    * Globbing for OS/2.  Relies on the expansion done by the library
  1418. !  * startup code.
  1419.    */
  1420.   
  1421. ! #define PERLGLOB
  1422. ! #include "director.c"
  1423.   
  1424. ! int main(int argc, char **argv)
  1425.   {
  1426. !   SHORT i;
  1427. !   USHORT r;
  1428. !   CHAR *f;
  1429.   
  1430.     for (i = 1; i < argc; i++)
  1431.     {
  1432. !     f = IsFileSystemFAT(argv[i]) ? strlwr(argv[i]) : argv[i];
  1433. !     DosWrite(1, f, strlen(f) + 1, &r);
  1434.     }
  1435. +   return argc - 1;
  1436.   }
  1437.  
  1438. Index: t/op/goto.t
  1439. Prereq: 4.0
  1440. *** t/op/goto.t.old    Mon Jun  8 17:52:07 1992
  1441. --- t/op/goto.t    Mon Jun  8 17:52:08 1992
  1442. ***************
  1443. *** 1,6 ****
  1444.   #!./perl
  1445.   
  1446. ! # $Header: goto.t,v 4.0 91/03/20 01:52:52 lwall Locked $
  1447.   
  1448.   print "1..3\n";
  1449.   
  1450. --- 1,6 ----
  1451.   #!./perl
  1452.   
  1453. ! # $RCSfile: goto.t,v $$Revision: 4.0.1.1 $$Date: 92/06/08 15:43:25 $
  1454.   
  1455.   print "1..3\n";
  1456.   
  1457. ***************
  1458. *** 30,34 ****
  1459.   if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
  1460.   
  1461.   $x = `./perl -e 'goto foo;' 2>&1`;
  1462. - print "#3\t/label/ in :$x";
  1463.   if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";}
  1464. --- 30,33 ----
  1465.  
  1466. Index: h2ph.SH
  1467. *** h2ph.SH.old    Mon Jun  8 17:47:28 1992
  1468. --- h2ph.SH    Mon Jun  8 17:47:29 1992
  1469. ***************
  1470. *** 19,24 ****
  1471. --- 19,25 ----
  1472.   : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
  1473.   : Protect any dollar signs and backticks that you do not want interpreted
  1474.   : by putting a backslash in front.  You may delete these comments.
  1475. + rm -f h2ph
  1476.   $spitshell >h2ph <<!GROK!THIS!
  1477.   #!$bin/perl
  1478.   'di';
  1479.  
  1480. Index: handy.h
  1481. *** handy.h.old    Mon Jun  8 17:47:31 1992
  1482. --- handy.h    Mon Jun  8 17:47:32 1992
  1483. ***************
  1484. *** 1,4 ****
  1485. ! /* $RCSfile: handy.h,v $$Revision: 4.0.1.3 $$Date: 91/11/05 22:54:26 $
  1486.    *
  1487.    *    Copyright (c) 1991, Larry Wall
  1488.    *
  1489. --- 1,4 ----
  1490. ! /* $RCSfile: handy.h,v $$Revision: 4.0.1.4 $$Date: 92/06/08 13:23:17 $
  1491.    *
  1492.    *    Copyright (c) 1991, Larry Wall
  1493.    *
  1494. ***************
  1495. *** 6,11 ****
  1496. --- 6,15 ----
  1497.    *    License or the Artistic License, as specified in the README file.
  1498.    *
  1499.    * $Log:    handy.h,v $
  1500. +  * Revision 4.0.1.4  92/06/08  13:23:17  lwall
  1501. +  * patch20: isascii() may now be supplied by a library routine
  1502. +  * patch20: Perl now distinguishes overlapped copies from non-overlapped
  1503. +  * 
  1504.    * Revision 4.0.1.3  91/11/05  22:54:26  lwall
  1505.    * patch11: erratum
  1506.    * 
  1507. ***************
  1508. *** 58,64 ****
  1509.   #define strnNE(s1,s2,l) (strncmp(s1,s2,l))
  1510.   #define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))
  1511.   
  1512. ! #if defined(CTYPE256) || !defined(isascii)
  1513.   #define isALNUM(c) (isalpha(c) || isdigit(c) || c == '_')
  1514.   #define isALPHA(c) isalpha(c)
  1515.   #define isSPACE(c) isspace(c)
  1516. --- 62,68 ----
  1517.   #define strnNE(s1,s2,l) (strncmp(s1,s2,l))
  1518.   #define strnEQ(s1,s2,l) (!strncmp(s1,s2,l))
  1519.   
  1520. ! #if defined(CTYPE256) || (!defined(isascii) && !defined(HAS_ISASCII))
  1521.   #define isALNUM(c) (isalpha(c) || isdigit(c) || c == '_')
  1522.   #define isALPHA(c) isalpha(c)
  1523.   #define isSPACE(c) isspace(c)
  1524. ***************
  1525. *** 74,81 ****
  1526.   #define isLOWER(c) (isascii(c) && islower(c))
  1527.   #endif
  1528.   
  1529. - #define MEM_SIZE unsigned int
  1530. - 
  1531.   /* Line numbers are unsigned, 16 bits. */
  1532.   typedef unsigned short line_t;
  1533.   #ifdef lint
  1534. --- 78,83 ----
  1535. ***************
  1536. *** 95,101 ****
  1537.   #define New(x,v,n,t)  (v = (t*)safemalloc((MEM_SIZE)((n) * sizeof(t))))
  1538.   #define Newc(x,v,n,t,c)  (v = (c*)safemalloc((MEM_SIZE)((n) * sizeof(t))))
  1539.   #define Newz(x,v,n,t) (v = (t*)safemalloc((MEM_SIZE)((n) * sizeof(t)))), \
  1540. !     bzero((char*)(v), (n) * sizeof(t))
  1541.   #define Renew(v,n,t) (v = (t*)saferealloc((char*)(v),(MEM_SIZE)((n)*sizeof(t))))
  1542.   #define Renewc(v,n,t,c) (v = (c*)saferealloc((char*)(v),(MEM_SIZE)((n)*sizeof(t))))
  1543.   #else
  1544. --- 97,103 ----
  1545.   #define New(x,v,n,t)  (v = (t*)safemalloc((MEM_SIZE)((n) * sizeof(t))))
  1546.   #define Newc(x,v,n,t,c)  (v = (c*)safemalloc((MEM_SIZE)((n) * sizeof(t))))
  1547.   #define Newz(x,v,n,t) (v = (t*)safemalloc((MEM_SIZE)((n) * sizeof(t)))), \
  1548. !     memzero((char*)(v), (n) * sizeof(t))
  1549.   #define Renew(v,n,t) (v = (t*)saferealloc((char*)(v),(MEM_SIZE)((n)*sizeof(t))))
  1550.   #define Renewc(v,n,t,c) (v = (c*)saferealloc((char*)(v),(MEM_SIZE)((n)*sizeof(t))))
  1551.   #else
  1552. ***************
  1553. *** 102,108 ****
  1554.   #define New(x,v,n,t)  (v = (t*)safemalloc(((unsigned long)(n) * sizeof(t))))
  1555.   #define Newc(x,v,n,t,c)  (v = (c*)safemalloc(((unsigned long)(n) * sizeof(t))))
  1556.   #define Newz(x,v,n,t) (v = (t*)safemalloc(((unsigned long)(n) * sizeof(t)))), \
  1557. !     bzero((char*)(v), (n) * sizeof(t))
  1558.   #define Renew(v,n,t) (v = (t*)saferealloc((char*)(v),((unsigned long)(n)*sizeof(t))))
  1559.   #define Renewc(v,n,t,c) (v = (c*)saferealloc((char*)(v),((unsigned long)(n)*sizeof(t))))
  1560.   #endif /* MSDOS */
  1561. --- 104,110 ----
  1562.   #define New(x,v,n,t)  (v = (t*)safemalloc(((unsigned long)(n) * sizeof(t))))
  1563.   #define Newc(x,v,n,t,c)  (v = (c*)safemalloc(((unsigned long)(n) * sizeof(t))))
  1564.   #define Newz(x,v,n,t) (v = (t*)safemalloc(((unsigned long)(n) * sizeof(t)))), \
  1565. !     memzero((char*)(v), (n) * sizeof(t))
  1566.   #define Renew(v,n,t) (v = (t*)saferealloc((char*)(v),((unsigned long)(n)*sizeof(t))))
  1567.   #define Renewc(v,n,t,c) (v = (c*)saferealloc((char*)(v),((unsigned long)(n)*sizeof(t))))
  1568.   #endif /* MSDOS */
  1569. ***************
  1570. *** 115,121 ****
  1571.   #define New(x,v,n,t)  (v = (t*)safexmalloc(x,(MEM_SIZE)((n) * sizeof(t))))
  1572.   #define Newc(x,v,n,t,c)  (v = (c*)safexmalloc(x,(MEM_SIZE)((n) * sizeof(t))))
  1573.   #define Newz(x,v,n,t) (v = (t*)safexmalloc(x,(MEM_SIZE)((n) * sizeof(t)))), \
  1574. !     bzero((char*)(v), (n) * sizeof(t))
  1575.   #define Renew(v,n,t) (v = (t*)safexrealloc((char*)(v),(MEM_SIZE)((n)*sizeof(t))))
  1576.   #define Renewc(v,n,t,c) (v = (c*)safexrealloc((char*)(v),(MEM_SIZE)((n)*sizeof(t))))
  1577.   #define Safefree(d) safexfree((char*)d)
  1578. --- 117,123 ----
  1579.   #define New(x,v,n,t)  (v = (t*)safexmalloc(x,(MEM_SIZE)((n) * sizeof(t))))
  1580.   #define Newc(x,v,n,t,c)  (v = (c*)safexmalloc(x,(MEM_SIZE)((n) * sizeof(t))))
  1581.   #define Newz(x,v,n,t) (v = (t*)safexmalloc(x,(MEM_SIZE)((n) * sizeof(t)))), \
  1582. !     memzero((char*)(v), (n) * sizeof(t))
  1583.   #define Renew(v,n,t) (v = (t*)safexrealloc((char*)(v),(MEM_SIZE)((n)*sizeof(t))))
  1584.   #define Renewc(v,n,t,c) (v = (c*)safexrealloc((char*)(v),(MEM_SIZE)((n)*sizeof(t))))
  1585.   #define Safefree(d) safexfree((char*)d)
  1586. ***************
  1587. *** 124,137 ****
  1588.   long xcount[MAXXCOUNT];
  1589.   long lastxcount[MAXXCOUNT];
  1590.   #endif /* LEAKTEST */
  1591. ! #define Copy(s,d,n,t) (void)bcopy((char*)(s),(char*)(d), (n) * sizeof(t))
  1592. ! #define Zero(d,n,t) (void)bzero((char*)(d), (n) * sizeof(t))
  1593.   #else /* lint */
  1594.   #define New(x,v,n,s) (v = Null(s *))
  1595.   #define Newc(x,v,n,s,c) (v = Null(s *))
  1596.   #define Newz(x,v,n,s) (v = Null(s *))
  1597.   #define Renew(v,n,s) (v = Null(s *))
  1598.   #define Copy(s,d,n,t)
  1599.   #define Zero(d,n,t)
  1600.   #define Safefree(d) d = d
  1601.   #endif /* lint */
  1602. --- 126,147 ----
  1603.   long xcount[MAXXCOUNT];
  1604.   long lastxcount[MAXXCOUNT];
  1605.   #endif /* LEAKTEST */
  1606. ! #define Move(s,d,n,t) (void)memmove((char*)(d),(char*)(s), (n) * sizeof(t))
  1607. ! #define Copy(s,d,n,t) (void)memcpy((char*)(d),(char*)(s), (n) * sizeof(t))
  1608. ! #define Zero(d,n,t) (void)memzero((char*)(d), (n) * sizeof(t))
  1609.   #else /* lint */
  1610.   #define New(x,v,n,s) (v = Null(s *))
  1611.   #define Newc(x,v,n,s,c) (v = Null(s *))
  1612.   #define Newz(x,v,n,s) (v = Null(s *))
  1613.   #define Renew(v,n,s) (v = Null(s *))
  1614. + #define Move(s,d,n,t)
  1615.   #define Copy(s,d,n,t)
  1616.   #define Zero(d,n,t)
  1617.   #define Safefree(d) d = d
  1618.   #endif /* lint */
  1619. + 
  1620. + #ifdef STRUCTCOPY
  1621. + #define StructCopy(s,d,t) *((t*)(d)) = *((t*)(s))
  1622. + #else
  1623. + #define StructCopy(s,d,t) Copy(s,d,1,t)
  1624. + #endif
  1625.  
  1626. Index: hash.c
  1627. *** hash.c.old    Mon Jun  8 17:47:34 1992
  1628. --- hash.c    Mon Jun  8 17:47:35 1992
  1629. ***************
  1630. *** 1,4 ****
  1631. ! /* $RCSfile: hash.c,v $$Revision: 4.0.1.2 $$Date: 91/11/05 17:24:13 $
  1632.    *
  1633.    *    Copyright (c) 1991, Larry Wall
  1634.    *
  1635. --- 1,4 ----
  1636. ! /* $RCSfile: hash.c,v $$Revision: 4.0.1.3 $$Date: 92/06/08 13:26:29 $
  1637.    *
  1638.    *    Copyright (c) 1991, Larry Wall
  1639.    *
  1640. ***************
  1641. *** 6,11 ****
  1642. --- 6,16 ----
  1643.    *    License or the Artistic License, as specified in the README file.
  1644.    *
  1645.    * $Log:    hash.c,v $
  1646. +  * Revision 4.0.1.3  92/06/08  13:26:29  lwall
  1647. +  * patch20: removed implicit int declarations on functions
  1648. +  * patch20: delete could cause %array to give too low a count of buckets filled
  1649. +  * patch20: hash tables now split only if the memory is available to do so
  1650. +  * 
  1651.    * Revision 4.0.1.2  91/11/05  17:24:13  lwall
  1652.    * patch11: saberized perl
  1653.    * 
  1654. ***************
  1655. *** 20,25 ****
  1656. --- 25,32 ----
  1657.   #include "EXTERN.h"
  1658.   #include "perl.h"
  1659.   
  1660. + static void hsplit();
  1661. + 
  1662.   static char coeff[] = {
  1663.           61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
  1664.           61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
  1665. ***************
  1666. *** 247,256 ****
  1667.       if (bcmp(entry->hent_key,key,klen))    /* is this it? */
  1668.           continue;
  1669.       *oentry = entry->hent_next;
  1670.       str = str_mortal(entry->hent_val);
  1671.       hentfree(entry);
  1672. -     if (i)
  1673. -         tb->tbl_fill--;
  1674.   #ifdef SOME_DBM
  1675.         do_dbm_delete:
  1676.       if (tb->tbl_dbm) {
  1677. --- 254,263 ----
  1678.       if (bcmp(entry->hent_key,key,klen))    /* is this it? */
  1679.           continue;
  1680.       *oentry = entry->hent_next;
  1681. +     if (i && !*oentry)
  1682. +         tb->tbl_fill--;
  1683.       str = str_mortal(entry->hent_val);
  1684.       hentfree(entry);
  1685.   #ifdef SOME_DBM
  1686.         do_dbm_delete:
  1687.       if (tb->tbl_dbm) {
  1688. ***************
  1689. *** 273,278 ****
  1690. --- 280,286 ----
  1691.   #endif
  1692.   }
  1693.   
  1694. + static void
  1695.   hsplit(tb)
  1696.   HASH *tb;
  1697.   {
  1698. ***************
  1699. *** 285,291 ****
  1700. --- 293,305 ----
  1701.       register HENT **oentry;
  1702.   
  1703.       a = tb->tbl_array;
  1704. +     nomemok = TRUE;
  1705.       Renew(a, newsize, HENT*);
  1706. +     nomemok = FALSE;
  1707. +     if (!a) {
  1708. +     tb->tbl_dosplit = tb->tbl_max + 1;    /* never split again */
  1709. +     return;
  1710. +     }
  1711.       Zero(&a[oldsize], oldsize, HENT*);        /* zero 2nd half*/
  1712.       tb->tbl_max = --newsize;
  1713.       tb->tbl_dosplit = tb->tbl_max * FILLPCT / 100;
  1714. ***************
  1715. *** 369,375 ****
  1716.       tb->tbl_fill = 0;
  1717.   #ifndef lint
  1718.       if (tb->tbl_array)
  1719. !     (void)bzero((char*)tb->tbl_array, (tb->tbl_max + 1) * sizeof(HENT*));
  1720.   #endif
  1721.   }
  1722.   
  1723. --- 383,389 ----
  1724.       tb->tbl_fill = 0;
  1725.   #ifndef lint
  1726.       if (tb->tbl_array)
  1727. !     (void)memzero((char*)tb->tbl_array, (tb->tbl_max + 1) * sizeof(HENT*));
  1728.   #endif
  1729.   }
  1730.   
  1731.  
  1732. Index: hints/hp9000_700.sh
  1733. *** hints/hp9000_700.sh.old    Mon Jun  8 17:47:54 1992
  1734. --- hints/hp9000_700.sh    Mon Jun  8 17:47:55 1992
  1735. ***************
  1736. *** 0 ****
  1737. --- 1,5 ----
  1738. + libswanted='ndbm m'
  1739. + ccflags="$ccflags -DJMPCLOBBER"
  1740. + optimize='+O1'
  1741. + d_mymalloc=define
  1742. + alignbytes=8
  1743.  
  1744. Index: hints/hp9000_800.sh
  1745. *** hints/hp9000_800.sh.old    Mon Jun  8 17:47:56 1992
  1746. --- hints/hp9000_800.sh    Mon Jun  8 17:47:57 1992
  1747. ***************
  1748. *** 1,2 ****
  1749.   libswanted=`echo $libswanted | sed -e 's/malloc //' -e 's/BSD //`
  1750. ! optimize='+O1'
  1751. --- 1,3 ----
  1752.   libswanted=`echo $libswanted | sed -e 's/malloc //' -e 's/BSD //`
  1753. ! eval_cflags='optimize=+O1'
  1754. ! teval_cflags=$eval_cflags
  1755.  
  1756. Index: hints/hpux.sh
  1757. *** hints/hpux.sh.old    Mon Jun  8 17:47:59 1992
  1758. --- hints/hpux.sh    Mon Jun  8 17:47:59 1992
  1759. ***************
  1760. *** 5,7 ****
  1761. --- 5,8 ----
  1762.   *3.1*) d_syscall=$undef ;;
  1763.   *2.1*) libswanted=`echo $libswanted | sed 's/ malloc / /'` ;;
  1764.   esac
  1765. + d_index=define
  1766.  
  1767. Index: installperl
  1768. *** installperl.old    Mon Jun  8 17:48:36 1992
  1769. --- installperl    Mon Jun  8 17:48:36 1992
  1770. ***************
  1771. *** 1,5 ****
  1772. --- 1,7 ----
  1773.   #!./perl
  1774.   
  1775. + $mainperldir = "/usr/bin";
  1776. + 
  1777.   while (@ARGV) {
  1778.       $nonono = 1 if $ARGV[0] eq '-n';
  1779.       $versiononly = 1 if $ARGV[0] eq '-v';
  1780. ***************
  1781. *** 11,20 ****
  1782.   @scripts = ('cppstdin', 'h2ph', 'c2ph', 'pstruct', 'x2p/s2p', 'x2p/find2perl');
  1783.   @manpages = ('perl.man', 'h2ph.man', 'x2p/a2p.man', 'x2p/s2p.man');
  1784.   
  1785. - $version = sprintf("%5.3f", $]);
  1786. - $release = substr($version,0,3);
  1787. - $patchlevel = substr($version,3,2);
  1788. - 
  1789.   # Read in the config file.
  1790.   
  1791.   open(CONFIG, "config.sh") || die "You haven't run Configure yet!\n";
  1792. --- 13,18 ----
  1793. ***************
  1794. *** 26,32 ****
  1795. --- 24,43 ----
  1796.       }
  1797.       $accum .= $_;
  1798.   }
  1799. + close CONFIG;
  1800.   
  1801. + open(PERL_C, "perl.c");
  1802. + while (<PERL_C>) {
  1803. +     last if /Revision:/;
  1804. + }
  1805. + close PERL_C;
  1806. + s/.*Revision: //;
  1807. + $major = $_ + 0;
  1808. + 
  1809. + $ver = sprintf("%5.3f", $major + $PATCHLEVEL / 1000);
  1810. + $release = substr($ver,0,3);
  1811. + $patchlevel = substr($ver,3,2);
  1812. + 
  1813.   # Do some quick sanity checks.
  1814.   
  1815.   if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
  1816. ***************
  1817. *** 45,52 ****
  1818.   
  1819.   # First we install the version-numbered executables.
  1820.   
  1821. - $ver = sprintf("%5.3f", $]);
  1822. - 
  1823.   &unlink("$installbin/perl$ver");
  1824.   &cmd("cp perl $installbin/perl$ver");
  1825.   
  1826. --- 56,61 ----
  1827. ***************
  1828. *** 80,96 ****
  1829.   if ($bdev != $ddev || $bino != $dino) {
  1830.       &unlink("$installbin/a2p");
  1831.       &cmd("cp x2p/a2p $installbin/a2p");
  1832.   }
  1833.   
  1834.   # Make some enemies in the name of standardization.   :-)
  1835.   
  1836. ! ($udev,$uino) = stat("/usr/bin");
  1837.   
  1838. ! if (-w _ && ($udev != $ddev || $uino != $dino) && !$nonono) {
  1839. !     &unlink("/usr/bin/perl");
  1840. !     eval 'symlink("$installbin/perl", "/usr/bin/perl")' ||
  1841. !     eval 'link("$installbin/perl", "/usr/bin/perl")' ||
  1842. !     &cmd("cp $installbin/perl /usr/bin");
  1843.   }
  1844.   
  1845.   # Install scripts.
  1846. --- 89,106 ----
  1847.   if ($bdev != $ddev || $bino != $dino) {
  1848.       &unlink("$installbin/a2p");
  1849.       &cmd("cp x2p/a2p $installbin/a2p");
  1850. +     &chmod(0755, "$installbin/a2p");
  1851.   }
  1852.   
  1853.   # Make some enemies in the name of standardization.   :-)
  1854.   
  1855. ! ($udev,$uino) = stat($mainperldir);
  1856.   
  1857. ! if (-w _ && ($udev != $bdev || $uino != $bino) && !$nonono) {
  1858. !     &unlink("$mainperldir/perl");
  1859. !     eval 'link("$installbin/perl", "$mainperldir/perl")' ||
  1860. !     eval 'symlink("$installbin/perl", "$mainperldir/perl")' ||
  1861. !     &cmd("cp $installbin/perl $mainperldir");
  1862.   }
  1863.   
  1864.   # Install scripts.
  1865. ***************
  1866. *** 114,121 ****
  1867.           $new =~ s#.*/##;
  1868.           print STDERR "  Installing $mansrc/$new\n";
  1869.           next if $nonono;
  1870. !         open(MI,$_);
  1871. !         open(MO,">$mansrc/$new");
  1872.           print MO ".ds RP Release $release Patchlevel $patchlevel\n";
  1873.           while (<MI>) {
  1874.           print MO;
  1875. --- 124,131 ----
  1876.           $new =~ s#.*/##;
  1877.           print STDERR "  Installing $mansrc/$new\n";
  1878.           next if $nonono;
  1879. !         open(MI,$_) || warn "Can't open $_: $!\n";
  1880. !         open(MO,">$mansrc/$new") || warn "Can't install $mansrc/$new: $!\n";
  1881.           print MO ".ds RP Release $release Patchlevel $patchlevel\n";
  1882.           while (<MI>) {
  1883.           print MO;
  1884.  
  1885. Index: hints/isc_3_2_2.sh
  1886. *** hints/isc_3_2_2.sh.old    Mon Jun  8 17:48:01 1992
  1887. --- hints/isc_3_2_2.sh    Mon Jun  8 17:48:01 1992
  1888. ***************
  1889. *** 1,4 ****
  1890. ! set `echo $libswanted | sed -e 's/ x / /' -e 's/ PW / /' -e s/ malloc / /`
  1891.   libswanted="inet malloc $*"
  1892.   doio_cflags='ccflags="$ccflags -DENOTSOCK=103"'
  1893.   tdoio_cflags='ccflags="$ccflags -DENOTSOCK=103"'
  1894. --- 1,4 ----
  1895. ! set `echo $libswanted | sed -e 's/ x / /' -e 's/ PW / /' -e 's/ malloc / /'`
  1896.   libswanted="inet malloc $*"
  1897.   doio_cflags='ccflags="$ccflags -DENOTSOCK=103"'
  1898.   tdoio_cflags='ccflags="$ccflags -DENOTSOCK=103"'
  1899.  
  1900. Index: makedir.SH
  1901. Prereq: 4.0
  1902. *** makedir.SH.old    Mon Jun  8 17:49:24 1992
  1903. --- makedir.SH    Mon Jun  8 17:49:25 1992
  1904. ***************
  1905. *** 13,23 ****
  1906.   */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1907.   esac
  1908.   echo "Extracting makedir (with variable substitutions)"
  1909.   $spitshell >makedir <<!GROK!THIS!
  1910.   $startsh
  1911. ! # $Header: makedir.SH,v 4.0 91/03/20 01:27:13 lwall Locked $
  1912.   # 
  1913.   # $Log:    makedir.SH,v $
  1914.   # Revision 4.0  91/03/20  01:27:13  lwall
  1915.   # 4.0 baseline.
  1916.   # 
  1917. --- 13,27 ----
  1918.   */*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1919.   esac
  1920.   echo "Extracting makedir (with variable substitutions)"
  1921. + rm -f makedir
  1922.   $spitshell >makedir <<!GROK!THIS!
  1923.   $startsh
  1924. ! # $RCSfile: makedir.SH,v $$Revision: 4.0.1.1 $$Date: 92/06/08 14:24:55 $
  1925.   # 
  1926.   # $Log:    makedir.SH,v $
  1927. + # Revision 4.0.1.1  92/06/08  14:24:55  lwall
  1928. + # patch20: SH files didn't work well with symbolic links
  1929. + # 
  1930.   # Revision 4.0  91/03/20  01:27:13  lwall
  1931.   # 4.0 baseline.
  1932.   # 
  1933.  
  1934. Index: atarist/usub/makefile.st
  1935. *** atarist/usub/makefile.st.old    Mon Jun  8 17:45:34 1992
  1936. --- atarist/usub/makefile.st    Mon Jun  8 17:45:35 1992
  1937. ***************
  1938. *** 0 ****
  1939. --- 1,17 ----
  1940. + CC = cgcc
  1941. + SRC = ..
  1942. + GLOBINCS = 
  1943. + LOCINCS = 
  1944. + LIBS = -lcurses  -lgdbm -lpml -lgnu
  1945. + 
  1946. + cperl.ttp: $(SRC)/uperl.a usersub.o curses.o
  1947. +     $(CC) $(SRC)/uperl.a usersub.o curses.o $(LIBS) -o cperl.ttp
  1948. + 
  1949. + usersub.o: usersub.c
  1950. +     $(CC) -c -I$(SRC) $(GLOBINCS) -O usersub.c
  1951. + 
  1952. + curses.o: curses.c
  1953. +     $(CC) -c -I$(SRC) $(GLOBINCS) -O curses.c
  1954. + 
  1955. + curses.c: acurses.mus
  1956. +     perl mus acurses.mus >curses.c
  1957.  
  1958. Index: hints/mc6000.sh
  1959. *** hints/mc6000.sh.old    Mon Jun  8 17:48:03 1992
  1960. --- hints/mc6000.sh    Mon Jun  8 17:48:04 1992
  1961. ***************
  1962. *** 0 ****
  1963. --- 1,5 ----
  1964. + # defaults for the masscomp (concurrent) 6000 series running RTU 5.0
  1965. + cppstdin=/lib/cpp
  1966. + cmd_cflags='optimize=""'
  1967. + tcmd_cflags='optimize=""'
  1968. + d_mymalloc=define
  1969.  
  1970. *** End of Patch 26 ***
  1971. exit 0 # Just in case...
  1972.