Imported Upstream version 0.7.2

[platform/upstream/libsolv.git] / examples / tclsolv

diff --git a/examples/tclsolv b/examples/tclsolv
index 8d855be..e24c1d8 100755 (executable)
--- 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)]