diff options
author | Ville Skytt? <ville.skytta@iki.fi> | 2011-06-08 22:59:32 +0300 |
---|---|---|
committer | Ville Skytt? <ville.skytta@iki.fi> | 2011-06-08 22:59:32 +0300 |
commit | 12743a4e7720adc3ff04c8a3d4e2d87d9e946c77 (patch) | |
tree | e54256a47937e127d199b13b4817ac43858e713d | |
parent | 886e4e8fa38dab656ef4ddb6dbb0c5643fe39f74 (diff) | |
download | markup-validator-12743a4e7720adc3ff04c8a3d4e2d87d9e946c77.zip markup-validator-12743a4e7720adc3ff04c8a3d4e2d87d9e946c77.tar.gz markup-validator-12743a4e7720adc3ff04c8a3d4e2d87d9e946c77.tar.bz2 |
Fix transcode error parsing for docs without linefeeds.
http://www.w3.org/mid/907C7FACCE66B940A1473B51352419934BDCB570F7%40LNET-SRV-EXMBX1.landsnet.far.local
-rwxr-xr-x | httpd/cgi-bin/check | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index 7cd772b..274b2cd 100755 --- a/httpd/cgi-bin/check +++ b/httpd/cgi-bin/check @@ -3200,7 +3200,7 @@ sub transcode # Transcoding failed - do it again line by line to find out exactly # where my $line_num = 0; - while ($input =~ /(.*?)(?:\r\n|\n|\r)/g) { + while ($input =~ /(.*?)(?:\r\n|\n|\r|\z)/g) { $line_num++; eval { $enc->decode($1, Encode::FB_CROAK); }; if ($@) { |