summaryrefslogtreecommitdiff
path: root/Debian
diff options
context:
space:
mode:
Diffstat (limited to 'Debian')
-rw-r--r--Debian/Dgit.pm2
-rw-r--r--Debian/Dgit/I18n.pm6
2 files changed, 4 insertions, 4 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index b1aa620..4b340d9 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -672,7 +672,7 @@ sub getfield ($$) {
my ($dctrl,$field) = @_;
my $v = $dctrl->{$field};
return $v if defined $v;
- fail ___ "missing field %s in %s", $field, $dctrl->get_option('name');
+ fail f_ "missing field %s in %s", $field, $dctrl->get_option('name');
}
sub parsechangelog_loop ($$$) {
diff --git a/Debian/Dgit/I18n.pm b/Debian/Dgit/I18n.pm
index c6f9e16..b86fec8 100644
--- a/Debian/Dgit/I18n.pm
+++ b/Debian/Dgit/I18n.pm
@@ -4,7 +4,7 @@ package Debian::Dgit::I18n;
# This module provides
# __ a function which is an alias for gettext
-# ___ sprintf wrapper that gettexts the format
+# f_ sprintf wrapper that gettexts the format
#
# In perl the sub `_' is a `superglobal', which means there
# is only one of it in the whole program and every reference
@@ -16,11 +16,11 @@ use Locale::gettext;
BEGIN {
use Exporter;
@ISA = qw(Exporter);
- @EXPORT = qw(__ ___);
+ @EXPORT = qw(__ f_);
}
sub __ { gettext @_; }
-sub ___ { my $f = shift @_; sprintf +(gettext $f), @_; }
+sub f_ { my $f = shift @_; sprintf +(gettext $f), @_; }
1;