From fe6ff5f258394c88e9a1446c77f8783727913f0a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 27 Feb 2013 21:37:35 +0000
Subject: (find_installed_version) workaround a crash (mga#9197)

---
 Rpmdrake/pkg.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Rpmdrake')

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 53f1f09e..fca2483d 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -189,6 +189,7 @@ sub extract_header {
 
 sub find_installed_version {
     my ($p) = @_;
+    return if !$p;
     my $version;
     open_rpm_db()->traverse_tag_find('name', $p->name, sub { $version = $_[0]->EVR });
     $version || N("(none)");
-- 
cgit v1.2.1