chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
i18n: dgit: mark some messages (1)
[dgit.git]
/
git-debrebase
diff --git
a/git-debrebase
b/git-debrebase
index 3d1f2a81bc48bba8dc20dd520435791699ae22eb..645b072aaf2a11eb34ca2943eb4b69961c49ed74 100755
(executable)
--- a/
git-debrebase
+++ b/
git-debrebase
@@
-21,6
+21,7
@@
END { $? = $Debian::Dgit::ExitStatus::desired // -1; };
use Debian::Dgit::GDR;
use Debian::Dgit::ExitStatus;
END { $? = $Debian::Dgit::ExitStatus::desired // -1; };
use Debian::Dgit::GDR;
use Debian::Dgit::ExitStatus;
+use Debian::Dgit::I18n;
use strict;
use strict;
@@
-30,6
+31,7
@@
setup_sigwarn();
use Memoize;
use Carp;
use POSIX;
use Memoize;
use Carp;
use POSIX;
+use Locale::gettext;
use Data::Dumper;
use Getopt::Long qw(:config posix_default gnu_compat bundling);
use Dpkg::Version;
use Data::Dumper;
use Getopt::Long qw(:config posix_default gnu_compat bundling);
use Dpkg::Version;
@@
-2064,7
+2066,7
@@
sub cmd_new_upstream () {
my $old_upstream;
if (!$old_anchor_cl->{OrigParents}) {
snag 'anchor-treated',
my $old_upstream;
if (!$old_anchor_cl->{OrigParents}) {
snag 'anchor-treated',
-
'old anchor is recognised due to --anchor, cannot check upstream';
+
__
'old anchor is recognised due to --anchor, cannot check upstream';
} else {
$old_upstream = parsecommit
$old_anchor_cl->{OrigParents}[0]{CommitId};
} else {
$old_upstream = parsecommit
$old_anchor_cl->{OrigParents}[0]{CommitId};
@@
-2961,6
+2963,9
@@
sub cmd_downstream_rebase_launder_v0 () {
}
}
}
}
+setlocale(LC_MESSAGES, "");
+textdomain("git-debrebase");
+
getoptions_main
("bad options\n",
"D+" => \$debuglevel,
getoptions_main
("bad options\n",
"D+" => \$debuglevel,
@@
-2972,7
+2977,7
@@
getoptions_main
'experimental-merge-resolution!', \$opt_merges,
'-i:s' => sub {
my ($opt,$val) = @_;
'experimental-merge-resolution!', \$opt_merges,
'-i:s' => sub {
my ($opt,$val) = @_;
- badusage "git-debrebase: no cuddling to -i for git-rebase"
+ badusage
__
"git-debrebase: no cuddling to -i for git-rebase"
if length $val;
die if $opt_defaultcmd_interactive; # should not happen
$opt_defaultcmd_interactive = [ qw(-i) ];
if length $val;
die if $opt_defaultcmd_interactive; # should not happen
$opt_defaultcmd_interactive = [ qw(-i) ];
@@
-3003,7
+3008,7
@@
if (!@ARGV || $opt_defaultcmd_interactive || $ARGV[0] =~ m{^-}) {
$cmdfn =~ y/-/_/;
$cmdfn = ${*::}{"cmd_$cmdfn"};
$cmdfn =~ y/-/_/;
$cmdfn = ${*::}{"cmd_$cmdfn"};
- $cmdfn or badusage
"unknown git-debrebase sub-operation $cmd"
;
+ $cmdfn or badusage
f_ "unknown git-debrebase sub-operation %s", $cmd
;
$cmdfn->();
}
$cmdfn->();
}