From: Michael Schroeder <mls@suse.de>
Date: Fri, 7 Dec 2018 14:03:14 +0000 (+0100)
Subject: tclsolv: Adapt to Selection-flags change
X-Git-Tag: 0.7.2~2
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0b3e2bcce9dcd91d6725db5263e0d9e02b876ad3;p=thirdparty%2Flibsolv.git

tclsolv: Adapt to Selection-flags change

Should have been in commit c6b300573f9974706db9dfd061b6e6c5b0e81bf8
---

diff --git a/examples/tclsolv b/examples/tclsolv
index 8d855be7..e24c1d81 100755
--- a/examples/tclsolv
+++ b/examples/tclsolv
@@ -636,10 +636,10 @@ foreach arg $::argv {
     puts "nothing matches '$arg'"
     exit 1
   }
-  if {[$sel flags] & $solv::Selection_SELECTION_FILELIST} {
+  if {[$sel cget -flags] & $solv::Selection_SELECTION_FILELIST} {
     puts "\[using file list match for '$arg']"
   }
-  if {[$sel flags] & $solv::Selection_SELECTION_PROVIDES} {
+  if {[$sel cget -flags] & $solv::Selection_SELECTION_PROVIDES} {
     puts "\[using capability match for '$arg']"
   }
   lappend jobs {*}[$sel jobs $cmdactionmap($cmd)]