home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume30 / perl / patch29 < prev    next >
Text File  |  1992-06-11  |  50KB  |  1,723 lines
  1. Newsgroups: comp.sources.misc
  2. From: lwall@netlabs.com (Larry Wall)
  3. Subject:  v30i040:  perl - The perl programming language, Patch29
  4. Message-ID: <1992Jun11.180724.1246@sparky.imd.sterling.com>
  5. X-Md4-Signature: faf393b179fa4464fdb8cf6649a4964f
  6. Date: Thu, 11 Jun 1992 18:07:24 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: lwall@netlabs.com (Larry Wall)
  10. Posting-number: Volume 30, Issue 40
  11. Archive-name: perl/patch29
  12. Environment: UNIX, MS-DOS, OS2
  13. Patch-To: perl: Volume 18, Issue 19-54
  14.  
  15. System: perl version 4.0
  16. Patch #: 29
  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: 28
  56. 1c1
  57. < #define PATCHLEVEL 28
  58. ---
  59. > #define PATCHLEVEL 29
  60.  
  61. Index: perl.c
  62. *** perl.c.old    Mon Jun  8 17:50:22 1992
  63. --- perl.c    Mon Jun  8 17:50:23 1992
  64. ***************
  65. *** 1,4 ****
  66. ! char rcsid[] = "$RCSfile: perl.c,v $$Revision: 4.0.1.6 $$Date: 91/11/11 16:38:45 $\nPatch level: ###\n";
  67.   /*
  68.    *    Copyright (c) 1991, Larry Wall
  69.    *
  70. --- 1,4 ----
  71. ! char rcsid[] = "$RCSfile: perl.c,v $$Revision: 4.0.1.7 $$Date: 92/06/08 14:50:39 $\nPatch level: ###\n";
  72.   /*
  73.    *    Copyright (c) 1991, Larry Wall
  74.    *
  75. ***************
  76. *** 6,11 ****
  77. --- 6,22 ----
  78.    *    License or the Artistic License, as specified in the README file.
  79.    *
  80.    * $Log:    perl.c,v $
  81. +  * Revision 4.0.1.7  92/06/08  14:50:39  lwall
  82. +  * patch20: PERLLIB now supports multiple directories
  83. +  * patch20: running taintperl explicitly now does checks even if $< == $>
  84. +  * patch20: -e 'cmd' no longer fails silently if /tmp runs out of space
  85. +  * patch20: perl -P now uses location of sed determined by Configure
  86. +  * patch20: form feed for formats is now specifiable via $^L
  87. +  * patch20: paragraph mode now skips extra newlines automatically
  88. +  * patch20: eval "1 #comment" didn't work
  89. +  * patch20: couldn't require . files
  90. +  * patch20: semantic compilation errors didn't abort execution
  91. +  * 
  92.    * Revision 4.0.1.6  91/11/11  16:38:45  lwall
  93.    * patch19: default arg for shift was wrong after first subroutine definition
  94.    * patch19: op/regexp.t failed from missing arg to bcmp()
  95. ***************
  96. *** 44,54 ****
  97.   #include "EXTERN.h"
  98.   #include "perl.h"
  99.   #include "perly.h"
  100. - #ifdef MSDOS
  101. - #include "patchlev.h"
  102. - #else
  103.   #include "patchlevel.h"
  104. - #endif
  105.   
  106.   char *getenv();
  107.   
  108. --- 55,61 ----
  109. ***************
  110. *** 65,70 ****
  111. --- 72,78 ----
  112.   #endif
  113.   
  114.   static char* moreswitches();
  115. + static void incpush();
  116.   static char* cddir;
  117.   static bool minus_c;
  118.   static char patchlevel[6];
  119. ***************
  120. *** 117,122 ****
  121. --- 125,136 ----
  122.       loop_ptr = -1;        /* start label stack again */
  123.       goto just_doit;
  124.       }
  125. + #ifdef TAINT
  126. + #ifndef DOSUID
  127. +     if (uid == euid && gid == egid)
  128. +     taintanyway == TRUE;        /* running taintperl explicitly */
  129. + #endif
  130. + #endif
  131.       (void)sprintf(index(rcsid,'#'), "%d\n", PATCHLEVEL);
  132.       linestr = Str_new(65,80);
  133.       str_nset(linestr,"",0);
  134. ***************
  135. *** 164,169 ****
  136. --- 178,185 ----
  137.           if (!e_fp) {
  138.               e_tmpname = savestr(TMPPATH);
  139.           (void)mktemp(e_tmpname);
  140. +         if (!*e_tmpname)
  141. +             fatal("Can't mktemp()");
  142.           e_fp = fopen(e_tmpname,"w");
  143.           if (!e_fp)
  144.               fatal("Cannot open temporary file");
  145. ***************
  146. *** 234,278 ****
  147.     switch_end:
  148.       scriptname = argv[0];
  149.       if (e_fp) {
  150. !     (void)fclose(e_fp);
  151.       argc++,argv--;
  152.       scriptname = e_tmpname;
  153.       }
  154.   
  155. ! #ifdef MSDOS
  156.   #define PERLLIB_SEP ';'
  157.   #else
  158.   #define PERLLIB_SEP ':'
  159.   #endif
  160.   #ifndef TAINT        /* Can't allow arbitrary PERLLIB in setuid script */
  161. !     {
  162. !     char * s2 = getenv("PERLLIB");
  163. ! 
  164. !     if ( s2 ) {
  165. !         /* Break at all separators */
  166. !         while ( *s2 ) {
  167. !         /* First, skip any consecutive separators */
  168. !         while ( *s2 == PERLLIB_SEP ) {
  169. !             /* Uncomment the next line for PATH semantics */
  170. !             /* (void)apush(stab_array(incstab),str_make(".",1)); */
  171. !             s2++;
  172. !         }
  173. !         if ( (s = index(s2,PERLLIB_SEP)) != Nullch ) {
  174. !             (void)apush(stab_array(incstab),str_make(s2,(int)(s-s2)));
  175. !             s2 = s+1;
  176. !         } else {
  177. !             (void)apush(stab_array(incstab),str_make(s2,0));
  178. !             break;
  179. !         }
  180. !         }
  181. !     }
  182. !     }
  183.   #endif /* TAINT */
  184.   
  185.   #ifndef PRIVLIB
  186.   #define PRIVLIB "/usr/local/lib/perl"
  187.   #endif
  188. !     (void)apush(stab_array(incstab),str_make(PRIVLIB,0));
  189.       (void)apush(stab_array(incstab),str_make(".",1));
  190.   
  191.       str_set(&str_no,No);
  192. --- 250,274 ----
  193.     switch_end:
  194.       scriptname = argv[0];
  195.       if (e_fp) {
  196. !     if (fflush(e_fp) || ferror(e_fp) || fclose(e_fp))
  197. !         fatal("Can't write to temp file for -e: %s", strerror(errno));
  198.       argc++,argv--;
  199.       scriptname = e_tmpname;
  200.       }
  201.   
  202. ! #ifdef DOSISH
  203.   #define PERLLIB_SEP ';'
  204.   #else
  205.   #define PERLLIB_SEP ':'
  206.   #endif
  207.   #ifndef TAINT        /* Can't allow arbitrary PERLLIB in setuid script */
  208. !     incpush(getenv("PERLLIB"));
  209.   #endif /* TAINT */
  210.   
  211.   #ifndef PRIVLIB
  212.   #define PRIVLIB "/usr/local/lib/perl"
  213.   #endif
  214. !     incpush(PRIVLIB);
  215.       (void)apush(stab_array(incstab),str_make(".",1));
  216.   
  217.       str_set(&str_no,No);
  218. ***************
  219. *** 296,314 ****
  220.   
  221.       bufend = s + strlen(s);
  222.       while (*s) {
  223. ! #ifndef MSDOS
  224.           s = cpytill(tokenbuf,s,bufend,':',&len);
  225.   #else
  226.           for (len = 0; *s && *s != ';'; tokenbuf[len++] = *s++);
  227.           tokenbuf[len] = '\0';
  228.   #endif
  229.           if (*s)
  230.           s++;
  231. ! #ifndef MSDOS
  232.           if (len && tokenbuf[len-1] != '/')
  233.   #else
  234.           if (len && tokenbuf[len-1] != '\\')
  235.   #endif
  236.           (void)strcat(tokenbuf+len,"/");
  237.           (void)strcat(tokenbuf+len,scriptname);
  238.   #ifdef DEBUGGING
  239. --- 292,319 ----
  240.   
  241.       bufend = s + strlen(s);
  242.       while (*s) {
  243. ! #ifndef DOSISH
  244.           s = cpytill(tokenbuf,s,bufend,':',&len);
  245.   #else
  246. + #ifdef atarist
  247. +         for (len = 0; *s && *s != ',' && *s != ';'; tokenbuf[len++] = *s++);
  248. +         tokenbuf[len] = '\0';
  249. + #else
  250.           for (len = 0; *s && *s != ';'; tokenbuf[len++] = *s++);
  251.           tokenbuf[len] = '\0';
  252.   #endif
  253. + #endif
  254.           if (*s)
  255.           s++;
  256. ! #ifndef DOSISH
  257.           if (len && tokenbuf[len-1] != '/')
  258.   #else
  259. + #ifdef atarist
  260. +         if (len && ((tokenbuf[len-1] != '\\') && (tokenbuf[len-1] != '/')))
  261. + #else
  262.           if (len && tokenbuf[len-1] != '\\')
  263.   #endif
  264. + #endif
  265.           (void)strcat(tokenbuf+len,"/");
  266.           (void)strcat(tokenbuf+len,scriptname);
  267.   #ifdef DEBUGGING
  268. ***************
  269. *** 348,355 ****
  270.           sprintf(tokenbuf, "%s", cpp);
  271.       str_cat(str,"-I");
  272.       str_cat(str,PRIVLIB);
  273.       (void)sprintf(buf, "\
  274. ! %ssed %s -e '/^[^#]/b' \
  275.    -e '/^#[     ]*include[     ]/b' \
  276.    -e '/^#[     ]*define[     ]/b' \
  277.    -e '/^#[     ]*if[     ]/b' \
  278. --- 353,376 ----
  279.           sprintf(tokenbuf, "%s", cpp);
  280.       str_cat(str,"-I");
  281.       str_cat(str,PRIVLIB);
  282. + #ifdef MSDOS
  283.       (void)sprintf(buf, "\
  284. ! sed %s -e \"/^[^#]/b\" \
  285. !  -e \"/^#[     ]*include[     ]/b\" \
  286. !  -e \"/^#[     ]*define[     ]/b\" \
  287. !  -e \"/^#[     ]*if[     ]/b\" \
  288. !  -e \"/^#[     ]*ifdef[     ]/b\" \
  289. !  -e \"/^#[     ]*ifndef[     ]/b\" \
  290. !  -e \"/^#[     ]*else/b\" \
  291. !  -e \"/^#[     ]*elif[     ]/b\" \
  292. !  -e \"/^#[     ]*undef[     ]/b\" \
  293. !  -e \"/^#[     ]*endif/b\" \
  294. !  -e \"s/^#.*//\" \
  295. !  %s | %s -C %s %s",
  296. !       (doextract ? "-e \"1,/^#/d\n\"" : ""),
  297. ! #else
  298. !     (void)sprintf(buf, "\
  299. ! %s %s -e '/^[^#]/b' \
  300.    -e '/^#[     ]*include[     ]/b' \
  301.    -e '/^#[     ]*define[     ]/b' \
  302.    -e '/^#[     ]*if[     ]/b' \
  303. ***************
  304. *** 361,372 ****
  305.    -e '/^#[     ]*endif/b' \
  306.    -e 's/^[     ]*#.*//' \
  307.    %s | %s -C %s %s",
  308. ! #ifdef MSDOS
  309. !       "",
  310.   #else
  311. !       "/bin/",
  312.   #endif
  313.         (doextract ? "-e '1,/^#/d\n'" : ""),
  314.         scriptname, tokenbuf, str_get(str), CPPMINUS);
  315.   #ifdef DEBUGGING
  316.       if (debug & 64) {
  317. --- 382,394 ----
  318.    -e '/^#[     ]*endif/b' \
  319.    -e 's/^[     ]*#.*//' \
  320.    %s | %s -C %s %s",
  321. ! #ifdef LOC_SED
  322. !       LOC_SED,
  323.   #else
  324. !       "sed",
  325.   #endif
  326.         (doextract ? "-e '1,/^#/d\n'" : ""),
  327. + #endif
  328.         scriptname, tokenbuf, str_get(str), CPPMINUS);
  329.   #ifdef DEBUGGING
  330.       if (debug & 64) {
  331. ***************
  332. *** 376,382 ****
  333.   #endif
  334.       doextract = FALSE;
  335.   #ifdef IAMSUID                /* actually, this is caught earlier */
  336. !     if (euid != uid && !euid)    /* if running suidperl */
  337.   #ifdef HAS_SETEUID
  338.           (void)seteuid(uid);        /* musn't stay setuid root */
  339.   #else
  340. --- 398,404 ----
  341.   #endif
  342.       doextract = FALSE;
  343.   #ifdef IAMSUID                /* actually, this is caught earlier */
  344. !     if (euid != uid && !euid) {    /* if running suidperl */
  345.   #ifdef HAS_SETEUID
  346.           (void)seteuid(uid);        /* musn't stay setuid root */
  347.   #else
  348. ***************
  349. *** 386,391 ****
  350. --- 408,416 ----
  351.           setuid(uid);
  352.   #endif
  353.   #endif
  354. +         if (geteuid() != uid)
  355. +         fatal("Can't do seteuid!\n");
  356. +     }
  357.   #endif /* IAMSUID */
  358.       rsfp = mypopen(buf,"r");
  359.       }
  360. ***************
  361. *** 538,544 ****
  362.           fatal("Can't do setuid\n");
  363.       }
  364.   
  365. !     if (statbuf.st_mode & S_ISGID && statbuf.st_gid != egid)
  366.   #ifdef HAS_SETEGID
  367.           (void)setegid(statbuf.st_gid);
  368.   #else
  369. --- 563,569 ----
  370.           fatal("Can't do setuid\n");
  371.       }
  372.   
  373. !     if (statbuf.st_mode & S_ISGID && statbuf.st_gid != egid) {
  374.   #ifdef HAS_SETEGID
  375.           (void)setegid(statbuf.st_gid);
  376.   #else
  377. ***************
  378. *** 548,553 ****
  379. --- 573,581 ----
  380.           setgid(statbuf.st_gid);
  381.   #endif
  382.   #endif
  383. +         if (getegid() != statbuf.st_gid)
  384. +         fatal("Can't do setegid!\n");
  385. +     }
  386.       if (statbuf.st_mode & S_ISUID) {
  387.           if (statbuf.st_uid != euid)
  388.   #ifdef HAS_SETEUID
  389. ***************
  390. *** 559,566 ****
  391.           setuid(statbuf.st_uid);
  392.   #endif
  393.   #endif
  394.       }
  395. !     else if (uid)            /* oops, mustn't run as root */
  396.   #ifdef HAS_SETEUID
  397.           (void)seteuid((UIDTYPE)uid);
  398.   #else
  399. --- 587,596 ----
  400.           setuid(statbuf.st_uid);
  401.   #endif
  402.   #endif
  403. +         if (geteuid() != statbuf.st_uid)
  404. +         fatal("Can't do seteuid!\n");
  405.       }
  406. !     else if (uid) {            /* oops, mustn't run as root */
  407.   #ifdef HAS_SETEUID
  408.           (void)seteuid((UIDTYPE)uid);
  409.   #else
  410. ***************
  411. *** 570,575 ****
  412. --- 600,608 ----
  413.           setuid((UIDTYPE)uid);
  414.   #endif
  415.   #endif
  416. +         if (geteuid() != uid)
  417. +         fatal("Can't do seteuid!\n");
  418. +     }
  419.       uid = (int)getuid();
  420.       euid = (int)geteuid();
  421.       gid = (int)getgid();
  422. ***************
  423. *** 713,723 ****
  424.       rightstab = stabent("'",allstabs);
  425.       sawampersand = (amperstab || leftstab || rightstab);
  426.       if (tmpstab = stabent(":",allstabs))
  427. !     str_set(STAB_STR(tmpstab),chopset);
  428.       if (tmpstab = stabent("\024",allstabs))
  429.       time(&basetime);
  430.   
  431.       /* these aren't necessarily magical */
  432.       if (tmpstab = stabent(";",allstabs))
  433.       str_set(STAB_STR(tmpstab),"\034");
  434.       if (tmpstab = stabent("]",allstabs)) {
  435. --- 746,760 ----
  436.       rightstab = stabent("'",allstabs);
  437.       sawampersand = (amperstab || leftstab || rightstab);
  438.       if (tmpstab = stabent(":",allstabs))
  439. !     str_set(stab_val(tmpstab),chopset);
  440.       if (tmpstab = stabent("\024",allstabs))
  441.       time(&basetime);
  442.   
  443.       /* these aren't necessarily magical */
  444. +     if (tmpstab = stabent("\014",allstabs)) {
  445. +     str_set(stab_val(tmpstab),"\f");
  446. +     formfeed = stab_val(tmpstab);
  447. +     }
  448.       if (tmpstab = stabent(";",allstabs))
  449.       str_set(STAB_STR(tmpstab),"\034");
  450.       if (tmpstab = stabent("]",allstabs)) {
  451. ***************
  452. *** 730,736 ****
  453.   
  454.       stdinstab = stabent("STDIN",TRUE);
  455.       stdinstab->str_pok |= SP_MULTI;
  456. !     stab_io(stdinstab) = stio_new();
  457.       stab_io(stdinstab)->ifp = stdin;
  458.       tmpstab = stabent("stdin",TRUE);
  459.       stab_io(tmpstab) = stab_io(stdinstab);
  460. --- 767,774 ----
  461.   
  462.       stdinstab = stabent("STDIN",TRUE);
  463.       stdinstab->str_pok |= SP_MULTI;
  464. !     if (!stab_io(stdinstab))
  465. !     stab_io(stdinstab) = stio_new();
  466.       stab_io(stdinstab)->ifp = stdin;
  467.       tmpstab = stabent("stdin",TRUE);
  468.       stab_io(tmpstab) = stab_io(stdinstab);
  469. ***************
  470. *** 738,744 ****
  471.   
  472.       tmpstab = stabent("STDOUT",TRUE);
  473.       tmpstab->str_pok |= SP_MULTI;
  474. !     stab_io(tmpstab) = stio_new();
  475.       stab_io(tmpstab)->ofp = stab_io(tmpstab)->ifp = stdout;
  476.       defoutstab = tmpstab;
  477.       tmpstab = stabent("stdout",TRUE);
  478. --- 776,783 ----
  479.   
  480.       tmpstab = stabent("STDOUT",TRUE);
  481.       tmpstab->str_pok |= SP_MULTI;
  482. !     if (!stab_io(tmpstab))
  483. !     stab_io(tmpstab) = stio_new();
  484.       stab_io(tmpstab)->ofp = stab_io(tmpstab)->ifp = stdout;
  485.       defoutstab = tmpstab;
  486.       tmpstab = stabent("stdout",TRUE);
  487. ***************
  488. *** 747,753 ****
  489.   
  490.       curoutstab = stabent("STDERR",TRUE);
  491.       curoutstab->str_pok |= SP_MULTI;
  492. !     stab_io(curoutstab) = stio_new();
  493.       stab_io(curoutstab)->ofp = stab_io(curoutstab)->ifp = stderr;
  494.       tmpstab = stabent("stderr",TRUE);
  495.       stab_io(tmpstab) = stab_io(curoutstab);
  496. --- 786,793 ----
  497.   
  498.       curoutstab = stabent("STDERR",TRUE);
  499.       curoutstab->str_pok |= SP_MULTI;
  500. !     if (!stab_io(curoutstab))
  501. !     stab_io(curoutstab) = stio_new();
  502.       stab_io(curoutstab)->ofp = stab_io(curoutstab)->ifp = stderr;
  503.       tmpstab = stabent("stderr",TRUE);
  504.       stab_io(tmpstab) = stab_io(curoutstab);
  505. ***************
  506. *** 761,766 ****
  507. --- 801,807 ----
  508.       rs = nrs;
  509.       rslen = nrslen;
  510.       rschar = nrschar;
  511. +     rspara = (nrslen == 2);
  512.       str_nset(stab_val(stabent("/", TRUE)), rs, rslen);
  513.   
  514.       if (do_undump)
  515. ***************
  516. *** 879,884 ****
  517. --- 920,952 ----
  518.       }
  519.   }
  520.   
  521. + static void
  522. + incpush(p)
  523. + char *p;
  524. + {
  525. +     char *s;
  526. + 
  527. +     if (!p)
  528. +     return;
  529. + 
  530. +     /* Break at all separators */
  531. +     while (*p) {
  532. +     /* First, skip any consecutive separators */
  533. +     while ( *p == PERLLIB_SEP ) {
  534. +         /* Uncomment the next line for PATH semantics */
  535. +         /* (void)apush(stab_array(incstab), str_make(".", 1)); */
  536. +         p++;
  537. +     }
  538. +     if ( (s = index(p, PERLLIB_SEP)) != Nullch ) {
  539. +         (void)apush(stab_array(incstab), str_make(p, (int)(s - p)));
  540. +         p = s + 1;
  541. +     } else {
  542. +         (void)apush(stab_array(incstab), str_make(p, 0));
  543. +         break;
  544. +     }
  545. +     }
  546. + }
  547. + 
  548.   void
  549.   savelines(array, str)
  550.   ARRAY *array;
  551. ***************
  552. *** 947,953 ****
  553.       curcmd->c_filestab = fstab("(eval)");
  554.       curcmd->c_line = 1;
  555.       str_sset(linestr,str);
  556. !     str_cat(linestr,";\n");        /* be kind to them */
  557.       if (perldb)
  558.           savelines(stab_xarray(curcmd->c_filestab), linestr);
  559.       }
  560. --- 1015,1021 ----
  561.       curcmd->c_filestab = fstab("(eval)");
  562.       curcmd->c_line = 1;
  563.       str_sset(linestr,str);
  564. !     str_cat(linestr,";\n;\n");    /* be kind to them */
  565.       if (perldb)
  566.           savelines(stab_xarray(curcmd->c_filestab), linestr);
  567.       }
  568. ***************
  569. *** 969,976 ****
  570.           return sp;
  571.       }
  572.       tmpfilename = savestr(specfilename);
  573. !     if (index("/.", *tmpfilename))
  574.           rsfp = fopen(tmpfilename,"r");
  575.       else {
  576.           ar = stab_array(incstab);
  577.           for (i = 0; i <= ar->ary_fill; i++) {
  578. --- 1037,1049 ----
  579.           return sp;
  580.       }
  581.       tmpfilename = savestr(specfilename);
  582. !     if (*tmpfilename == '/' ||
  583. !         (*tmpfilename == '.' && 
  584. !         (tmpfilename[1] == '/' ||
  585. !          (tmpfilename[1] == '.' && tmpfilename[2] == '/'))))
  586. !     {
  587.           rsfp = fopen(tmpfilename,"r");
  588. +     }
  589.       else {
  590.           ar = stab_array(incstab);
  591.           for (i = 0; i <= ar->ary_fill; i++) {
  592. ***************
  593. *** 1061,1067 ****
  594.       }
  595.       myroot = eval_root;        /* in case cmd_exec does another eval! */
  596.   
  597. !     if (retval) {
  598.       st = stack->ary_array;
  599.       sp = arglast[0];
  600.       if (gimme != G_ARRAY)
  601. --- 1134,1140 ----
  602.       }
  603.       myroot = eval_root;        /* in case cmd_exec does another eval! */
  604.   
  605. !     if (retval || error_count) {
  606.       st = stack->ary_array;
  607.       sp = arglast[0];
  608.       if (gimme != G_ARRAY)
  609. ***************
  610. *** 1074,1079 ****
  611. --- 1147,1153 ----
  612.   #endif
  613.           cmd_free(eval_root);
  614.   #endif
  615. +         /*SUPPRESS 29*/ /*SUPPRESS 30*/
  616.           if ((CMD*)eval_root == last_root)
  617.           last_root = Nullcmd;
  618.           eval_root = myroot = Nullcmd;
  619. ***************
  620. *** 1301,1310 ****
  621.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  622.       stdout);
  623.   #ifdef OS2
  624. !         fputs("OS/2 port Copyright (c) 1990, Raymond Chen, Kai Uwe Rommel\n",
  625.           stdout);
  626.   #endif
  627.   #endif
  628.       fputs("\n\
  629.   Perl may be copied only under the terms of either the Artistic License or the\n\
  630.   GNU General Public License, which may be found in the Perl 4.0 source kit.\n",stdout);
  631. --- 1375,1387 ----
  632.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  633.       stdout);
  634.   #ifdef OS2
  635. !         fputs("OS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n",
  636.           stdout);
  637.   #endif
  638.   #endif
  639. + #ifdef atarist
  640. +         fputs("atariST series port, ++jrb  bammi@cadence.com\n", stdout);
  641. + #endif
  642.       fputs("\n\
  643.   Perl may be copied only under the terms of either the Artistic License or the\n\
  644.   GNU General Public License, which may be found in the Perl 4.0 source kit.\n",stdout);
  645. ***************
  646. *** 1330,1335 ****
  647. --- 1407,1413 ----
  648.   
  649.   /* unexec() can be found in the Gnu emacs distribution */
  650.   
  651. + void
  652.   my_unexec()
  653.   {
  654.   #ifdef UNEXEC
  655. ***************
  656. *** 1346,1352 ****
  657.       fprintf(stderr, "unexec of %s into %s failed!\n", perlpath, dumpname);
  658.       exit(status);
  659.   #else
  660. ! #ifdef MSDOS
  661.       abort();    /* nothing else to do */
  662.   #else /* ! MSDOS */
  663.   #   ifndef SIGABRT
  664. --- 1424,1430 ----
  665.       fprintf(stderr, "unexec of %s into %s failed!\n", perlpath, dumpname);
  666.       exit(status);
  667.   #else
  668. ! #ifdef DOSISH
  669.       abort();    /* nothing else to do */
  670.   #else /* ! MSDOS */
  671.   #   ifndef SIGABRT
  672.  
  673. Index: perl.man
  674. *** perl.man.old    Mon Jun  8 17:51:02 1992
  675. --- perl.man    Mon Jun  8 17:51:08 1992
  676. ***************
  677. *** 1,7 ****
  678.   .rn '' }`
  679. ! ''' $RCSfile: perl.man,v $$Revision: 4.0.1.5 $$Date: 91/11/11 16:42:00 $
  680.   ''' 
  681.   ''' $Log:    perl.man,v $
  682.   ''' Revision 4.0.1.5  91/11/11  16:42:00  lwall
  683.   ''' patch19: added little-endian pack/unpack options
  684.   ''' 
  685. --- 1,18 ----
  686.   .rn '' }`
  687. ! ''' $RCSfile: perl.man,v $$Revision: 4.0.1.6 $$Date: 92/06/08 15:07:29 $
  688.   ''' 
  689.   ''' $Log:    perl.man,v $
  690. + ''' Revision 4.0.1.6  92/06/08  15:07:29  lwall
  691. + ''' patch20: documented that numbers may contain underline
  692. + ''' patch20: clarified that DATA may only be read from main script
  693. + ''' patch20: relaxed requirement for semicolon at the end of a block
  694. + ''' patch20: added ... as variant on ..
  695. + ''' patch20: documented need for 1; at the end of a required file
  696. + ''' patch20: extended bracket-style quotes to two-arg operators: s()() and tr()()
  697. + ''' patch20: paragraph mode now skips extra newlines automatically
  698. + ''' patch20: documented PERLLIB and PERLDB
  699. + ''' patch20: documented limit on size of regexp
  700. + ''' 
  701.   ''' Revision 4.0.1.5  91/11/11  16:42:00  lwall
  702.   ''' patch19: added little-endian pack/unpack options
  703.   ''' 
  704. ***************
  705. *** 623,634 ****
  706.   integer formats:
  707.   .nf
  708.   
  709. ! .ne 5
  710.       12345
  711.       12345.67
  712.       .23E-10
  713.       0xffff    # hex
  714.       0377    # octal
  715.   
  716.   .fi
  717.   String literals are delimited by either single or double quotes.
  718. --- 634,646 ----
  719.   integer formats:
  720.   .nf
  721.   
  722. ! .ne 6
  723.       12345
  724.       12345.67
  725.       .23E-10
  726.       0xffff    # hex
  727.       0377    # octal
  728. +     4_294_967_296
  729.   
  730.   .fi
  731.   String literals are delimited by either single or double quotes.
  732. ***************
  733. *** 687,693 ****
  734.   into strings.
  735.   In addition, the token _\|_END_\|_ may be used to indicate the logical end of the
  736.   script before the actual end of file.
  737. ! Any following text is ignored (but may be read via the DATA filehandle).
  738.   The two control characters ^D and ^Z are synonyms for _\|_END_\|_.
  739.   .PP
  740.   A word that doesn't have any other interpretation in the grammar will be
  741. --- 699,707 ----
  742.   into strings.
  743.   In addition, the token _\|_END_\|_ may be used to indicate the logical end of the
  744.   script before the actual end of file.
  745. ! Any following text is ignored, but may be read via the DATA filehandle.
  746. ! (The DATA filehandle may read data only from the main script, but not from
  747. ! any required file or evaluated string.)
  748.   The two control characters ^D and ^Z are synonyms for _\|_END_\|_.
  749.   .PP
  750.   A word that doesn't have any other interpretation in the grammar will be
  751. ***************
  752. *** 944,950 ****
  753.       }
  754.   
  755.   .ne 10
  756. ! is equivalent to
  757.   
  758.       unshift(@ARGV, \'\-\') \|if \|$#ARGV < $[;
  759.       while ($ARGV = shift) {
  760. --- 958,964 ----
  761.       }
  762.   
  763.   .ne 10
  764. ! is equivalent to the following Perl-like pseudo code:
  765.   
  766.       unshift(@ARGV, \'\-\') \|if \|$#ARGV < $[;
  767.       while ($ARGV = shift) {
  768. ***************
  769. *** 955,966 ****
  770.       }
  771.   
  772.   .fi
  773. ! except that it isn't as cumbersome to say.
  774.   It really does shift array ARGV and put the current filename into
  775.   variable ARGV.
  776. ! It also uses filehandle ARGV internally.
  777. ! You can modify @ARGV before the first <> as long as you leave the first
  778. ! filename at the beginning of the array.
  779.   Line numbers ($.) continue as if the input was one big happy file.
  780.   (But see example under eof for how to reset line numbers on each file.)
  781.   .PP
  782. --- 969,983 ----
  783.       }
  784.   
  785.   .fi
  786. ! except that it isn't as cumbersome to say, and will actually work.
  787.   It really does shift array ARGV and put the current filename into
  788.   variable ARGV.
  789. ! It also uses filehandle ARGV internally\*(--<> is just a synonym for
  790. ! <ARGV>, which is magical.
  791. ! (The pseudo code above doesn't work because it treats <ARGV> as non-magical.)
  792. ! .PP
  793. ! You can modify @ARGV before the first <> as long as the array ends up
  794. ! containing the list of filenames you really want.
  795.   Line numbers ($.) continue as if the input was one big happy file.
  796.   (But see example under eof for how to reset line numbers on each file.)
  797.   .PP
  798. ***************
  799. *** 1288,1296 ****
  800.   .Sh "Simple statements"
  801.   The only kind of simple statement is an expression evaluated for its side
  802.   effects.
  803. ! Every expression (simple statement) must be terminated with a semicolon.
  804. ! Note that this is like C, but unlike Pascal (and
  805. ! .IR awk ).
  806.   .PP
  807.   Any simple statement may optionally be followed by a
  808.   single modifier, just before the terminating semicolon.
  809. --- 1305,1313 ----
  810.   .Sh "Simple statements"
  811.   The only kind of simple statement is an expression evaluated for its side
  812.   effects.
  813. ! Every simple statement must be terminated with a semicolon, unless it is the
  814. ! final statement in a block, in which case the semicolon is optional.
  815. ! (Semicolon is still encouraged there if the block takes up more than one line).
  816.   .PP
  817.   Any simple statement may optionally be followed by a
  818.   single modifier, just before the terminating semicolon.
  819. ***************
  820. *** 1416,1422 ****
  821.   slice operations on arrays.
  822.   .Sp
  823.   In a scalar context, .\|. returns a boolean value.
  824. ! The operator is bistable, like a flip-flop..
  825.   Each .\|. operator maintains its own boolean state.
  826.   It is false as long as its left operand is false.
  827.   Once the left operand is true, the range operator stays true
  828. --- 1433,1440 ----
  829.   slice operations on arrays.
  830.   .Sp
  831.   In a scalar context, .\|. returns a boolean value.
  832. ! The operator is bistable, like a flip-flop, and
  833. ! emulates the line-range (comma) operator of sed, awk, and various editors.
  834.   Each .\|. operator maintains its own boolean state.
  835.   It is false as long as its left operand is false.
  836.   Once the left operand is true, the range operator stays true
  837. ***************
  838. *** 1423,1435 ****
  839.   until the right operand is true,
  840.   AFTER which the range operator becomes false again.
  841.   (It doesn't become false till the next time the range operator is evaluated.
  842. ! It can become false on the same evaluation it became true, but it still returns
  843. ! true once.)
  844.   The right operand is not evaluated while the operator is in the \*(L"false\*(R" state,
  845.   and the left operand is not evaluated while the operator is in the \*(L"true\*(R" state.
  846. - The scalar .\|. operator is primarily intended for doing line number ranges
  847. - after
  848. - the fashion of \fIsed\fR or \fIawk\fR.
  849.   The precedence is a little lower than || and &&.
  850.   The value returned is either the null string for false, or a sequence number
  851.   (beginning with 1) for true.
  852. --- 1441,1452 ----
  853.   until the right operand is true,
  854.   AFTER which the range operator becomes false again.
  855.   (It doesn't become false till the next time the range operator is evaluated.
  856. ! It can test the right operand and become false on the
  857. ! same evaluation it became true (as in awk), but it still returns true once.
  858. ! If you don't want it to test the right operand till the next
  859. ! evaluation (as in sed), use three dots (.\|.\|.) instead of two.)
  860.   The right operand is not evaluated while the operator is in the \*(L"false\*(R" state,
  861.   and the left operand is not evaluated while the operator is in the \*(L"true\*(R" state.
  862.   The precedence is a little lower than || and &&.
  863.   The value returned is either the null string for false, or a sequence number
  864.   (beginning with 1) for true.
  865. ***************
  866. *** 1472,1484 ****
  867.   arithmetic operators.
  868.   The operator may be any of:
  869.   .nf
  870. !     \-r    File is readable by effective uid.
  871. !     \-w    File is writable by effective uid.
  872. !     \-x    File is executable by effective uid.
  873.       \-o    File is owned by effective uid.
  874. !     \-R    File is readable by real uid.
  875. !     \-W    File is writable by real uid.
  876. !     \-X    File is executable by real uid.
  877.       \-O    File is owned by real uid.
  878.       \-e    File exists.
  879.       \-z    File has zero size.
  880. --- 1489,1501 ----
  881.   arithmetic operators.
  882.   The operator may be any of:
  883.   .nf
  884. !     \-r    File is readable by effective uid/gid.
  885. !     \-w    File is writable by effective uid/gid.
  886. !     \-x    File is executable by effective uid/gid.
  887.       \-o    File is owned by effective uid.
  888. !     \-R    File is readable by real uid/gid.
  889. !     \-W    File is writable by real uid/gid.
  890. !     \-X    File is executable by real uid/gid.
  891.       \-O    File is owned by real uid.
  892.       \-e    File exists.
  893.       \-z    File has zero size.
  894. ***************
  895. *** 1655,1660 ****
  896. --- 1672,1691 ----
  897.   All other unary operators have a precedence greater than relational operators
  898.   but less than arithmetic operators.
  899.   See the section on Precedence.
  900. + .PP
  901. + For operators that can be used in either a scalar or array context,
  902. + failure is generally indicated in a scalar context by returning
  903. + the undefined value, and in an array context by returning the null list.
  904. + Remember though that
  905. + THERE IS NO GENERAL RULE FOR CONVERTING A LIST INTO A SCALAR.
  906. + Each operator decides which sort of scalar it would be most
  907. + appropriate to return.
  908. + Some operators return the length of the list
  909. + that would have been returned in an array context.
  910. + Some operators return the first value in the list.
  911. + Some operators return the last value in the list.
  912. + Some operators return a count of successful operations.
  913. + In general, they do what you want, unless you want consistency.
  914.   .Ip "/PATTERN/" 8 4
  915.   See m/PATTERN/.
  916.   .Ip "?PATTERN?" 8 4
  917. ***************
  918. *** 2389,2395 ****
  919.   .Ip "endservent" 8
  920.   These routines perform the same functions as their counterparts in the
  921.   system library.
  922. ! The return values from the various get routines are as follows:
  923.   .nf
  924.   
  925.       ($name,$passwd,$uid,$gid,
  926. --- 2420,2427 ----
  927.   .Ip "endservent" 8
  928.   These routines perform the same functions as their counterparts in the
  929.   system library.
  930. ! Within an array context,
  931. ! the return values from the various get routines are as follows:
  932.   .nf
  933.   
  934.       ($name,$passwd,$uid,$gid,
  935. ***************
  936. *** 2401,2410 ****
  937.       ($name,$aliases,$port,$proto) = getserv.\|.\|.
  938.   
  939.   .fi
  940.   The $members value returned by getgr.\|.\|. is a space separated list
  941.   of the login names of the members of the group.
  942.   .Sp
  943. ! The @addrs value returned by the gethost.\|.\|. functions is a list of the
  944.   raw addresses returned by the corresponding system library call.
  945.   In the Internet domain, each address is four bytes long and you can unpack
  946.   it by saying something like:
  947. --- 2433,2461 ----
  948.       ($name,$aliases,$port,$proto) = getserv.\|.\|.
  949.   
  950.   .fi
  951. + (If the entry doesn't exist you get a null list.)
  952. + .Sp
  953. + Within a scalar context, you get the name, unless the function was a
  954. + lookup by name, in which case you get the other thing, whatever it is.
  955. + (If the entry doesn't exist you get the undefined value.)
  956. + For example:
  957. + .nf
  958. + 
  959. +     $uid = getpwnam
  960. +     $name = getpwuid
  961. +     $name = getpwent
  962. +     $gid = getgrnam
  963. +     $name = getgrgid
  964. +     $name = getgrent
  965. +     etc.
  966. + 
  967. + .fi
  968.   The $members value returned by getgr.\|.\|. is a space separated list
  969.   of the login names of the members of the group.
  970.   .Sp
  971. ! For the gethost.\|.\|. functions, if the h_errno variable is supported in C,
  972. ! it will be returned to you via $? if the function call fails.
  973. ! The @addrs value returned by a successful call is a list of the
  974.   raw addresses returned by the corresponding system library call.
  975.   In the Internet domain, each address is four bytes long and you can unpack
  976.   it by saying something like:
  977. ***************
  978. *** 2807,2813 ****
  979.       ($one,$five,$fifteen) = (\`uptime\` =~ /(\ed+\e.\ed+)/g);
  980.   
  981.       # scalar context
  982. !     $/ = 1; $* = 1;
  983.       while ($paragraph = <>) {
  984.           while ($paragraph =~ /[a-z][\'")]*[.!?]+[\'")]*\es/g) {
  985.           $sentences++;
  986. --- 2858,2864 ----
  987.       ($one,$five,$fifteen) = (\`uptime\` =~ /(\ed+\e.\ed+)/g);
  988.   
  989.       # scalar context
  990. !     $/ = ""; $* = 1;
  991.       while ($paragraph = <>) {
  992.           while ($paragraph =~ /[a-z][\'")]*[.!?]+[\'")]*\es/g) {
  993.           $sentences++;
  994. ***************
  995. *** 3330,3335 ****
  996. --- 3381,3389 ----
  997.   
  998.   .fi
  999.   Note that the file will not be included twice under the same specified name.
  1000. + The file must return true as the last statement to indicate successful
  1001. + execution of any initialization code, so it's customary to end
  1002. + such a file with \*(L"1;\*(R" unless you're sure it'll return true otherwise.
  1003.   .Ip "reset(EXPR)" 8 6
  1004.   .Ip "reset EXPR" 8
  1005.   .Ip "reset" 8
  1006. ***************
  1007. *** 3404,3409 ****
  1008. --- 3458,3466 ----
  1009.   interpretation is done on the replacement string (the e modifier overrides
  1010.   this, however); if backquotes are used, the replacement string is a command
  1011.   to execute whose output will be used as the actual replacement text.
  1012. + If the PATTERN is delimited by bracketing quotes, the REPLACEMENT
  1013. + has its own pair of quotes, which may or may not be bracketing quotes, e.g.
  1014. + s(foo)(bar) or s<foo>/bar/.
  1015.   If no string is specified via the =~ or !~ operator,
  1016.   the $_ string is searched and modified.
  1017.   (The string specified with =~ must be a scalar variable, an array element,
  1018. ***************
  1019. *** 3661,3679 ****
  1020.   
  1021.   .ne 2
  1022.       # same thing, but with explicit sort routine
  1023. !     @articles = sort {$a cmp $b;} @files;
  1024.   
  1025.   .ne 2
  1026.       # same thing in reversed order
  1027. !     @articles = sort {$b cmp $a;} @files;
  1028.   
  1029.   .ne 2
  1030.       # sort numerically ascending
  1031. !     @articles = sort {$a <=> $b;} @files;
  1032.   
  1033.   .ne 2
  1034.       # sort numerically descending
  1035. !     @articles = sort {$b <=> $a;} @files;
  1036.   
  1037.   .ne 5
  1038.       # sort using explicit subroutine name
  1039. --- 3718,3736 ----
  1040.   
  1041.   .ne 2
  1042.       # same thing, but with explicit sort routine
  1043. !     @articles = sort {$a cmp $b} @files;
  1044.   
  1045.   .ne 2
  1046.       # same thing in reversed order
  1047. !     @articles = sort {$b cmp $a} @files;
  1048.   
  1049.   .ne 2
  1050.       # sort numerically ascending
  1051. !     @articles = sort {$a <=> $b} @files;
  1052.   
  1053.   .ne 2
  1054.       # sort numerically descending
  1055. !     @articles = sort {$b <=> $a} @files;
  1056.   
  1057.   .ne 5
  1058.       # sort using explicit subroutine name
  1059. ***************
  1060. *** 3826,3831 ****
  1061. --- 3883,3889 ----
  1062.   .Ip "stat SCALARVARIABLE" 8
  1063.   Returns a 13-element array giving the statistics for a file, either the file
  1064.   opened via FILEHANDLE, or named by EXPR.
  1065. + Returns a null list if the stat fails.
  1066.   Typically used as follows:
  1067.   .nf
  1068.   
  1069. ***************
  1070. *** 3902,3908 ****
  1071.   .ne 12
  1072.       $search = \'while (<>) { study;\';
  1073.       foreach $word (@words) {
  1074. !         $search .= "++\e$seen{\e$ARGV} if /\eb$word\eb/;\en";
  1075.       }
  1076.       $search .= "}";
  1077.       @ARGV = @files;
  1078. --- 3960,3966 ----
  1079.   .ne 12
  1080.       $search = \'while (<>) { study;\';
  1081.       foreach $word (@words) {
  1082. !         $search .= "++\e$seen{\e$ARGV} if /\e\eb$word\e\eb/;\en";
  1083.       }
  1084.       $search .= "}";
  1085.       @ARGV = @files;
  1086. ***************
  1087. *** 4023,4028 ****
  1088. --- 4081,4089 ----
  1089.   .I y
  1090.   is provided as a synonym for
  1091.   .IR tr .
  1092. + If the SEARCHLIST is delimited by bracketing quotes, the REPLACEMENTLIST
  1093. + has its own pair of quotes, which may or may not be bracketing quotes, e.g.
  1094. + tr[A-Z][a-z] or tr(+-*/)/ABCD/.
  1095.   .Sp
  1096.   If the c modifier is specified, the SEARCHLIST character set is complemented.
  1097.   If the d modifier is specified, any characters specified by SEARCHLIST that
  1098. ***************
  1099. *** 4880,4885 ****
  1100. --- 4941,4952 ----
  1101.   if set to the null string.
  1102.   You may set it to a multicharacter string to match a multi-character
  1103.   delimiter.
  1104. + Note that setting it to "\en\en" means something slightly different
  1105. + than setting it to "", if the file contains consecutive blank lines.
  1106. + Setting it to "" will treat two or more consecutive blank lines as a single
  1107. + blank line.
  1108. + Setting it to "\en\en" will blindly assume that the next input character
  1109. + belongs to the next paragraph, even if it's a newline.
  1110.   (Mnemonic: / is used to delimit line boundaries when quoting poetry.)
  1111.   .Ip $, 8
  1112.   The output field separator for the print operator.
  1113. ***************
  1114. *** 4974,4989 ****
  1115.   there was a core dump.
  1116.   (Mnemonic: similar to sh and ksh.)
  1117.   .Ip $& 8 4
  1118. ! The string matched by the last pattern match (not counting any matches hidden
  1119.   within a BLOCK or eval enclosed by the current BLOCK).
  1120.   (Mnemonic: like & in some editors.)
  1121.   .Ip $\` 8 4
  1122. ! The string preceding whatever was matched by the last pattern match
  1123.   (not counting any matches hidden within a BLOCK or eval enclosed by the current
  1124.   BLOCK).
  1125.   (Mnemonic: \` often precedes a quoted string.)
  1126.   .Ip $\' 8 4
  1127. ! The string following whatever was matched by the last pattern match
  1128.   (not counting any matches hidden within a BLOCK or eval enclosed by the current
  1129.   BLOCK).
  1130.   (Mnemonic: \' often follows a quoted string.)
  1131. --- 5041,5057 ----
  1132.   there was a core dump.
  1133.   (Mnemonic: similar to sh and ksh.)
  1134.   .Ip $& 8 4
  1135. ! The string matched by the last successful pattern match
  1136. ! (not counting any matches hidden
  1137.   within a BLOCK or eval enclosed by the current BLOCK).
  1138.   (Mnemonic: like & in some editors.)
  1139.   .Ip $\` 8 4
  1140. ! The string preceding whatever was matched by the last successful pattern match
  1141.   (not counting any matches hidden within a BLOCK or eval enclosed by the current
  1142.   BLOCK).
  1143.   (Mnemonic: \` often precedes a quoted string.)
  1144.   .Ip $\' 8 4
  1145. ! The string following whatever was matched by the last successful pattern match
  1146.   (not counting any matches hidden within a BLOCK or eval enclosed by the current
  1147.   BLOCK).
  1148.   (Mnemonic: \' often follows a quoted string.)
  1149. ***************
  1150. *** 5158,5163 ****
  1151. --- 5226,5233 ----
  1152.   (Mnemonic: value of
  1153.   .B \-i
  1154.   switch.)
  1155. + .Ip $^L 8 2
  1156. + What formats output to perform a formfeed.  Default is \ef.
  1157.   .Ip $^P 8 2
  1158.   The internal flag that the debugger clears so that it doesn't
  1159.   debug itself.  You could conceivable disable debugging yourself
  1160. ***************
  1161. *** 5635,5648 ****
  1162.   The tainting mechanism is intended to prevent stupid mistakes, not to remove
  1163.   the need for thought.
  1164.   .SH ENVIRONMENT
  1165. ! .I Perl
  1166. ! uses PATH in executing subprocesses, and in finding the script if \-S
  1167.   is used.
  1168. ! HOME or LOGDIR are used if chdir has no argument.
  1169.   .PP
  1170.   Apart from these,
  1171.   .I perl
  1172. ! uses no environment variables, except to make them available
  1173.   to the script being executed, and to child processes.
  1174.   However, scripts running setuid would do well to execute the following lines
  1175.   before doing anything else, just to keep people honest:
  1176. --- 5705,5730 ----
  1177.   The tainting mechanism is intended to prevent stupid mistakes, not to remove
  1178.   the need for thought.
  1179.   .SH ENVIRONMENT
  1180. ! .Ip HOME 12 4
  1181. ! Used if chdir has no argument.
  1182. ! .Ip LOGDIR 12 4
  1183. ! Used if chdir has no argument and HOME is not set.
  1184. ! .Ip PATH 12 4
  1185. ! Used in executing subprocesses, and in finding the script if \-S
  1186.   is used.
  1187. ! .Ip PERLLIB 12 4
  1188. ! A colon-separated list of directories in which to look for Perl library
  1189. ! files before looking in the standard library and the current directory.
  1190. ! .Ip PERLDB 12 4
  1191. ! The command used to get the debugger code.  If unset, uses
  1192. ! .br
  1193. ! 
  1194. !     require 'perldb.pl'
  1195. ! 
  1196.   .PP
  1197.   Apart from these,
  1198.   .I perl
  1199. ! uses no other environment variables, except to make them available
  1200.   to the script being executed, and to child processes.
  1201.   However, scripts running setuid would do well to execute the following lines
  1202.   before doing anything else, just to keep people honest:
  1203. ***************
  1204. *** 5686,5694 ****
  1205.   users should take special note of the following:
  1206.   .Ip * 4 2
  1207.   Semicolons are required after all simple statements in
  1208. ! .IR perl .
  1209. ! Newline
  1210. ! is not a statement delimiter.
  1211.   .Ip * 4 2
  1212.   Curly brackets are required on ifs and whiles.
  1213.   .Ip * 4 2
  1214. --- 5768,5776 ----
  1215.   users should take special note of the following:
  1216.   .Ip * 4 2
  1217.   Semicolons are required after all simple statements in
  1218. ! .I perl
  1219. ! (except at the end of a block).
  1220. ! Newline is not a statement delimiter.
  1221.   .Ip * 4 2
  1222.   Curly brackets are required on ifs and whiles.
  1223.   .Ip * 4 2
  1224. ***************
  1225. *** 5917,5922 ****
  1226. --- 5999,6005 ----
  1227.   from memory size), there are still a few arbitrary limits:
  1228.   a given identifier may not be longer than 255 characters,
  1229.   and no component of your PATH may be longer than 255 if you use \-S.
  1230. + A regular expression may not compile to more than 32767 bytes internally.
  1231.   .PP
  1232.   .I Perl
  1233.   actually stands for Pathologically Eclectic Rubbish Lister, but don't tell
  1234.  
  1235. Index: atarist/perldb.diff
  1236. *** atarist/perldb.diff.old    Mon Jun  8 17:35:23 1992
  1237. --- atarist/perldb.diff    Mon Jun  8 17:44:46 1992
  1238. ***************
  1239. *** 0 ****
  1240. --- 1,179 ----
  1241. + *** ../../../lib/perldb.pl    Mon Nov 11 10:40:22 1991
  1242. + --- perldb.pl    Mon May 18 17:00:56 1992
  1243. + ***************
  1244. + *** 1,10 ****
  1245. +   package DB;
  1246. +   
  1247. + ! # modified Perl debugger, to be run from Emacs in perldb-mode
  1248. + ! # Ray Lischner (uunet!mntgfx!lisch) as of 5 Nov 1990
  1249. + ! # Johan Vromans -- upgrade to 4.0 pl 10
  1250. + ! 
  1251. + ! $header = '$RCSfile: perldb.diff,v $$Revision: 4.0.1.1 $$Date: 92/06/08 11:50:28 $';
  1252. +   #
  1253. +   # This file is automatically included if you do perl -d.
  1254. +   # It's probably not useful to include this yourself.
  1255. + --- 1,6 ----
  1256. +   package DB;
  1257. +   
  1258. + ! $header = '$RCSfile: perldb.diff,v $$Revision: 4.0.1.1 $$Date: 92/06/08 11:50:28 $';
  1259. +   #
  1260. +   # This file is automatically included if you do perl -d.
  1261. +   # It's probably not useful to include this yourself.
  1262. + ***************
  1263. + *** 14,22 ****
  1264. +   # have a breakpoint.  It also inserts a do 'perldb.pl' before the first line.
  1265. +   #
  1266. +   # $Log:    perldb.diff,v $
  1267. +   # Revision 4.0.1.1  92/06/08  11:50:28  lwall
  1268. +   # Initial revision
  1269. +   # 
  1270. + - # Revision 4.0.1.2  91/11/05  17:55:58  lwall
  1271. + - # patch11: perldb.pl modified to run within emacs in perldb-mode
  1272. + - # 
  1273. +   # Revision 4.0.1.1  91/06/07  11:17:44  lwall
  1274. +   # patch4: added $^P variable to control calling of perldb routines
  1275. +   # patch4: debugger sometimes listed wrong number of lines for a statement
  1276. + --- 10,15 ----
  1277. + ***************
  1278. + *** 56,63 ****
  1279. +   # 
  1280. +   #
  1281. +   
  1282. + ! open(IN, "</dev/tty") || open(IN,  "<&STDIN");    # so we don't dingle stdin
  1283. + ! open(OUT,">/dev/tty") || open(OUT, ">&STDOUT");    # so we don't dongle stdout
  1284. +   select(OUT);
  1285. +   $| = 1;                # for DB'OUT
  1286. +   select(STDOUT);
  1287. + --- 49,56 ----
  1288. +   # 
  1289. +   #
  1290. +   
  1291. + ! open(IN, "</dev/console") || open(IN,  "<&STDIN");    # so we don't dingle stdin
  1292. + ! open(OUT,">/dev/console") || open(OUT, ">&STDOUT");    # so we don't dongle stdout
  1293. +   select(OUT);
  1294. +   $| = 1;                # for DB'OUT
  1295. +   select(STDOUT);
  1296. + ***************
  1297. + *** 64,79 ****
  1298. +   $| = 1;                # for real STDOUT
  1299. +   $sub = '';
  1300. +   
  1301. + - # Is Perl being run from Emacs?
  1302. + - $emacs = $main'ARGV[$[] eq '-emacs';
  1303. + - shift(@main'ARGV) if $emacs;
  1304. + - 
  1305. +   $header =~ s/.Header: ([^,]+),v(\s+\S+\s+\S+).*$/$1$2/;
  1306. + ! print OUT "\nLoading DB routines from $header\n";
  1307. + ! print OUT ("Emacs support ",
  1308. + !        $emacs ? "enabled" : "available",
  1309. + !        ".\n");
  1310. + ! print OUT "\nEnter h for help.\n\n";
  1311. +   
  1312. +   sub DB {
  1313. +       &save;
  1314. + --- 57,64 ----
  1315. +   $| = 1;                # for real STDOUT
  1316. +   $sub = '';
  1317. +   
  1318. +   $header =~ s/.Header: ([^,]+),v(\s+\S+\s+\S+).*$/$1$2/;
  1319. + ! print OUT "\nLoading DB routines from $header\n\nEnter h for help.\n\n";
  1320. +   
  1321. +   sub DB {
  1322. +       &save;
  1323. + ***************
  1324. + *** 93,107 ****
  1325. +       }
  1326. +       }
  1327. +       if ($single || $trace || $signal) {
  1328. + !     if ($emacs) {
  1329. + !         print OUT "\032\032$filename:$line:0\n";
  1330. + !     } else {
  1331. + !         print OUT "$package'" unless $sub =~ /'/;
  1332. + !         print OUT "$sub($filename:$line):\t",$dbline[$line];
  1333. + !         for ($i = $line + 1; $i <= $max && $dbline[$i] == 0; ++$i) {
  1334. + !         last if $dbline[$i] =~ /^\s*(}|#|\n)/;
  1335. + !         print OUT "$sub($filename:$i):\t",$dbline[$i];
  1336. + !         }
  1337. +       }
  1338. +       }
  1339. +       $evalarg = $action, &eval if $action;
  1340. + --- 78,88 ----
  1341. +       }
  1342. +       }
  1343. +       if ($single || $trace || $signal) {
  1344. + !     print OUT "$package'" unless $sub =~ /'/;
  1345. + !     print OUT "$sub($filename:$line):\t",$dbline[$line];
  1346. + !     for ($i = $line + 1; $i <= $max && $dbline[$i] == 0; ++$i) {
  1347. + !         last if $dbline[$i] =~ /^\s*(;|}|#|\n)/;
  1348. + !         print OUT "$sub($filename:$i):\t",$dbline[$i];
  1349. +       }
  1350. +       }
  1351. +       $evalarg = $action, &eval if $action;
  1352. + ***************
  1353. + *** 263,276 ****
  1354. +               $i = $2;
  1355. +               $i = $line if $i eq '.';
  1356. +               $i = 1 if $i < 1;
  1357. + !             if ($emacs) {
  1358. + !             print OUT "\032\032$filename:$i:0\n";
  1359. + !             $i = $end;
  1360. + !             } else {
  1361. + !             for (; $i <= $end; $i++) {
  1362. + !                 print OUT "$i:\t", $dbline[$i];
  1363. + !                 last if $signal;
  1364. + !             }
  1365. +               }
  1366. +               $start = $i;    # remember in case they want more
  1367. +               $start = $max if $start > $max;
  1368. + --- 244,252 ----
  1369. +               $i = $2;
  1370. +               $i = $line if $i eq '.';
  1371. +               $i = 1 if $i < 1;
  1372. + !             for (; $i <= $end; $i++) {
  1373. + !             print OUT "$i:\t", $dbline[$i];
  1374. + !             last if $signal;
  1375. +               }
  1376. +               $start = $i;    # remember in case they want more
  1377. +               $start = $max if $start > $max;
  1378. + ***************
  1379. + *** 417,427 ****
  1380. +               $start = 1 if ($start > $max);
  1381. +               last if ($start == $end);
  1382. +               if ($dbline[$start] =~ m'."\n$pat\n".'i) {
  1383. + !                 if ($emacs) {
  1384. + !                 print OUT "\032\032$filename:$start:0\n";
  1385. + !                 } else {
  1386. + !                 print OUT "$start:\t", $dbline[$start], "\n";
  1387. + !                 }
  1388. +                   last;
  1389. +               }
  1390. +               } ';
  1391. + --- 393,399 ----
  1392. +               $start = 1 if ($start > $max);
  1393. +               last if ($start == $end);
  1394. +               if ($dbline[$start] =~ m'."\n$pat\n".'i) {
  1395. + !                 print OUT "$start:\t", $dbline[$start], "\n";
  1396. +                   last;
  1397. +               }
  1398. +               } ';
  1399. + ***************
  1400. + *** 445,455 ****
  1401. +               $start = $max if ($start <= 0);
  1402. +               last if ($start == $end);
  1403. +               if ($dbline[$start] =~ m'."\n$pat\n".'i) {
  1404. + !                 if ($emacs) {
  1405. + !                 print OUT "\032\032$filename:$start:0\n";
  1406. + !                 } else {
  1407. + !                 print OUT "$start:\t", $dbline[$start], "\n";
  1408. + !                 }
  1409. +                   last;
  1410. +               }
  1411. +               } ';
  1412. + --- 417,423 ----
  1413. +               $start = $max if ($start <= 0);
  1414. +               last if ($start == $end);
  1415. +               if ($dbline[$start] =~ m'."\n$pat\n".'i) {
  1416. + !                 print OUT "$start:\t", $dbline[$start], "\n";
  1417. +                   last;
  1418. +               }
  1419. +               } ';
  1420.  
  1421. Index: lib/perldb.pl
  1422. Prereq: 4.0.1.2
  1423. *** lib/perldb.pl.old    Mon Jun  8 17:49:06 1992
  1424. --- lib/perldb.pl    Mon Jun  8 17:49:07 1992
  1425. ***************
  1426. *** 4,10 ****
  1427.   # Ray Lischner (uunet!mntgfx!lisch) as of 5 Nov 1990
  1428.   # Johan Vromans -- upgrade to 4.0 pl 10
  1429.   
  1430. ! $header = '$RCSfile: perldb.pl,v $$Revision: 4.0.1.2 $$Date: 91/11/05 17:55:58 $';
  1431.   #
  1432.   # This file is automatically included if you do perl -d.
  1433.   # It's probably not useful to include this yourself.
  1434. --- 4,10 ----
  1435.   # Ray Lischner (uunet!mntgfx!lisch) as of 5 Nov 1990
  1436.   # Johan Vromans -- upgrade to 4.0 pl 10
  1437.   
  1438. ! $header = '$RCSfile: perldb.pl,v $$Revision: 4.0.1.3 $$Date: 92/06/08 13:43:57 $';
  1439.   #
  1440.   # This file is automatically included if you do perl -d.
  1441.   # It's probably not useful to include this yourself.
  1442. ***************
  1443. *** 14,19 ****
  1444. --- 14,23 ----
  1445.   # have a breakpoint.  It also inserts a do 'perldb.pl' before the first line.
  1446.   #
  1447.   # $Log:    perldb.pl,v $
  1448. + # Revision 4.0.1.3  92/06/08  13:43:57  lwall
  1449. + # patch20: support for MSDOS folded into perldb.pl
  1450. + # patch20: perldb couldn't debug file containing '-', such as STDIN designator
  1451. + # 
  1452.   # Revision 4.0.1.2  91/11/05  17:55:58  lwall
  1453.   # patch11: perldb.pl modified to run within emacs in perldb-mode
  1454.   # 
  1455. ***************
  1456. *** 56,63 ****
  1457.   # 
  1458.   #
  1459.   
  1460. ! open(IN, "</dev/tty") || open(IN,  "<&STDIN");    # so we don't dingle stdin
  1461. ! open(OUT,">/dev/tty") || open(OUT, ">&STDOUT");    # so we don't dongle stdout
  1462.   select(OUT);
  1463.   $| = 1;                # for DB'OUT
  1464.   select(STDOUT);
  1465. --- 60,76 ----
  1466.   # 
  1467.   #
  1468.   
  1469. ! if (-e "/dev/tty") {
  1470. !     $console = "/dev/tty";
  1471. !     $rcfile=".perldb";
  1472. ! }
  1473. ! else {
  1474. !     $console = "con";
  1475. !     $rcfile="perldb.ini";
  1476. ! }
  1477. ! 
  1478. ! open(IN, "<$console") || open(IN,  "<&STDIN");    # so we don't dingle stdin
  1479. ! open(OUT,">$console") || open(OUT, ">&STDOUT");    # so we don't dongle stdout
  1480.   select(OUT);
  1481.   $| = 1;                # for DB'OUT
  1482.   select(STDOUT);
  1483. ***************
  1484. *** 304,310 ****
  1485.               $cond = $2 || '1';
  1486.               $subname = "$package'" . $subname unless $subname =~ /'/;
  1487.               $subname = "main" . $subname if substr($subname,0,1) eq "'";
  1488. !             ($filename,$i) = split(/[:-]/, $sub{$subname});
  1489.               if ($i) {
  1490.               *dbline = "_<$filename";
  1491.               ++$i while $dbline[$i] == 0 && $i < $#dbline;
  1492. --- 317,324 ----
  1493.               $cond = $2 || '1';
  1494.               $subname = "$package'" . $subname unless $subname =~ /'/;
  1495.               $subname = "main" . $subname if substr($subname,0,1) eq "'";
  1496. !             ($filename,$i) = split(/:/, $sub{$subname});
  1497. !             $i += 0;
  1498.               if ($i) {
  1499.               *dbline = "_<$filename";
  1500.               ++$i while $dbline[$i] == 0 && $i < $#dbline;
  1501. ***************
  1502. *** 568,581 ****
  1503.       s/(.*)/'$1'/ unless /^-?[\d.]+$/;
  1504.   }
  1505.   
  1506. ! if (-f '.perldb') {
  1507. !     do './.perldb';
  1508.   }
  1509. ! elsif (-f "$ENV{'LOGDIR'}/.perldb") {
  1510. !     do "$ENV{'LOGDIR'}/.perldb";
  1511.   }
  1512. ! elsif (-f "$ENV{'HOME'}/.perldb") {
  1513. !     do "$ENV{'HOME'}/.perldb";
  1514.   }
  1515.   
  1516.   1;
  1517. --- 582,595 ----
  1518.       s/(.*)/'$1'/ unless /^-?[\d.]+$/;
  1519.   }
  1520.   
  1521. ! if (-f $rcfile) {
  1522. !     do "./$rcfile";
  1523.   }
  1524. ! elsif (-f "$ENV{'LOGDIR'}/$rcfile") {
  1525. !     do "$ENV{'LOGDIR'}/$rcfile";
  1526.   }
  1527. ! elsif (-f "$ENV{'HOME'}/$rcfile") {
  1528. !     do "$ENV{'HOME'}/$rcfile";
  1529.   }
  1530.   
  1531.   1;
  1532.  
  1533. Index: atarist/perlglob.c
  1534. *** atarist/perlglob.c.old    Mon Jun  8 17:44:50 1992
  1535. --- atarist/perlglob.c    Mon Jun  8 17:44:51 1992
  1536. ***************
  1537. *** 0 ****
  1538. --- 1,45 ----
  1539. + /*
  1540. +  * glob and echo any globbed args
  1541. +  *
  1542. +  *  ++jrb  bammi@cadence.com
  1543. +  */
  1544. + 
  1545. + #include <stdio.h>
  1546. + 
  1547. + #if __STDC__
  1548. + # include <compiler.h>
  1549. + #else
  1550. + # define __PROTO(X) ()
  1551. + #endif
  1552. + 
  1553. + char    **glob __PROTO((char *patt, int decend_dir));
  1554. + int    contains_wild __PROTO((char *patt));
  1555. + void    free_all __PROTO((void));
  1556. + 
  1557. + 
  1558. + int main(argc, argv)
  1559. + int argc;
  1560. + char **argv;
  1561. + {
  1562. +     --argc; ++argv;
  1563. +     while(argc--)
  1564. +     {
  1565. +     char *word = *argv;
  1566. +     char **list;
  1567. +     int did_some = 0;
  1568. + 
  1569. +     if(contains_wild(word) && (list = glob(word, 0)))
  1570. +     {
  1571. +         while(*list)
  1572. +         {
  1573. +         fputs(*list, stdout);
  1574. +             if(*++list) putchar(' ');
  1575. +         }
  1576. +         free_all();
  1577. +         did_some = 1;
  1578. +     }
  1579. +     if(*++argv && did_some) putchar(' ');
  1580. +     }
  1581. +     putchar('\0');
  1582. +     return 0;
  1583. + }
  1584.  
  1585. Index: os2/perlglob.cs
  1586. *** os2/perlglob.cs.old    Mon Jun  8 17:50:11 1992
  1587. --- os2/perlglob.cs    Mon Jun  8 17:50:11 1992
  1588. ***************
  1589. *** 1,9 ****
  1590.   os2\glob.c
  1591. - (-DPERLGLOB os2\director.c)
  1592.   
  1593.   setargv.obj
  1594. ! os2\perlglob.def
  1595. ! os2\perlglob.bad
  1596.   perlglob.exe
  1597.   
  1598.   -AS -LB -S0x1000
  1599. --- 1,9 ----
  1600.   os2\glob.c
  1601.   
  1602.   setargv.obj
  1603. ! 
  1604. ! os2\perl.def
  1605. ! os2\perl.bad
  1606.   perlglob.exe
  1607.   
  1608.   -AS -LB -S0x1000
  1609.  
  1610. Index: os2/perlglob.def
  1611. *** os2/perlglob.def.old    Mon Jun  8 17:50:13 1992
  1612. --- os2/perlglob.def    Mon Jun  8 17:50:13 1992
  1613. ***************
  1614. *** 1,2 ****
  1615. ! NAME PERLGLOB WINDOWCOMPAT NEWFILES
  1616. ! DESCRIPTION 'Filename globbing for PERL - for MS-DOS and OS/2'
  1617. --- 1 ----
  1618. ! (deprecated)
  1619.  
  1620. Index: os2/popen.c
  1621. *** os2/popen.c.old    Mon Jun  8 17:50:15 1992
  1622. --- os2/popen.c    Mon Jun  8 17:50:15 1992
  1623. ***************
  1624. *** 65,71 ****
  1625.           if ( _osmode == DOS_MODE )
  1626.             return dos_popen(cmd, mode);
  1627.   
  1628. !     if (DosMakePipe((PHFILE) &p[0], (PHFILE) &p[1], 4096) < 0)
  1629.                   return NULL;
  1630.   
  1631.           myside = tst(p[WRITEH], p[READH]);
  1632. --- 65,71 ----
  1633.           if ( _osmode == DOS_MODE )
  1634.             return dos_popen(cmd, mode);
  1635.   
  1636. !         if ( _pipe(p, 4096, 0) )
  1637.                   return NULL;
  1638.   
  1639.           myside = tst(p[WRITEH], p[READH]);
  1640. ***************
  1641. *** 124,130 ****
  1642.   {
  1643.     int res;
  1644.   
  1645. !   if ( res = DosMakePipe((PHFILE) &filedes[0], (PHFILE) &filedes[1], 4096) )
  1646.       return res;
  1647.   
  1648.     DosSetFHandState(filedes[0], OPEN_FLAGS_NOINHERIT);
  1649. --- 124,130 ----
  1650.   {
  1651.     int res;
  1652.   
  1653. !   if ( res = _pipe(filedes, 4096, 0) )
  1654.       return res;
  1655.   
  1656.     DosSetFHandState(filedes[0], OPEN_FLAGS_NOINHERIT);
  1657. ***************
  1658. *** 149,154 ****
  1659. --- 149,155 ----
  1660.   {
  1661.       FILE *current;
  1662.       char name[128];
  1663. +     char *tmp = getenv("TMP");
  1664.       int cur;
  1665.       pipemode curmode;
  1666.   
  1667. ***************
  1668. *** 165,172 ****
  1669.       /*
  1670.       ** get a name to use.
  1671.       */
  1672. !     strcpy(name, "piXXXXXX");
  1673. !     Mktemp(name);
  1674.   
  1675.       /*
  1676.       ** If we're reading, just call system to get a file filled with
  1677. --- 166,176 ----
  1678.       /*
  1679.       ** get a name to use.
  1680.       */
  1681. !     strcpy(name, tmp ? tmp : "\\");
  1682. !     if ( name[strlen(name) - 1] != '\\' )
  1683. !       strcat(name, "\\");
  1684. !     strcat(name, "piXXXXXX");
  1685. !     mktemp(name);
  1686.   
  1687.       /*
  1688.       ** If we're reading, just call system to get a file filled with
  1689.  
  1690. Index: atarist/test/printenv
  1691. *** atarist/test/printenv.old    Mon Jun  8 17:45:16 1992
  1692. --- atarist/test/printenv    Mon Jun  8 17:45:16 1992
  1693. ***************
  1694. *** 0 ****
  1695. --- 1,16 ----
  1696. + $exit = 0;
  1697. + $\ = "\n";
  1698. + if($#ARGV >= 0) {
  1699. +     foreach (@ARGV) {
  1700. +     if(defined $ENV{$_}) {
  1701. +         print $ENV{$_};
  1702. +         } else {
  1703. +         $exit = 1;
  1704. +         }
  1705. +     }
  1706. + } else {
  1707. +     foreach (sort keys %ENV) {
  1708. +     print $_, '=', $ENV{$_};
  1709. +     }
  1710. + }
  1711. + exit $exit;
  1712.  
  1713. Index: hints/solaris_2_0.sh
  1714. *** hints/solaris_2_0.sh.old    Mon Jun  8 17:48:20 1992
  1715. --- hints/solaris_2_0.sh    Mon Jun  8 17:48:21 1992
  1716. ***************
  1717. *** 0 ****
  1718. --- 1 ----
  1719. + d_vfork='undef'
  1720.  
  1721. *** End of Patch 29 ***
  1722. exit 0 # Just in case...
  1723.