From: Steinar H. Gunderson <sesse@samfundet.no>
Date: Sun, 17 Jul 2005 10:49:48 +0000 (+0000)
Subject: Make a workaround for stupid gettext("") borkage.
X-Git-Url: https://git.sesse.net/?p=ccbs;a=commitdiff_plain;h=2bd2b133f8796946bed232deddb647847086b984

Make a workaround for stupid gettext("") borkage.
---

diff --git a/intl/Sesse::GettextizeTemplates.pm b/intl/Sesse::GettextizeTemplates.pm
index f5c97ff..26f01c0 100644
--- a/intl/Sesse::GettextizeTemplates.pm
+++ b/intl/Sesse::GettextizeTemplates.pm
@@ -2,15 +2,23 @@
 package Sesse::GettextizeTemplates;
 use strict;
 use warnings;
-use Locale::gettext qw(gettext);
+use Locale::gettext;
 use Template::Directive;
 
 our @ISA = qw(Template::Directive);
 
+# blah!
+sub mygettext {
+	my $text = shift;
+
+	return "" if ($text eq "");
+	return Locale::gettext::gettext($text);
+}
+
 sub textblock {
 	my ($self, $text) = @_;
 
-	$text =~ s/(<(h[1-6]|p|td|th|title|input|span|li|_)[^>]*>)(.*?)(<\/\2>)/$1.gettext($3).$4/seg;
+	$text =~ s/(<(h[1-6]|p|td|th|title|input|span|li|_)[^>]*>)(.*?)(<\/\2>)/$1.mygettext($3).$4/seg;
 	$text =~ s/<\/?_>//g;
 
 	return $self->SUPER::textblock($text);