<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch release-2.4
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/e214c747973894cadab95457b9ed396c87d6fc93">https://github.com/macports/macports-base/commit/e214c747973894cadab95457b9ed396c87d6fc93</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit e214c747973894cadab95457b9ed396c87d6fc93
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Fri Feb 17 10:56:05 2017 +1100

<span style='display:block; white-space:pre;color:#404040;'>    Fix validity checks in ui_ask_singlechoice
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Check that input is an integer before doing a comparison with it, and
</span><span style='display:block; white-space:pre;color:#404040;'>    check that it is positive.
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Backport of 01a507a.
</span>---
 src/port/port.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/port.tcl b/src/port/port.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 3189509..76a0de0 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -5480,7 +5480,7 @@ namespace eval portclient::questions {
</span>                 throw
             }
             signal -restart error {TERM INT}
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            if {($input <= [llength $ports] && [string is integer -strict $input])} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {[string is integer -strict $input] && $input <= [llength $ports] && $input > 0} {
</span>                 return [expr {$input - 1}]
             } else {
                 puts "Please enter an index from the above list."
</pre><pre style='margin:0'>

</pre>