quis: remove the leading `-' from the name, in case we're invoked as a

login shell.

diff --git a/quis.c b/quis.c
index 34b0f1f5a1d9d90e68a1bea6e2cb04e076385a7d..ca14d164a02605d8ad6ceed136818adc35511dea 100644 (file)
--- a/quis.c
+++ b/quis.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
 /* -*-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
  *
  *
  * Setting the program name
  *


@@ -29,8 +29,12 @@
 /*----- Revision history --------------------------------------------------*
  *
  * $Log: quis.c,v $
 /*----- 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

  *
  */
 
  *
  */
 


@@ -86,6 +90,8 @@ void ego(const char *p)
     if (*q++ == PATHSEP)
       p = q;
   }
     if (*q++ == PATHSEP)
       p = q;
   }

+  if (*p == '-')
+    p++;

   pn__name = p;
 }
 
   pn__name = p;
 }