From 60a18a794dd5345198d4fd23a6a863453e614c1d Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 28 Dec 2012 13:29:34 +0000
Subject: [PATCH] wip, rename __ to _gt

---
 cgi-auth-hybrid.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/cgi-auth-hybrid.pm b/cgi-auth-hybrid.pm
index 422d7a3..27cf367 100644
--- a/cgi-auth-hybrid.pm
+++ b/cgi-auth-hybrid.pm
@@ -77,9 +77,9 @@ sub do_redirect_cgi ($$$$) {
 	      -location => $new_url);
     push @ha, (-cookie => $cookie) if defined $cookie;
     $r->_print($c->header(@ha),
-	       $r->_ch('gen_start_html')($r->__('Redirection')),
+	       $r->_ch('gen_start_html')($r->_gt('Redirection')),
 	       '<a href="'.escapeHTML($new_url).'">',
-	       $r->__("If you aren't redirected, click to continue."),
+	       $r->_gt("If you aren't redirected, click to continue."),
 	       "</a>",
 	       $c->_ch('gen_end_html'));
 }
@@ -208,7 +208,7 @@ sub _rp ($$@) {
     my $p = scalar $r->_ch('get_param',$pn)
 }
 
-sub __ ($$) { my ($r, $t) = @_; return $r->_ch('gettext')($t); }
+sub _gt ($$) { my ($r, $t) = @_; return $r->_ch('gettext')($t); }
 sub _print ($$) { my ($r, @t) = @_; return $r->_ch('print')(join '', @t); }
 
 # pages/param-sets are
@@ -527,8 +527,8 @@ sub check_ok ($) {
 
     my ($title, @body);
     if ($kind =~ m/^LOGIN-/) {
-	$title = $r->__('Login');
-	push @body, $r->__($divert->{Message});
+	$title = $r->_gt('Login');
+	push @body, $r->_gt($divert->{Message});
 	push @body, $r->_ch('gen_login_form');
 	$body .= $r->_ch(
 
-- 
2.30.2