X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/charset/blobdiff_plain/4fd00a6fa00809e1179cf8f7bcdd33cc7bbfbb29..86e28c9b3a6020ad5c9639d331ee34ee1ac17ee2:/sbcsgen.pl

diff --git a/sbcsgen.pl b/sbcsgen.pl
index 1907a1a..e2991b2 100644
--- a/sbcsgen.pl
+++ b/sbcsgen.pl
@@ -35,6 +35,7 @@ my @sortpriority = ();
 
 while (<FOO>) {
     chomp;
+    y/\r\n//; # robustness in the face of strange line endings
     if (/^charset (.*)$/) {
 	$charsetname = $1;
 	@vals = ();