utf8_heavy: Reorder 2 if's

This saves a little redundant code, and will be useful in future commits

diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl
index 777e11a..0bb1cdd 100644 (file)
--- a/lib/utf8_heavy.pl
+++ b/lib/utf8_heavy.pl
@@ -422,17 +422,14 @@ sub _loose_name ($) {
                 ## The user-level way to access ToDigit() and ToFold()
                 ## 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;
-                    }
+                if ($minbits != 1) {    # Only check if caller wants non-binary
+                if ($type =~ /^To(Digit|Fold|Lower|Title|Upper)$/) {
                     $file = "$unicore_dir/To/$1.pl";
                     ## would like to test to see if $file actually exists....
                     last GETFILE;
                 }
+                }
 
                 ##
                 ## If we reach this line, it's because we couldn't figure