From: Karl <khw@karl.(none)>
Date: Sun, 28 Dec 2008 14:18:24 +0000 (-0700)
Subject: Revise malformed utf8 test case
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3cf20fa2fb953d611f6cc722b308008b48536e07;p=p5sagit%2Fp5-mst-13.2.git

Revise malformed utf8 test case
---

diff --git a/t/op/re_tests b/t/op/re_tests
index f515605..9d353e8 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}