diff options
| author | Karl <khw@karl.(none)> | 2008-12-28 07:18:24 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-12-28 15:35:56 +0100 |
| commit | 3cf20fa2fb953d611f6cc722b308008b48536e07 (patch) | |
| tree | b02c33ee085ad4a4c32bbcf7d8bcaf64681fdb32 | |
| parent | 5844ac76c26b089bf113b64f4251a673b59bdebb (diff) | |
| download | perl-3cf20fa2fb953d611f6cc722b308008b48536e07.tar.gz | |
Revise malformed utf8 test case
| -rw-r--r-- | t/op/re_tests | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/re_tests b/t/op/re_tests index f515605acf..9d353e88dc 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -1361,4 +1361,7 @@ foo(\h)bar foo\tbar y $1 \t # [perl #60344] Regex lookbehind failure after an (if)then|else in perl 5.10 /\A(?(?=db2)db2|\D+)(?<!processed)\.csv\z/xms sql_processed.csv n - - /\N{U+0100}/ \x{100} y $& \x{100} # Bug #59328 -[\s][\S] \x{a0}\x{a0} nT - - # TODO Unicode complements should not match same character
\ No newline at end of file +[\s][\S] \x{a0}\x{a0} nT - - # TODO Unicode complements should not match same character + +# was generating malformed utf8 +'[\x{100}\xff]'i \x{ff} y $& \x{ff} |