Add a --root option (by Michael Scherer)

1 files changed, 9 insertions, 1 deletions

diff --git a/rpm-find-leaves b/rpm-find-leaves
index 894003b9..58787184 100644
--- a/rpm-find-leaves
+++ b/rpm-find-leaves
@@ -7,10 +7,12 @@ sub main {
 	my %options;
 	$options{restrict_group} = 0;
 	$options{group} = 'System/Libraries';
+	$options{root} = '';
 	
 	my $usage = N("usage: %s [options]
 where [options] are from
 ", $0) . N("   -h|--help      - print this help message.
+") . N("   --root <path>  - use the given root instead of /
 ") . N("   -g [group]     - restrict results to given group.
 ") . N("                    defaults is %s.
 ", $options{group});
@@ -18,6 +20,12 @@ where [options] are from
 	my $group;
 	
 	while ($_ = shift @_) {
+	        /^--root$/ and do {
+			$root=shift @_;
+			$root and $options{root}=$root;
+			next;
+
+		};
 		/^-g$/ and do {
 			$options{restrict_group}=1;
 			$group=shift @_;
@@ -30,7 +38,7 @@ where [options] are from
 	
 	my @packages;
 	{
-		my $db = URPM::DB::open or die;
+		my $db = URPM::DB::open($options{root}) or die;
 		$db->traverse(sub {
 			my ($p) = @_;
 			$p->pack_header;