X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a6517ebfb58d661124e8ecb0a759cba9ba607e76..5c11e933b2ff7e9fab33631157cedd28efb8a76f:/lib/utf8_heavy.pl

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 569c336..3af9149 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;