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

$desc_md5 might be undefined if we handle a virtual package.

diff --git a/lib/Packages/DoShow.pm b/lib/Packages/DoShow.pm
index 1d41c3a98c964d6ab235527a06936bffb7a12c39..01590653cf64edcddb1d8e7f9446e26e22fa05e1 100644 (file)
--- a/lib/Packages/DoShow.pm
+++ b/lib/Packages/DoShow.pm
@@ -442,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 $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];
            my $arch = $entry->[3];
            my $archive = $entry->[1];
            my $p_suite = $entry->[2];