From: Adam Dickmeiss <adam@indexdata.dk>
Date: Fri, 23 Aug 1996 11:59:47 +0000 (+0000)
Subject: Bug fix: infinite look in ir_oid.
X-Git-Tag: IRTCL.1.4~90
X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=ccb0e753628e08a767b808487e5702f919edd351;p=ir-tcl-moved-to-github.git

Bug fix: infinite look in ir_oid.
---

diff --git a/explain.c b/explain.c
index 315b074..be59d5f 100644
--- a/explain.c
+++ b/explain.c
@@ -5,7 +5,10 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: explain.c,v $
- * Revision 1.4  1996-08-22 13:39:31  adam
+ * Revision 1.5  1996-08-23 11:59:47  adam
+ * Bug fix: infinite look in ir_oid.
+ *
+ * Revision 1.4  1996/08/22  13:39:31  adam
  * More work on explain.
  *
  * Revision 1.3  1996/08/21  13:32:50  adam
@@ -279,6 +282,7 @@ static int ir_oid (IrExpArg *iea,
         sprintf (buf, "%c%d", first, *p);
         Tcl_AppendResult (iea->interp, buf, NULL);
         first = '.';
+        p++;
     }
     return ir_match_end (name, iea, argi);
 }