From: Andrej Borsenkow <Andrej.Borsenkow@mow.siemens.ru>
Date: Wed, 8 May 2002 10:47:51 +0000 (+0400)
Subject: [ID 20020507.020] PATCH: 5.6.1: t/op/misc.t: locale -a missing 2>/dev/null
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e5e32a3af68bad2724c5ecf673fa0e8a34a4fe13;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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, $_);