From 78a7eeee8b83a8140298e55edfa8ab1416dcec42 Mon Sep 17 00:00:00 2001
From: John Millaway <john43@users.sourceforge.net>
Date: Sun, 28 Jul 2002 05:45:34 +0000
Subject: [PATCH] Fixed bug I created in previous commit.

---
 scan.l | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scan.l b/scan.l
index b390050..18d0de8 100644
--- a/scan.l
+++ b/scan.l
@@ -502,6 +502,8 @@ LEXOPT		[aceknopr]
 			else
 				{ /* push back name surrounded by ()'s */
 				int len = strlen( (char *) nmdefptr );
+                if (end_is_ws)
+                    unput(end_ch);
 
 				if ( lex_compat || nmdefptr[0] == '^' ||
 				     (len > 0 && nmdefptr[len - 1] == '$')
@@ -515,8 +517,6 @@ LEXOPT		[aceknopr]
 
 				else
 					{
-					if (end_is_ws)
-                        unput(end_ch);
 					unput(')');
 					PUT_BACK_STRING((char *) nmdefptr, 0);
 					unput('(');
-- 
2.49.0