From 65f7f175176b2aa78799976116786f0dbe6a11c3 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 7 Nov 2005 15:51:22 +0000
Subject: Better error message when rpm2header isn't installed

---
 urpmq | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'urpmq')

diff --git a/urpmq b/urpmq
index 7062b13b..f8122663 100755
--- a/urpmq
+++ b/urpmq
@@ -307,8 +307,13 @@ if ($urpm::args::options{list_aliases}) {
 	    unless ($local_sources || $list) {
 		$urpm->{fatal}(1, N("unable to get source packages, aborting"));
 	    }
+	    my $rpm2header = '/usr/bin/rpm2header';
 	    # TODO rewrite rpm2header in perl
-	    values %$local_sources and system 'rpm2header', values %$local_sources;
+	    -x $rpm2header
+		or $urpm->{fatal}(2, N("rpm2header utility not found, impossible to use the --header option"));
+	    if (values %$local_sources) {
+		system $rpm2header, values %$local_sources;
+	    }
 	    foreach (0..$#{$urpm->{media} || []}) {
 		my @headers = (grep {
 			my $file = "$urpm->{cachedir}/headers/$_";
-- 
cgit v1.2.1