• R/O
  • SSH
  • HTTPS

ttssh2: Commit


Commit MetaInfo

Revision7570 (tree)
Time2019-04-11 19:48:09
Author(del#24082)

Log Message

抽出行にUTF-8 BOMが含まれるものは対象外とする。

Change Summary

Incremental Difference

--- trunk/installer/check_sjis_code.pl (revision 7569)
+++ trunk/installer/check_sjis_code.pl (revision 7570)
@@ -84,8 +84,10 @@
8484 # printf "%s\n", $enc->name;
8585 if ($enc->name !~ /ascii/) {
8686 # printf "%s\n", $enc->name;
87- print "$filename:$no: $1\n";
88- print "$line\n";
87+ if (!check_skipped_line($line)) {
88+ print "$filename:$no: $1\n";
89+ print "$line\n";
90+ }
8991 }
9092 }
9193 # if ($line =~ /([\xA1-\xDF]|[\x81-\x9F\xE0-\xEF][\x40-\x7E\x80-\xFC])/) {
@@ -97,3 +99,19 @@
9799 close(FP);
98100 }
99101
102+# 行が対象外かどうかをチェックする
103+# true: 対象外である
104+# false: 対象外ではない
105+sub check_skipped_line {
106+ my($line) = shift;
107+ my($pos);
108+
109+# print "[$line]";
110+
111+ # UTF-8 BOM
112+ $pos = index($line, pack("C3", 0xef, 0xbb, 0xbf));
113+# print "$pos\n";
114+ return 1 if ($pos != -1);
115+
116+ return 0;
117+}
Show on old repository browser