Strip BOM before regexes involving spaces (closes: #488554)

[debbugs.git] / scripts / service

diff --git a/scripts/service b/scripts/service
index a642aaba832f581f5120545802f7c5b13c6fc06e..94b2571b5a08dca6fdc121b47f8bba4c68fb81e2 100755 (executable)
--- a/scripts/service
+++ b/scripts/service
@@ -176,6 +176,9 @@ for ($procline=0; $procline<=$#bodylines; $procline++) {
         last;
     }
     $_= $bodylines[$procline]; s/\s+$//;
+    # Remove BOM markers from UTF-8 strings
+    # Fixes #488554
+    s/\xef\xbb\xbf//g;
     next unless m/\S/;
     print {$transcript} "> $_\n";
     next if m/^\s*\#/;