This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [ID 20001125.004] OK: perl v5.7.0 +DEVEL7825 on i686-linux 2.2.17 (UNINSTALLED)
authorBenjamin Holzman <bah@ecnvantage.com>
Sat, 25 Nov 2000 20:40:20 +0000 (15:40 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 26 Nov 2000 18:45:56 +0000 (18:45 +0000)
Message-ID: <20001125204020.A25040@ecnvantage.com>

Debian allows installing /usr/bin/locale without installing
any locales, an error message will ensue.

p4raw-id: //depot/perl@7868

t/pragma/locale.t

index 89fb4e8..2b4089e 100755 (executable)
@@ -361,7 +361,7 @@ delete $ENV{PATH} if $^O ne 'VMS' or $Config{d_setenv};
 # Other subversive stuff.
 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
 
-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;
        trylocale($_);