t/loc_tools.pl: Tidy up

Instead of using $@, use the variable set to $@ just after the eval.
This is cleaner, and avoids an issue should new code be inserted between
them that affects $@

diff --git a/t/loc_tools.pl b/t/loc_tools.pl
index ed24c37..93a0204 100644 (file)
--- a/t/loc_tools.pl
+++ b/t/loc_tools.pl
@@ -29,7 +29,7 @@ my $max_bad_category_number = -1000000;
 # where 6 is the value of &POSIX::LC_CTYPE
 my %category_name;
 my %category_number;
-unless ($@) {
+if ($has_locale_h) {
     my $number_for_missing_category = $max_bad_category_number;
     foreach my $name (qw(ALL COLLATE CTYPE MESSAGES MONETARY NUMERIC TIME)) {
         my $number = eval "&POSIX::LC_$name";