From: Karl Williamson <public@khwilliamson.com>
Date: Mon, 16 Jan 2012 00:10:35 +0000 (-0700)
Subject: locale.t: Don't test a locale twice
X-Git-Tag: accepted/trunk/20130322.191538~1030
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0b9f254b1f58917687924277b52705f52f90a43d;p=platform%2Fupstream%2Fperl.git

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
--- 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;
     }