aboutsummaryrefslogtreecommitdiffstats
path: root/URPM.xs
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-03-24 05:08:14 -0400
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-10-14 10:50:57 +0200
commite134398e5535ddf0e4fbda067eeffd7581a9b339 (patch)
tree42b7ef3bb88026194b5a0bbd48ba8b65457a7826 /URPM.xs
parent50b2b1b2be0ecb0bcdce376bb586f7f9db5b6592 (diff)
downloadperl-URPM-e134398e5535ddf0e4fbda067eeffd7581a9b339.tar
perl-URPM-e134398e5535ddf0e4fbda067eeffd7581a9b339.tar.gz
perl-URPM-e134398e5535ddf0e4fbda067eeffd7581a9b339.tar.bz2
perl-URPM-e134398e5535ddf0e4fbda067eeffd7581a9b339.tar.xz
perl-URPM-e134398e5535ddf0e4fbda067eeffd7581a9b339.zip
(check) fix reporting problems
for at least 12 years, since swiching rpm to 4.2 (see commit 60031191b7012fdfe8e1af6bd43ff9b36b0c5825) $trans->check() failed to actually report issues rationale: rpmtsCheck() only actually return !0 if it fails to open rpmdb... in order to check if any problem was found by rpmtsCheck(), one must call retrieving the problem set with rpmtsProblems() rpmtsCheck() success only means that the resolution was successfully attempted for all packages in the set, which isn't that usefull... this might help mga#15350...
Diffstat (limited to 'URPM.xs')
-rw-r--r--URPM.xs8
1 files changed, 1 insertions, 7 deletions
diff --git a/URPM.xs b/URPM.xs
index bd0c6f8..8c05507 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2594,12 +2594,7 @@ Trans_check(trans, ...)
if (len == 17 && !memcmp(s, "translate_message", 17))
translate_message = SvIV(ST(i+1));
}
- if (rpmtsCheck(trans->ts)) {
- if (gimme == G_SCALAR)
- mXPUSHs(newSViv(0));
- else if (gimme == G_ARRAY)
- mXPUSHs(newSVpvs("error while checking dependencies"));
- } else {
+ rpmtsCheck(trans->ts);
rpmps ps = rpmtsProblems(trans->ts);
if (rpmpsNumProblems(ps) > 0) {
if (gimme == G_SCALAR)
@@ -2614,7 +2609,6 @@ Trans_check(trans, ...)
mXPUSHs(newSViv(1));
rpmpsFree(ps);
- }
void
Trans_order(trans, ...)