# Perl library for using the Locale::gettext library if it exists.
# Copyright 1999, Raphael Hertzog <hertzog@debian.org>
# This is free software and comes with NO warranty.  It may be distributed
# under the terms of the GNU General Public License, version 2 or later.

eval 'use POSIX qw(setlocale)';
if ($@) {
	*setlocale   = sub { 0 };
}
eval 'use Locale::gettext';
if ($@) {
	*gettext     = sub { shift };
	*dcgettext   = sub { shift; shift };
	*dgettext    = sub { shift; shift };
	*textdomain  = sub { "" };
	*bindtextdomain = sub { 1 };
	*LC_CTYPE    = sub { 0 };
	*LC_NUMERIC  = sub { 1 };
	*LC_TIME     = sub { 2 };
	*LC_COLLATE  = sub { 3 };
	*LC_MONETARY = sub { 4 };
	*LC_MESSAGES = sub { 5 };
	*LC_ALL      = sub { 6 };
}
1;