From 34bb53191d84cc24203650fbd937db8744c1708b Mon Sep 17 00:00:00 2001
From: Bas Zoetekouw <bas>
Date: Sun, 14 Dec 2008 14:58:21 +0000
Subject: Properly ignore commented lines in $lang/.wmlrc files (see
 http://lists.debian.org/debian-www/2008/12/msg00122.html)

CVS version numbers

check_trans.pl: 1.86 -> 1.87
---
 check_trans.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'check_trans.pl')

diff --git a/check_trans.pl b/check_trans.pl
index c434ad17c6e..d468cabbf35 100755
--- a/check_trans.pl
+++ b/check_trans.pl
@@ -1188,6 +1188,7 @@ sub get_file_charset
 	{
 		while ( my $line = <$fd> )
 		{
+			next if $line =~ m{^[#%]};
 			next unless $line =~ m{CHARSET=(.*?)\s*$};
 			$charset = $1;
 			last;
-- 
cgit v1.2.3