- add simple build description show function

diff --git a/Build.pm b/Build.pm
index 5efd883..6a87463 100644 (file)
--- a/Build.pm
+++ b/Build.pm
@@ -834,6 +834,18 @@ sub add_all_providers {
 
 ###########################################################################
 
+sub show {
+  my ($conffile, $fn, $field, $arch) = @ARGV;
+  my $cf = read_config($arch, $conffile);
+  die unless $cf;
+  my $d = Build::parse($cf, $fn);
+  die("$d->{'error'}\n") if $d->{'error'};
+  $d->{'sources'} = [ map {$d->{$_}} grep {/^source/} sort keys %$d ];
+  my $x = $d->{$field};
+  $x = [ $x ] unless ref $x;
+  print "$_\n" for @$x;
+}
+
 sub parse {
   my ($cf, $fn, @args) = @_;
   return Build::Rpm::parse($cf, $fn, @args) if $do_rpm && $fn =~ /\.spec$/;