read installed: include open-error in die message

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/DAB.pm b/DAB.pm
index 6d850beeed9f3c7fb988bf1085d34d476c9bb2d4..f0d025fc6196bd4033bfe21875527d4d3ef3b57e 100644 (file)
--- a/DAB.pm
+++ b/DAB.pm
@@ -884,8 +884,7 @@ sub read_installed {
 
     my $pkgfilelist = "$rootdir/var/lib/dpkg/status";
     local $/ = '';
-    open (PKGLST, "<$pkgfilelist") ||
-       die "unable to open '$pkgfilelist'";
+    open (PKGLST, "<$pkgfilelist") or die "unable to open '$pkgfilelist' - $!";
 
     my $pkglist = {};