From 1c66031eaa646ea09f79e6af0db473b571e47363 Mon Sep 17 00:00:00 2001
From: mdw <mdw>
Date: Sun, 28 Feb 1999 15:16:29 +0000
Subject: [PATCH] quis: remove the leading `-' from the name, in case we're
 invoked as a login shell.

---
 quis.c | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/quis.c b/quis.c
index 34b0f1f..ca14d16 100644
--- a/quis.c
+++ b/quis.c
@@ -1,6 +1,6 @@
 /* -*-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
  *
@@ -29,8 +29,12 @@
 /*----- 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 (*p == '-')
+    p++;
   pn__name = p;
 }
 
-- 
2.11.0