From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from munnari.oz.au ([128.250.1.21]) by archone.tamu.edu with SMTP id <22543>; Sun, 30 Jun 1991 09:24:47 -0500
Received: from basser.cs.su.oz by munnari.oz.au with SunIII (5.64+1.3.1+0.50)
	id AA05592; Mon, 1 Jul 1991 00:24:21 +1000 (from dhog@basser.cs.su.OZ.AU)
Date: Sun, 30 Jun 1991 07:21:06 -0500
From: David Hogan <dhog@cs.su.oz.au>
To: The Rc Mailing List <rc%archone.tamu.edu@munnari.oz.au>
Subject: Rc globbing bug, with fix
Message-Id: <9106302221.21747.rc.babab@cs.su.oz.au>
X-Face: 'B4A5xr.&(*ne}8,IvVj2^PS"?tx:^[d%W3qSI-pYcRS4#L]H1avGI62"ufA.",n<fvsFZi
 }0*JvX&`K?L5a\,D+`B9q@:lSV(}($;PKj;dae2=fyYD={/mDT3X^!h+m7QMfLs.VrPI79b~PqrrDT
 ,qcg/W.@c]7tu&{b@aZu#Zok?aKhAr;[R+[T@(2b=&[NCLzVn~H!C3(;6BAe'E{w6Y$_]qUAH9dA4]
 X%

I run rc under MIPS RISC/os, compiled using -systype bsd43.  I ran into
the following problem: if you type echo */* in a directory which contains
any regular files, rc dumps core.  After much painstaking debugging,
I discovered that rc was calling opendir() on every file in the directory,
and it was succeeding, even for regular files, as it will on many systems.
(It is neccessary for opendir() to succeed on regular files so that the -f
option to the bsd version of ls will work).

The problem, then, is in rc: it must not assume that opendir() will fail if
the pathname it is given is not that of a directory.  The fix is quite
simple: add a call to stat() inside dmatch, as the following patch
to glob.c does:

*** glob.c.old	Sun Jun 30 22:14:31 1991
--- glob.c	Sun Jun 30 22:14:41 1991
***************
*** 1,6 ****
--- 1,7 ----
  /* glob.c: rc's (ugly) globber. This code is not elegant, but it works */
  
  #include <sys/types.h>
+ #include <sys/stat.h>
  #include "rc.h"
  #include "glob.h"
  #include "glom.h"
***************
*** 78,88 ****
--- 79,94 ----
  	List *top, *r;
  	DIR *dirp;
  	struct dirent *dp;
+ 	struct stat stbuf;
  	/* prototypes for XXXdir functions. comment out if necessary */
  	extern DIR *opendir(const char *);
  	extern struct dirent *readdir(DIR *);
  	extern int closedir(DIR *);
  
+ 	/* First check that d is a directory -- on many systems, opendir
+ 	   will succeed even if it isn't -- to our great peril! */
+ 	if (stat(d, &stbuf) < 0 || (stbuf.st_mode & S_IFMT) != S_IFDIR)
+ 		return NULL;
  	if ((dirp = opendir(d)) == NULL)
  		return NULL;