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

sub WARNING {
  my( $self, $message ) = @_;
  if( $self->{WARNINGS} ){
     print STDERR $message;
  }
}