sub SetLocale
{
	my $self = shift;
	my $locale = shift;

	croak "No locale passed to SetLocale()" if not defined $locale;

	my $locale_return = POSIX::setlocale(&POSIX::LC_TIME, $locale);

	if( defined $locale_return )
	{
		$self->{locale} = $locale;
		$self->{locale_realname} = $locale_return;

		return $self->{locale};
	}

	print STDERR "Locale $locale does not seem to be implemented on this system, keeping locale ".$self->{locale}."\n";
	return undef;
}

##</code><code>##

$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;
  }
}