Attachment 10369 Details for Bug 23531 – debugging patch example

[patch] debugging patch example

P.diff (text/plain), 879 bytes, created by Thierry Vignaud on 2018-09-13 11:32:03 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Thierry Vignaud

Created: 2018-09-13 11:32:03 CEST

Size: 879 bytes

patch

obsolete

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 3317f0fbe..2c9c5be3b 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -842,10 +842,17 @@ sub _unselect_package {
 sub is_package_installed {
     my ($db, $pkg) = @_;
     my $check_installed;
+    my $done;
+    my $n=$pkg->name;
     $db->traverse_tag('name', [ $pkg->name ], sub {
                           my ($p) = @_;
+                          $done = 1;
                           $check_installed ||= $pkg->compare_pkg($p) == 0;
+                          log::l(">> ". $pkg->EVR . " vs ". $p->EVR. " --> check_installed=$check_installed\n");
+                          warn ">> ". $pkg->EVR . " vs ". $p->EVR. "\n";
+
                       });
+    log::l("check_installed=0 for $n b/c pkg wasn't found in db") if !$done;
     return $check_installed;
 }

Actions: View | Diff

Attachments on bug 23531: 10355 | 10365 | 10366 | 10367 | 10369