From f74f9d78b6ef204b6c0f4cfeca0932d70892fe02 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 25 Sep 2008 08:51:06 +0000
Subject: - generate /var/lib/rpm/installed-through-deps.list   (to initialize
 urpmi orphans)

- for this, we must ensure $packages (which is similar to urpmi's $urpm) has
  field {root}
---
 perl-install/install/pkgs.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/install/pkgs.pm')

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 4f36d9f06..f5b8de340 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -332,6 +332,7 @@ sub empty_packages {
     @$packages{qw(count media)} = (0, []);
 
     $packages->{log} = \&log::l;
+    $packages->{root} = $::prefix;
     $packages->{prefer_vendor_list} = '/etc/urpmi/prefer.vendor.list';
     $packages->{keep_unrequested_dependencies} =
       defined($o_keep_unrequested_dependencies) ? $o_keep_unrequested_dependencies : 1;
-- 
cgit v1.2.1