diff options
| author | Ville Skytt? <ville.skytta@iki.fi> | 2010-12-15 00:28:56 +0200 |
|---|---|---|
| committer | Ville Skytt? <ville.skytta@iki.fi> | 2010-12-15 00:28:56 +0200 |
| commit | 5595f5ee58bbe68e2ccfc6c287accb58193cfd51 (patch) | |
| tree | 442c3fcf1d71c34d7a8b1f00a9a47d8481a6ca8d /httpd/cgi-bin/check | |
| parent | cae98f12811d4504fbdc49c3f4b612afb642a8eb (diff) | |
| download | markup-validator-5595f5ee58bbe68e2ccfc6c287accb58193cfd51.zip markup-validator-5595f5ee58bbe68e2ccfc6c287accb58193cfd51.tar.gz markup-validator-5595f5ee58bbe68e2ccfc6c287accb58193cfd51.tar.bz2 | |
make perltidy
Diffstat (limited to 'httpd/cgi-bin/check')
| -rwxr-xr-x | httpd/cgi-bin/check | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index f19f6c6..cbd9370 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -558,7 +558,8 @@ if ($File->{ContentType} eq 'text/html' && $File->{Charset}->{Default}) { # # Add a warning if doc is UTF-8 and contains a BOM. -if ($File->{Charset}->{Use} eq 'utf-8' && @{$File->{Content}} && +if ($File->{Charset}->{Use} eq 'utf-8' && + @{$File->{Content}} && $File->{Content}->[0] =~ m(^\x{FEFF})) { &add_warning('W21', {}); |