Improve some error messages.

CVS version numbers

Perl/Webwml/L10n/Db.pm: 1.5 -> 1.6

1 files changed, 6 insertions, 2 deletions

diff --git a/Perl/Webwml/L10n/Db.pm b/Perl/Webwml/L10n/Db.pm
index 7719284cce2..75fbad19431 100644
--- a/Perl/Webwml/L10n/Db.pm
+++ b/Perl/Webwml/L10n/Db.pm
@@ -153,7 +153,7 @@ sub read {
 
         chomp($self->{date});
         $_ = <DB>;
-        next unless defined $_;
+        return unless defined $_;
         MAIN: while (1) {
                 my $entry = {};
                 my $desc = '';
@@ -175,8 +175,12 @@ sub read {
                 foreach (@{$self->{scalar}}) {
                         if ($desc =~ m/^$_: (.*)$/m) {
                                 $entry->{$_} = $1;
+                        } elsif ($_ eq 'Package') {
+                                warn "Parse error when reading $file: missing \`$_' field\n";
+                                next MAIN;
                         } else {
-                                warn "Parse error when reading $file: missing $_ field\n";
+                                warn "Parse error when reading $file: Package ".$entry->{Package}.": missing \`$_' field\n";
+                                delete $self->{data}->{$entry->{Package}};
                                 next MAIN;
                         }
                 }