i18n: Rename ___ to f_

[dgit.git] / Debian / Dgit / I18n.pm

diff --git a/Debian/Dgit/I18n.pm b/Debian/Dgit/I18n.pm
index c6f9e1663543b1cf201902c322cff2a00c962c73..b86fec8d3596f4a3db7864d2e5693eb9d2a50698 100644 (file)
--- 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;