[Debian-l10n-commits] r1875 - in /dl10n/trunk: Changelog dl10n-check

[nekral-guest at users.alioth.debian.org]

Author: nekral-guest
Date: Sat Aug 15 20:11:07 2009
New Revision: 1875

URL: http://svn.debian.org/wsvn/?sc=1&rev=1875
Log:
	* dl10n-check: Added support for 3 letters language
	* lib/Debian/L10n/Html.pm: Removed unneeded modules.
(And fix wrong previous changelog entry)

Modified:
    dl10n/trunk/Changelog
    dl10n/trunk/dl10n-check

Modified: dl10n/trunk/Changelog
URL: http://svn.debian.org/wsvn/dl10n/trunk/Changelog?rev=1875&op=diff
==============================================================================
--- dl10n/trunk/Changelog (original)
+++ dl10n/trunk/Changelog Sat Aug 15 20:11:07 2009
@@ -1,8 +1,8 @@
 2009-08-15  Nicolas François  <nicolas.francois at centraliens.net>
 
 	* lib/Locale/Language.pm: Added Asturian.
-	* lib/Debian/L10n/Html.pm: Added support for 3 letters language
-	codes.
+	* dl10n-check: Added support for 3 letters language
+	* lib/Debian/L10n/Html.pm: Removed unneeded modules.
 
 2009-07-23  Nicolas François  <nicolas.francois at centraliens.net>
 

Modified: dl10n/trunk/dl10n-check
URL: http://svn.debian.org/wsvn/dl10n/trunk/dl10n-check?rev=1875&op=diff
==============================================================================
--- dl10n/trunk/dl10n-check (original)
+++ dl10n/trunk/dl10n-check Sat Aug 15 20:11:07 2009
@@ -655,7 +655,7 @@
 
         foreach my $file (@pofiles) {
                 next if $file =~ m,^debian/po/,;
-                next if $file =~ m,(?:^|/)po4a/(?:.*/)?po/,;
+                next if $file =~ m,(?:^|/)(doc|man|po4a)/(?:.*/)?po/,;
                 next if $file =~ m,messages.po$,;
                 next if $file =~ m,(^|/)tests/,;
 
@@ -694,7 +694,7 @@
         my $bad_lang=""; #this could be a language, but this is not a valid language
         my $this_stat = ""; #stats for this file
         my $err_msg =""; # err msg of the statistic external command (ie, msgfmt or debconf-stats)
-        my $regexp_for_lang_code = '(([a-zA-Z]{2})([-_][a-zA-Z]{2})?(@[^./]*)?)(\.[^./]+)?';
+        my $regexp_for_lang_code = '(([a-zA-Z]{2,3})([-_][a-zA-Z]{2})?(@[^./]*)?)(\.[^./]+)?';
 
         $filename = store_temp($pkg, $file);
 
@@ -1000,7 +1000,7 @@
 sub search_po4a {
         my $pkg = shift;
 
-        my @pofiles = $deb->file_matches("(?:^|/)po4a/(?:.*/)?po/.*\\.pot?\$");
+        my @pofiles = $deb->file_matches("(?:^|/)(doc|man|po4a)/(?:.*/)?po/.*\\.pot?\$");
 
         foreach my $file (@pofiles) {
                 process_po_file($pkg, $file, 'po4a');