From 3289ff59d49c9c44b97dab46839ae0e63d7e7810 Mon Sep 17 00:00:00 2001
From: tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>
Date: Wed, 26 Oct 2016 18:30:23 +0000
Subject: fix running rpm_produced

git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@266 971eb68f-4bfb-0310-8326-d2484c010a4c
---
 RPM4/NEWS             | 2 ++
 RPM4/bin/rpm_produced | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/RPM4/NEWS b/RPM4/NEWS
index 6b6f11d..d2bc453 100644
--- a/RPM4/NEWS
+++ b/RPM4/NEWS
@@ -1,3 +1,5 @@
+- fix running rpm_produced
+
 Version 0.36 - 26 October 2016
 
 - fix segfault in testsuite
diff --git a/RPM4/bin/rpm_produced b/RPM4/bin/rpm_produced
index 09dcfc4..fee3cb7 100755
--- a/RPM4/bin/rpm_produced
+++ b/RPM4/bin/rpm_produced
@@ -61,7 +61,7 @@ foreach my $file (@ARGV) {
     set_config();
     $file =~ m/\.src\.rpm$/ and do {
         if(my ($specfile) = RPM4::installsrpm($file)) {
-            if (my $spec = RPM4::specnew($specfile, undef, undef, undef, 1, 1)) {
+            if (my $spec = RPM4::specnew($specfile, undef, undef)) {
                 specquery($spec);
                 $spec->build([qw(RMSOURCE RMSPEC)]);
             }
@@ -69,7 +69,7 @@ foreach my $file (@ARGV) {
         next;
     };
     $file =~ m/\.spec$/ and do {
-        if (my $spec = RPM4::specnew($file, undef, undef, undef, 1, 1)) {
+        if (my $spec = RPM4::specnew($file, undef, undef)) {
             specquery($spec);
         }
         next;
-- 
cgit v1.2.1