run/locale.t: don't setlocale() for our English locale if there isn't one

This was producing noise on Win32 builds:

Use of uninitialized value in subroutine entry at run/locale.t line 519.

diff --git a/t/run/locale.t b/t/run/locale.t
index 8dd2a3a..8a04d1a 100644 (file)
--- a/t/run/locale.t
+++ b/t/run/locale.t
@@ -516,6 +516,8 @@ SKIP:
     use locale;
     # look for an english locale (so a < B, hopefully)
     my ($en) = grep /^en_/, @locales;
+    defined $en
+        or skip "didn't find a suitable locale", 1;
     POSIX::setlocale(LC_COLLATE, $en);
     unless ("a" lt "B") {
         skip "didn't find a suitable locale", 1;