diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-01-15 13:42:58 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-01-16 08:18:54 -0700 |
commit | 11454c594f22abc5945e69a46fc965363dbf326e (patch) | |
tree | 8e51baaf062d5e28410294b9cac63f791c63ced2 /dist | |
parent | f424400810b6af341e96230836690da51c37b812 (diff) | |
download | perl-11454c594f22abc5945e69a46fc965363dbf326e.tar.gz |
Fix \xa0 matching both [\s] [\S], et.al.
This bug stemmed from Latin1 characters not matching any (non-complemented)
character class in /d semantics when the target string is no utf8; but having
unicode semantics when it isn't. The solution here is to add a special flag.
There were several tests that relied on the broken behavior, specifically they
tested that \xff isn't a printable word character even in utf8. I changed the
deparse test to instead use a non-printable code point, and I changed the ones
in re_tests to be TODOs, and will change them back using /a when that is
shortly added.
Diffstat (limited to 'dist')
-rw-r--r-- | dist/B-Deparse/t/deparse.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/B-Deparse/t/deparse.t b/dist/B-Deparse/t/deparse.t index 89a449383f..50baa90ee5 100644 --- a/dist/B-Deparse/t/deparse.t +++ b/dist/B-Deparse/t/deparse.t @@ -247,7 +247,7 @@ my $foo; $_ .= <ARGV> . <$foo>; #### # \x{} -my $foo = "Ab\x{100}\200\x{200}\377Cd\000Ef\x{1000}\cA\x{2000}\cZ"; +my $foo = "Ab\x{100}\200\x{200}\237Cd\000Ef\x{1000}\cA\x{2000}\cZ"; #### # s///e s/x/'y';/e; |