From 3255473d905d98e3ca9e0ea96c248ae8d5372bde Mon Sep 17 00:00:00 2001
From: hpa <hpa>
Date: Wed, 28 Mar 2001 21:48:30 +0000
Subject: [PATCH] Ignore carriage return characters -- same behaviour as
 syslinux

---
 sys2ansi.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sys2ansi.pl b/sys2ansi.pl
index bd7fd5a..d4b47db 100755
--- a/sys2ansi.pl
+++ b/sys2ansi.pl
@@ -2,6 +2,7 @@
 # $Id$
 #
 # Perl script to convert a Syslinux-format screen to PC-ANSI
+# to display in a color xterm or on the Linux console
 #
 @ansicol = (0,4,2,6,1,5,3,7);
 
@@ -25,8 +26,9 @@ while ( read(STDIN, $ch, 1) > 0 ) {
 	    printf "%d;%dm",
 	    $ansicol[$attr >> 4] + 40, $ansicol[$attr & 7] + 30;
 	}
+    } elsif ( $ch eq "\x0D" ) {	# <CR>  <Ctrl-M> Carriage return
+	# Ignore
     } else {
 	print $ch;
     }
 }
-
-- 
2.7.4