diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-07-07 17:42:09 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-07-07 18:02:09 -0600 |
| commit | 08432a98f9b12931668dfb92c167820047b93759 (patch) | |
| tree | 40fb8c8da4c8c01c1f29c632bf9752d772ba2512 /lib/utf8_heavy.pl | |
| parent | a2afbef4476f724afce78f808244bff05314ad11 (diff) | |
| download | perl-08432a98f9b12931668dfb92c167820047b93759.tar.gz | |
utf8_heavy: Fail on binary/non- mismatch
If the user asks for a binary property, but passes a name that
is a non-binary property, fail.
Diffstat (limited to 'lib/utf8_heavy.pl')
| -rw-r--r-- | lib/utf8_heavy.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 569c3365ee..3af914918b 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -421,6 +421,12 @@ sub croak { require Carp; Carp::croak(@_) } ## is to use Unicode::UCD. ## if ($type =~ /^To(Digit|Fold|Lower|Title|Upper)$/) { + + # Fail if wanting a binary property, as these aren't. + if ($minbits == 1) { + pop @recursed if @recursed; + return $type; + } $file = "$unicore_dir/To/$1.pl"; ## would like to test to see if $file actually exists.... last GETFILE; |