diff --git a/charset/sbcsgen.pl b/charset/sbcsgen.pl
index bedf6b36..6012c933 100755
--- a/charset/sbcsgen.pl
+++ b/charset/sbcsgen.pl
@@ -38,7 +38,7 @@ my @charsetnames = ();
 my @sortpriority = ();
 
 while (<FOO>) {
-    chomp;
+    chomp; y/\r//d;
     if (/^charset (.*)$/) {
         $charsetname = $1;
         @vals = ();