From 1a5070a187380dedf3153843c38e2c536e7a9ee1 Mon Sep 17 00:00:00 2001
From: Will Estes <wlestes@users.sourceforge.net>
Date: Sat, 12 May 2007 13:11:57 +0000
Subject: [PATCH] parse multiple short concatenated options; patch submitted by
 Petr Machata <pmachata@redhat.com

---
 scanopt.c | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/scanopt.c b/scanopt.c
index cc7f631..2c8d593 100644
--- a/scanopt.c
+++ b/scanopt.c
@@ -789,12 +789,12 @@ int     scanopt (svoid, arg, optindex)
 		}
 
 		optarg = pstart + 1;
-		arglen = 0;
-		while (optarg[arglen])
-			arglen++;
-
-		if (arglen == 0)
+		if (!*optarg) {
 			optarg = NULL;
+			arglen = 0;
+		}
+		else
+			arglen = strlen (optarg);
 	}
 
 	/* At this point, we have a long or short option matched at opt_offset into
@@ -812,13 +812,16 @@ int     scanopt (svoid, arg, optindex)
 
 	/* case: no args allowed */
 	if (auxp->flags & ARG_NONE) {
-		if (optarg) {
+		if (optarg && !is_short) {
 			scanopt_err (s, opt_offset, is_short, errcode =
 				     SCANOPT_ERR_ARG_NOT_ALLOWED);
 			INC_INDEX (s, 1);
 			return errcode;
 		}
-		INC_INDEX (s, 1);
+		else if (!optarg)
+			INC_INDEX (s, 1);
+		else
+			s->subscript++;
 		return optp->r_val;
 	}
 
-- 
2.40.0