diff options
author | Laura Arjona Reina <larjona> | 2018-05-04 10:38:15 +0000 |
---|---|---|
committer | Laura Arjona Reina <larjona> | 2018-05-04 10:38:15 +0000 |
commit | 2ed55ac55c777b39d8819cfdb9c4054dcc2825d3 (patch) | |
tree | d54573f6c2f7d02970306bd86b739603cc649999 /Perl | |
parent | 5875bd8f492ee0bb057afc5a0dd9b852bb12a351 (diff) |
Add line to the database only if it includes content. Thus, avoid "Use of uninitialized value in hash element" errors
CVS version numbers
Perl/Debian/L10n/Db.pm: 1.8 -> 1.9
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/Debian/L10n/Db.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Perl/Debian/L10n/Db.pm b/Perl/Debian/L10n/Db.pm index 1dcc3ce8756..705d52280c2 100644 --- a/Perl/Debian/L10n/Db.pm +++ b/Perl/Debian/L10n/Db.pm @@ -260,7 +260,9 @@ sub read { $entry->{$_} = \@list; } } + if (defined $entry) { $self->{data}->{$entry->{Package}} = $entry; + } last if $last_item; } close DB; |