/* -*-c-*-
*
- * $Id: become.c,v 1.24 2003/10/15 09:27:06 mdw Exp $
+ * $Id: become.c,v 1.25 2003/11/29 23:39:16 mdw Exp $
*
* Main code for `become'
*
/*----- Revision history --------------------------------------------------*
*
* $Log: become.c,v $
+ * Revision 1.25 2003/11/29 23:39:16 mdw
+ * Debianization.
+ *
* Revision 1.24 2003/10/15 09:27:06 mdw
* Make sure standard file descriptors are open before starting properly.
*
for (pp = banned; *pp; pp++) {
if (**pp == '-') {
p = *pp + 1;
- if (memcmp(e->_base.name, p, strlen(p)) == 0)
+ if (strncmp(e->_base.name, p, strlen(p)) == 0)
goto expunge;
} else if (strcmp(e->_base.name, *pp) == 0)
goto expunge;