Packages::DoShow: Fix a "uninitialized value" warning

[deb/packages.git] / lib / Packages / DoShow.pm

diff --git a/lib/Packages/DoShow.pm b/lib/Packages/DoShow.pm
index 5d6174c734d5f5ba0d0a395ffda1daaec3a877a5..01590653cf64edcddb1d8e7f9446e26e22fa05e1 100644 (file)
--- a/lib/Packages/DoShow.pm
+++ b/lib/Packages/DoShow.pm
@@ -14,7 +14,6 @@ use Deb::Versions;
 use Packages::Config qw( $DBDIR @SUITES @ARCHIVES @SECTIONS
                         @ARCHITECTURES %FTP_SITES
                         @LANGUAGES @DDTP_LANGUAGES);
-use Packages::I18N::Locale;
 use Packages::CGI qw( :DEFAULT make_url make_search_url );
 use Packages::DB;
 use Packages::Search qw( :all );
@@ -443,7 +442,7 @@ sub build_deps {
            my $entry = $entries{$p_name} ||
                read_entry_simple( $packages, $p_name, $opts->{h_archives}, $suite);
            my $short_desc = $entry->[-1];
-           my $desc_md5 = $entry->[-2];
+           my $desc_md5 = $entry->[-2] || '';
            my $arch = $entry->[3];
            my $archive = $entry->[1];
            my $p_suite = $entry->[2];