diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-11-08 09:21:11 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-12-31 08:27:18 -0700 |
| commit | c81f4b8099ae19472829c73f9d4f08333a019c83 (patch) | |
| tree | 46b9cc5e79025281201babaf14d4d1c936015886 /lib | |
| parent | fa557ea29925035d1f58935755ad286050a99568 (diff) | |
| download | perl-c81f4b8099ae19472829c73f9d4f08333a019c83.tar.gz | |
lib/Unicode/UCD.t: Anchor a couple of regexes
A future commit will need these to be anchored to avoid false positives.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Unicode/UCD.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index a646358341..a741367f87 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -1566,7 +1566,8 @@ foreach my $prop (sort keys %props) { } } } - elsif ($full_name =~ /Simple_(Case_Folding|(Lower|Title|Upper)case_Mapping)/) + elsif ($full_name + =~ / ^ Simple_(Case_Folding|(Lower|Title|Upper)case_Mapping) $ /x) { # These properties have everything in the regular array, and the @@ -1688,7 +1689,10 @@ foreach my $prop (sort keys %props) { } } # Otherwise, the map is to a simple scalar elsif ($full_name =~ # These maps are in hex - /(Simple_)?(Case_Folding|(Lower|Title|Upper)case_Mapping)/) + / ^ ( Simple_ )? ( Case_Folding + | ( Lower + | Title + | Upper ) case_Mapping ) $ /x) { $invmap_ref->[$i] = sprintf("%X", $invmap_ref->[$i]); } |