- urpmq:

  o add --sourcerpm

1 files changed, 11 insertions, 5 deletions

diff --git a/urpmq b/urpmq
index d6f4e52d..df9c3462 100755
--- a/urpmq
+++ b/urpmq
@@ -77,6 +77,7 @@ usage:
                    authentication (format is <user:password>).
 ") . N("  --env          - use specific environment (typically a bug report).
 ") . N("  --changelog    - print changelog.
+") . N("  --sourcerpm    - print sourcerpm.
 ") . N("  --summary, -S  - print summary.
 ") . N("  --verbose, -v  - verbose mode.
 ") . N("  --requires-recursive, -d
@@ -312,15 +313,17 @@ if ($options{list_aliases}) {
 	$state->{selected} = \%requested;
     }
 
-    if ($options{sources}
-     || $options{info}
-     || $options{files}
-     || $options{changelog})
+    my %need_xml_info;
+    $need_xml_info{info}      = 1 if $options{info} || $options{sourcerpm};
+    $need_xml_info{files}     = 1 if $options{files};
+    $need_xml_info{changelog} = 1 if $options{changelog};
+
+    if ($options{sources} || %need_xml_info)
     {
 	my ($local_sources, $list) = urpm::get_pkgs::selected2list($urpm, $state->{selected});
 	my %xml_info_pkgs;
 
-	if ($options{info} || $options{files} || $options{changelog}) {
+	if (%need_xml_info) {
 	    # get descriptions of update sources
 	    my $updates_descr = urpm::get_updates_description($urpm);
 
@@ -405,6 +408,9 @@ if ($options{list_aliases}) {
 			    print join("\n", $pkg->files) . "\n";
 			}
 		    }
+		    if (my @tags = grep { $options{$_} } 'sourcerpm') {
+			print $pkg->name, ': ', $pkg->$_, "\n" foreach @tags;
+		    }
 		    if ($options{changelog}) {
 			if (my @changelogs = $pkg->changelogs) {
 			    foreach (@changelogs) {