[ID 20020507.020] PATCH: 5.6.1: t/op/misc.t: locale -a missing 2>/dev/null

Message-Id: <6134254DE87BD411908B00A0C99B044F035BBFCB@mowd019a.mow.siemens.ru>

p4raw-id: //depot/perl@16483

diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index 3cac42f..ad0f363 100644 (file)
--- a/t/run/fresh_perl.t
+++ b/t/run/fresh_perl.t
@@ -573,7 +573,7 @@ EOT
 EXPECT
 ok
 ########
-# This test is here instead of pragma/locale.t because
+# This test is here instead of lib/locale.t because
 # the bug depends on in the internal state of the locale
 # settings and pragma/locale messes up that state pretty badly.
 # We need a "fresh run".
@@ -591,7 +591,7 @@ $have_setlocale = 0 if $@;
 $have_setlocale = 0 if (($^O eq 'MSWin32' || $^O eq 'NetWare') && $Config{cc} =~ /^(cl|gcc)/i);
 exit(0) unless $have_setlocale;
 my @locales;
-if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a|")) {
+if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a 2>/dev/null|")) {
     while(<LOCALES>) {
         chomp;
         push(@locales, $_);