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

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

Author: nekral-guest
Date: Wed Sep  9 23:54:01 2009
New Revision: 1924

URL: http://svn.debian.org/wsvn/?sc=1&rev=1924
Log:
	* dl10n-check: Added blacklist of PO files (used in testsuites)
	and whitelist of po4a files.

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

Modified: dl10n/trunk/Changelog
URL: http://svn.debian.org/wsvn/dl10n/trunk/Changelog?rev=1924&op=diff
==============================================================================
--- dl10n/trunk/Changelog (original)
+++ dl10n/trunk/Changelog Wed Sep  9 23:54:01 2009
@@ -1,3 +1,8 @@
+2009-09-10  Nicolas François  <nicolas.francois at centraliens.net>
+
+	* dl10n-check: Added blacklist of PO files (used in testsuites)
+	and whitelist of po4a files.
+
 2009-09-10  Nicolas François  <nicolas.francois at centraliens.net>
 
 	* lib/Locale/Language.pm: Added languages: an, ang, bem, crh, csb,

Modified: dl10n/trunk/dl10n-check
URL: http://svn.debian.org/wsvn/dl10n/trunk/dl10n-check?rev=1924&op=diff
==============================================================================
--- dl10n/trunk/dl10n-check (original)
+++ dl10n/trunk/dl10n-check Wed Sep  9 23:54:01 2009
@@ -646,8 +646,15 @@
         foreach my $file (@pofiles) {
                 next if $file =~ m,^debian/po/,;
                 next if $file =~ m,(?:^|/)(doc|man|po4a)/(?:.*/)?po/,;
+                next if $file =~ m,(?:^|/)po/pod/,; # po4a
                 next if $file =~ m,messages.po$,;
                 next if $file =~ m,(^|/)tests/,;
+                # Those are tests.
+                next if (    (   ($pkg eq "po4a")
+                              or ($pkg eq "bioperl"))
+                         and ($file =~ m/^t\//));
+                next if (    ($pkg eq "po4a")
+                         and ($file =~ m/^intl\//));
 
                 process_po_file($pkg, $file, 'po');
         }
@@ -990,7 +997,8 @@
 sub search_po4a {
         my $pkg = shift;
 
-        my @pofiles = $deb->file_matches("(?:^|/)(doc|man|po4a)/(?:.*/)?po/.*\\.pot?\$");
+        my @pofiles = ($deb->file_matches("(?:^|/)(doc|man|po4a|pod)/(?:.*/)?po/.*\\.pot?\$"),
+                       $deb->file_matches("(?:^|/)po/pod/.*\\.pot?\$"));
 
         foreach my $file (@pofiles) {
                 process_po_file($pkg, $file, 'po4a');