Support <option> in template stuff.

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

diff --git a/intl/Sesse::GettextizeTemplates.pm b/intl/Sesse::GettextizeTemplates.pm
index 26f01c0634236e43696be7e125e705247f8d9207..44d433a62537a62850bd56ab7221b0e1b9180eea 100644 (file)
--- a/intl/Sesse::GettextizeTemplates.pm
+++ b/intl/Sesse::GettextizeTemplates.pm
@@ -18,7 +18,7 @@ sub mygettext {
 sub textblock {
        my ($self, $text) = @_;
 
-       $text =~ s/(<(h[1-6]|p|td|th|title|input|span|li|_)[^>]*>)(.*?)(<\/\2>)/$1.mygettext($3).$4/seg;
+       $text =~ s/(<(h[1-6]|p|td|th|title|input|span|li|option|_)[^>]*>)(.*?)(<\/\2>)/$1.mygettext($3).$4/seg;
        $text =~ s/<\/?_>//g;
 
        return $self->SUPER::textblock($text);