From e6c20eb05df8956ccec9cea84e2b8d4a4144ad3c Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@samfundet.no>
Date: Sun, 17 Jul 2005 10:51:54 +0000
Subject: [PATCH] Support <option> in template stuff.

---
 intl/Sesse::ExtractGettext.pm      | 2 +-
 intl/Sesse::GettextizeTemplates.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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;
diff --git a/intl/Sesse::GettextizeTemplates.pm b/intl/Sesse::GettextizeTemplates.pm
index 26f01c0..44d433a 100644
--- 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);
-- 
2.39.2