perl 2.0 patch #8

[The Superuser]

System: perl version 2.0
Patch #: 8
Priority: HIGH on Suns
Subject: globs fail on Suns
From: peterli at mis.ucsf.EDU (Peter Li)

Description:
	The op.stat test has a NULL dereference because patch2 was incomplete.
	It shows up when trying to do file globs.  Ordinarily I test on Suns
	but this one snuck by somehow.  Sorry.  I promise I won't send any
	more patches.  Well, not for the next 8 hours, anyway...

Fix:	From rn, say "| patch -p -N -d DIR", where DIR is your perl source
	directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
	If you don't have the patch program, apply the following by hand,
	or get patch (version 2.0, latest patchlevel (12 currently)).

	After patching:
		make
		make test
		make install

	If patch indicates that patchlevel is the wrong version, you may need
	to apply one or more previous patches, or the patch may already
	have been applied.  See the patchlevel.h file to find out what has or
	has not been applied.  In any event, don't continue with the patch.

	If you are missing previous patches they can be obtained from me:

	Larry Wall
	lwall at jpl-devvax.jpl.nasa.gov

	If you send a mail message of the following form it will greatly speed
	processing:

	Subject: Command
	@SH mailpatch PATH perl 2.0 LIST
		   ^ note the c

	where PATH is a return path FROM ME TO YOU either in Internet notation,
	or in bang notation from some well-known host, and LIST is the number
	of one or more patches you need, separated by spaces, commas, and/or
	hyphens.  Saying 35- says everything from 35 to the end.


	You can also get the patches via anonymous FTP from
	jpl-devvax.jpl.nasa.gov (128.149.8.43).

Index: patchlevel.h
Prereq: 7
1c1
< #define PATCHLEVEL 7
---
> #define PATCHLEVEL 8

Index: eval.c
Prereq: 2.0.1.2
*** eval.c.old	Wed Jul 13 21:21:49 1988
--- eval.c	Wed Jul 13 21:21:51 1988
***************
*** 1,6 ****
! /* $Header: eval.c,v 2.0.1.2 88/07/12 17:16:15 root Exp $
   *
   * $Log:	eval.c,v $
   * Revision 2.0.1.2  88/07/12  17:16:15  root
   * patch6: removed uselss ++
   * 
--- 1,9 ----
! /* $Header: eval.c,v 2.0.1.3 88/07/13 21:21:35 root Exp $
   *
   * $Log:	eval.c,v $
+  * Revision 2.0.1.3  88/07/13  21:21:35  root
+  * patch8: changed occurences of vestigial tmps to tmpstr
+  * 
   * Revision 2.0.1.2  88/07/12  17:16:15  root
   * patch6: removed uselss ++
   * 
***************
*** 274,283 ****
  		    else if (argtype == A_GLOB) {
  			(void) interp(str,str_get(last_in_stab->stab_val));
  			tmpstr = str_new(0);
! 			if (*tmps == '!')
  			    str_sset(tmpstr,str),str_cat(tmpstr,"|");
  			else {
! 			    if (*tmps == ';')
  				str_set(tmpstr,str->str_ptr+1);
  			    else
  				str_set(tmpstr, "echo "), str_scat(tmpstr,str);
--- 277,286 ----
  		    else if (argtype == A_GLOB) {
  			(void) interp(str,str_get(last_in_stab->stab_val));
  			tmpstr = str_new(0);
! 			if (*str->str_ptr == '!')
  			    str_sset(tmpstr,str),str_cat(tmpstr,"|");
  			else {
! 			    if (*str->str_ptr == ';')
  				str_set(tmpstr,str->str_ptr+1);
  			    else
  				str_set(tmpstr, "echo "), str_scat(tmpstr,str);