diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-11-01 20:47:47 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-11-01 20:58:23 +0000 |
| commit | d2d1d4de13bedc11af82b2ca4fd580671530195c (patch) | |
| tree | 8f01b857d3c7b30fc82a5ce6f8bc12023582b0e3 /t/comp | |
| parent | c9de86d555b2cc844acfe134ffe61228163a50ea (diff) | |
| download | perl-d2d1d4de13bedc11af82b2ca4fd580671530195c.tar.gz | |
S_utf16_textfilter() was not returning EOF correctly in some situations.
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/utf.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/comp/utf.t b/t/comp/utf.t index d59ba2d6de..1e0e68a0e4 100644 --- a/t/comp/utf.t +++ b/t/comp/utf.t @@ -1,6 +1,6 @@ #!./perl -w -print "1..3980\n"; +print "1..4016\n"; my $test = 0; my %templates = ( @@ -54,6 +54,9 @@ for my $bom (0, 1) { for my $nl (1, 0) { for my $value (123, 1234, 12345) { test($enc, $value, $value, $bom, $nl, $value); + # This has the unfortunate side effect of causing an infinite + # loop without the bug fix it corresponds to: + test($enc, "($value)", $value, $bom, $nl, "($value)"); } next if $enc eq 'utf8'; # Arguably a bug that currently string literals from UTF-8 file |