From 770dfe5eaaed3ab86eb8914430140ff890318e31 Mon Sep 17 00:00:00 2001
From: steve <steve>
Date: Fri, 15 Dec 2000 02:00:11 +0000
Subject: [PATCH]  Trim dr from the string line.

---
 driver/lexor.lex | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/driver/lexor.lex b/driver/lexor.lex
index 15737876e..c417d0ca7 100644
--- a/driver/lexor.lex
+++ b/driver/lexor.lex
@@ -19,7 +19,7 @@
  *    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
  */
 #if !defined(WINNT) && !defined(macintosh)
-#ident "$Id: lexor.lex,v 1.3 2000/12/14 23:36:59 steve Exp $"
+#ident "$Id: lexor.lex,v 1.4 2000/12/15 02:00:11 steve Exp $"
 #endif
 
 # include  <string.h>
@@ -56,6 +56,10 @@
 
 <PATTERN>.* {
       BEGIN(0);
+	/* Trim off a trailing \r. This is an issue in the DOS world. */
+      if (yytext[strlen(yytext)-1] == '\r')
+	    yytext[strlen(yytext)-1] = 0;
+
       yylval.text = strdup(yytext);
       return PATTERN_TEXT; }