X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=intl%2FSesse%3A%3AExtractGettext.pm;h=734962f2a8937331391f9ea2149f84c074db9cf6;hp=a505b6e151218a846a30c946d568dadb75987a4e;hb=7b8b747f037d2244ffd080e97d9d5e5c0e9114a7;hpb=d7b9d2772f2569450caf412026da1556772e3fa4

diff --git a/intl/Sesse::ExtractGettext.pm b/intl/Sesse::ExtractGettext.pm
index a505b6e..734962f 100644
--- a/intl/Sesse::ExtractGettext.pm
+++ b/intl/Sesse::ExtractGettext.pm
@@ -9,7 +9,7 @@ our @ISA = qw(Template::Directive);
 sub textblock {
 	my ($self, $text) = @_;
 
-	while ($text =~ s/<(h[1-6]|p|td|th|title|input|span|li|_)[^>]*>(.*?)<\/\1>//s) {
+	while ($text =~ s/<(h[1-6]|p|td|th|title|input|span|li|option|_)[^>]*>(.*?)<\/\1>//s) {
 		my $id = $2;
 		next if $id =~ /^\s*$/;
 		$id =~ s/\n/\\n"\n"/g;