mirror of
https://github.com/git/git.git
synced 2024-05-05 03:36:31 +02:00
5338ed2b26
We set "use warnings" in most of our perl code to catch problems. But as the name implies, warnings just emit a message to stderr and don't otherwise affect the program. So our tests are quite likely to miss that warnings are being spewed, as most of them do not look at stderr. We could ask perl to make all warnings fatal, but this is likely annoying for non-developers, who would rather have a running program with a warning than something that refuses to work at all. So instead, let's teach the perl code to respect an environment variable (GIT_PERL_FATAL_WARNINGS) to increase the severity of the warnings. This can be set for day-to-day running if people want to be really pedantic, but the primary use is to trigger it within the test suite. We could also trigger that for every test run, but likewise even the tests failing may be annoying to distro builders, etc (just as -Werror would be for compiling C code). So we'll tie it to a special test-mode variable (GIT_TEST_PERL_FATAL_WARNINGS) that can be set in the environment or as a Makefile knob, and we'll automatically turn the knob when DEVELOPER=1 is set. That should give developers and CI the more careful view without disrupting normal users or packagers. Note that the mapping from the GIT_TEST_* form to the GIT_* form in test-lib.sh is necessary even if they had the same name: the perl scripts need it to be normalized to a perl truth value, and we also have to make sure it's exported (we might have gotten it from the environment, but we might also have gotten it from GIT-BUILD-OPTIONS directly). Signed-off-by: Jeff King <peff@peff.net> Signed-off-by: Junio C Hamano <gitster@pobox.com>
116 lines
2.5 KiB
Perl
116 lines
2.5 KiB
Perl
package Git::I18N;
|
|
use 5.008;
|
|
use strict;
|
|
use warnings $ENV{GIT_PERL_FATAL_WARNINGS} ? qw(FATAL all) : ();
|
|
BEGIN {
|
|
require Exporter;
|
|
if ($] < 5.008003) {
|
|
*import = \&Exporter::import;
|
|
} else {
|
|
# Exporter 5.57 which supports this invocation was
|
|
# released with perl 5.8.3
|
|
Exporter->import('import');
|
|
}
|
|
}
|
|
|
|
our @EXPORT = qw(__ __n N__);
|
|
our @EXPORT_OK = @EXPORT;
|
|
|
|
sub __bootstrap_locale_messages {
|
|
our $TEXTDOMAIN = 'git';
|
|
our $TEXTDOMAINDIR ||= $ENV{GIT_TEXTDOMAINDIR} || '@@LOCALEDIR@@';
|
|
|
|
require POSIX;
|
|
POSIX->import(qw(setlocale));
|
|
# Non-core prerequisite module
|
|
require Locale::Messages;
|
|
Locale::Messages->import(qw(:locale_h :libintl_h));
|
|
|
|
setlocale(LC_MESSAGES(), '');
|
|
setlocale(LC_CTYPE(), '');
|
|
textdomain($TEXTDOMAIN);
|
|
bindtextdomain($TEXTDOMAIN => $TEXTDOMAINDIR);
|
|
|
|
return;
|
|
}
|
|
|
|
BEGIN
|
|
{
|
|
# Used by our test script to see if it should test fallbacks or
|
|
# not.
|
|
our $__HAS_LIBRARY = 1;
|
|
|
|
local $@;
|
|
eval {
|
|
__bootstrap_locale_messages();
|
|
*__ = \&Locale::Messages::gettext;
|
|
*__n = \&Locale::Messages::ngettext;
|
|
1;
|
|
} or do {
|
|
# Tell test.pl that we couldn't load the gettext library.
|
|
$Git::I18N::__HAS_LIBRARY = 0;
|
|
|
|
# Just a fall-through no-op
|
|
*__ = sub ($) { $_[0] };
|
|
*__n = sub ($$$) { $_[2] == 1 ? $_[0] : $_[1] };
|
|
};
|
|
|
|
sub N__($) { return shift; }
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Git::I18N - Perl interface to Git's Gettext localizations
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use Git::I18N;
|
|
|
|
print __("Welcome to Git!\n");
|
|
|
|
printf __("The following error occurred: %s\n"), $error;
|
|
|
|
printf __n("committed %d file\n", "committed %d files\n", $files), $files;
|
|
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Git's internal Perl interface to gettext via L<Locale::Messages>. If
|
|
L<Locale::Messages> can't be loaded (it's not a core module) we
|
|
provide stub passthrough fallbacks.
|
|
|
|
This is a distilled interface to gettext, see C<info '(gettext)Perl'>
|
|
for the full interface. This module implements only a small part of
|
|
it.
|
|
|
|
=head1 FUNCTIONS
|
|
|
|
=head2 __($)
|
|
|
|
L<Locale::Messages>'s gettext function if all goes well, otherwise our
|
|
passthrough fallback function.
|
|
|
|
=head2 __n($$$)
|
|
|
|
L<Locale::Messages>'s ngettext function or passthrough fallback function.
|
|
|
|
=head2 N__($)
|
|
|
|
No-operation that only returns its argument. Use this if you want xgettext to
|
|
extract the text to the pot template but do not want to trigger retrival of the
|
|
translation at run time.
|
|
|
|
=head1 AUTHOR
|
|
|
|
E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avarab@gmail.com>
|
|
|
|
=head1 COPYRIGHT
|
|
|
|
Copyright 2010 E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avarab@gmail.com>
|
|
|
|
=cut
|