Use/support <_> and </_>.

[ccbs] / intl / Sesse::GettextizeTemplates.pm

diff --git a/intl/Sesse::GettextizeTemplates.pm b/intl/Sesse::GettextizeTemplates.pm
index ec734e0f35000bce4acc4d88370dbbc6fe5df690..f5c97ffb8efb0e49f76b48fcdffb05d5e48fbfb0 100644 (file)
--- a/intl/Sesse::GettextizeTemplates.pm
+++ b/intl/Sesse::GettextizeTemplates.pm
@@ -11,6 +11,7 @@ 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/<\/?_>//g;
 
        return $self->SUPER::textblock($text);
 }