/* -*-c-*-
*
- * $Id: quis.c,v 1.1 1998/06/17 23:44:42 mdw Exp $
+ * $Id: quis.c,v 1.2 1999/02/28 15:16:29 mdw Exp $
*
* Setting the program name
*
/*----- Revision history --------------------------------------------------*
*
* $Log: quis.c,v $
- * Revision 1.1 1998/06/17 23:44:42 mdw
- * Initial revision
+ * Revision 1.2 1999/02/28 15:16:29 mdw
+ * quis: remove the leading `-' from the name, in case we're invoked as a
+ * login shell.
+ *
+ * Revision 1.1.1.1 1998/06/17 23:44:42 mdw
+ * Initial version of mLib
*
*/
if (*q++ == PATHSEP)
p = q;
}
+ if (*p == '-')
+ p++;
pn__name = p;
}