Index: Db.pm
===================================================================
RCS file: /cvs/webwml/webwml/Perl/Webwml/L10n/Db.pm,v
retrieving revision 1.14
diff -u -r1.14 Db.pm
--- Db.pm	9 Feb 2004 21:55:05 -0000	1.14
+++ Db.pm	3 Mar 2004 17:57:43 -0000
@@ -58,7 +58,7 @@
                 #   depend on debconf and did not switch to using po-debconf.
                 scalar  => [qw(Package Version Section Priority Maintainer PoolDir Type Upstream Switch)],
                 array1  => [qw(Errors Catgets Gettext)],
-                array2  => [qw(NLS PO TEMPLATES PODEBCONF MENU DESKTOP MAN)],
+                array2  => [qw(NLS PO TEMPLATES PODEBCONF MENU DESKTOP MAN STATUS)],
         };
         $self->{methods} = {};
         foreach (@{$self->{scalar}}) {
@@ -150,8 +150,9 @@
 sub read {
         my $self = shift;
         my $file  = shift;
-        my $check  = shift || 1;
-
+        my $check  = shift;
+        $check = 1 unless defined $check;
+    
         if ($file =~ m/\.gz$/) {
                 open (DB,"gzip -dc $file |") || return 0;
         } else {
@@ -189,7 +190,7 @@
                                 } else {
                                         $entry->{$_} = $1;
                                 }
-                        } elsif ($check && $_ ne 'Switch') {
+                        } elsif ($check && $_ ne 'Switch' && $_ ne 'STATUS') {
                                 warn "Parse error when reading $file: Package ".(defined($entry->{Package}) ? $entry->{Package} : "<unknown>").": missing \`$_' field\n";
                                 next MAIN;
                         }
