Help for this page

Select Code to Download

Select or download this

sub SetLocale
{
    my $self = shift;
...
    print STDERR "Locale $locale does not seem to be implemented on th
+is system, keeping locale ".$self->{locale}."\n";
    return undef;
}

Select or download this

$self->WARNING( "Locale $locale does not seem to be implemented on thi
+s system, keeping locale ".$self->{locale}."\n" );

...
     print STDERR $message;
  }
}