From 3bd7461b639c32816f031e3a4ab7914a327ed5a2 Mon Sep 17 00:00:00 2001
From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Tue, 19 Apr 2011 20:14:06 +1200
Subject: [PATCH] Bug 5917 : Removing comments <!-- etc from the po file

---
 misc/translator/xgettext.pl | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/misc/translator/xgettext.pl b/misc/translator/xgettext.pl
index df53eba7df..002d704ace 100755
--- a/misc/translator/xgettext.pl
+++ b/misc/translator/xgettext.pl
@@ -92,9 +92,13 @@ sub text_extract (*) {
         last unless defined $s;
         my($kind, $t, $attr) = ($s->type, $s->string, $s->attributes);
         if ($kind eq TmplTokenType::TEXT) {
-            remember( $s, $t ) if $t =~ /\S/s;
+	    if ($t =~ /\S/s && $t !~ /<!/){
+		remember( $s, $t );
+	    }
         } elsif ($kind eq TmplTokenType::TEXT_PARAMETRIZED) {
-            remember( $s, $s->form ) if $s->form =~ /\S/s;
+	    if ($s->form =~ /\S/s && $s->form !~ /<!/){
+		remember( $s, $s->form );
+	    }
         } elsif ($kind eq TmplTokenType::TAG && %$attr) {
             # value [tag=input], meta
             my $tag = lc($1) if $t =~ /^<(\S+)/s;
@@ -174,8 +178,8 @@ EOF
 		my $fmt = TmplTokenizer::_formalize( $param );
 		$fmt =~ s/^%/%$n\$/;
 		if ($type == TmplTokenType::DIRECTIVE) {
-		    $type = "Template::Toolkit Directive";
-#		    $type = $param->string =~ /[%()+/is? $1: 'ERROR';
+#		    $type = "Template::Toolkit Directive";
+		    $type = $param->string =~ /\[%(.*?)%\]/is? $1: 'ERROR';
 		    my $name = $param->string =~ /\bname=(["']?)([^\s"']+)\1/is?
 			    $2: undef;
 		    printf OUTPUT "#. %s: %s\n", $fmt,
-- 
2.39.5