[146742] trunk/base/src/macports1.0/reclaim.tcl

[ijackson at macports.org]

Revision: 146742
          https://trac.macports.org/changeset/146742
Author:   ijackson at macports.org
Date:     2016-03-16 14:26:54 -0700 (Wed, 16 Mar 2016)
Log Message:
-----------
Ask alternative question inside while loop.

When we try to list the files to be removed
it just keeps on listing inside the while loop
without asking for user input.

Modified Paths:
--------------
    trunk/base/src/macports1.0/reclaim.tcl

Modified: trunk/base/src/macports1.0/reclaim.tcl
===================================================================
--- trunk/base/src/macports1.0/reclaim.tcl	2016-03-16 17:26:29 UTC (rev 146741)
+++ trunk/base/src/macports1.0/reclaim.tcl	2016-03-16 21:26:54 UTC (rev 146742)
@@ -197,11 +197,11 @@
         if {[llength $superfluous_files] > 0} {
             if {[info exists macports::ui_options(questions_alternative)]} {
                 array set alternatives {d delete k keep l list}
-                set retstring [$macports::ui_options(questions_alternative) [msgcat::mc \
-                    "Found %d files (total %s) that are no longer needed and can be deleted." \
-                    $num_superfluous_files [bytesize $size_superfluous_files]] "deleteFilesQ" "alternatives" {k}]
+                while 1 {
+                    set retstring [$macports::ui_options(questions_alternative) [msgcat::mc \
+                        "Found %d files (total %s) that are no longer needed and can be deleted." \
+                        $num_superfluous_files [bytesize $size_superfluous_files]] "deleteFilesQ" "alternatives" {k}]
                 
-                while 1 {
                     switch $retstring {
                         d {
                             ui_msg "Deleting..."
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20160316/2783cad4/attachment.html>