locale.t: Don't test a locale twice

Don't add it to the list if already there.

diff --git a/lib/locale.t b/lib/locale.t
index d181f25..99b3a15 100644 (file)
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -346,6 +346,7 @@ sub getalnum_ {
 
 sub trylocale {
     my $locale = shift;
+    return if grep { $locale eq $_ } @Locale;
     if (setlocale(LC_ALL, $locale)) {
        push @Locale, $locale;
     }