<pre style='margin:0'>
Mihai Moldovan (Ionic) pushed a commit to branch master
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/0846afbd204cd7e7141a67ce250ab7d7d9c4a54f">https://github.com/macports/macports-base/commit/0846afbd204cd7e7141a67ce250ab7d7d9c4a54f</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'>     new 0846afb  misc src/: fixup eb0a577a2e93b4d3520a9e753c256739f450d7c6.
</span>0846afb is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 0846afbd204cd7e7141a67ce250ab7d7d9c4a54f
</span>Author: Mihai Moldovan <ionic@ionic.de>
AuthorDate: Sat Feb 4 21:00:35 2017 +0100

<span style='display:block; white-space:pre;color:#404040;'>    misc src/: fixup eb0a577a2e93b4d3520a9e753c256739f450d7c6.
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    "string is entier" is only available in TCL 8.6+. Use "string is
</span><span style='display:block; white-space:pre;color:#404040;'>    wideinteger" as a workaround for now.
</span>---
 src/macports1.0/macports_util.tcl | 4 ++--
 src/macports1.0/reclaim.tcl       | 2 +-
 src/port/port.tcl                 | 4 ++--
 src/port1.0/portbuild.tcl         | 4 ++--
 src/port1.0/portlint.tcl          | 6 +++---
 5 files changed, 10 insertions(+), 10 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/macports_util.tcl b/src/macports1.0/macports_util.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 41f2419..1f5a146 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/macports_util.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/macports_util.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -108,7 +108,7 @@ proc ldindex {varName args} {
</span>         set idx [lindex $args 0]
         set size [llength $var]
         set badrange? 0
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {[string is entier -strict $idx]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[string is wideinteger -strict $idx]} {
</span>             if {$idx < 0 || $idx >= $size} {
                 set badrange? 1
             }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -116,7 +116,7 @@ proc ldindex {varName args} {
</span>             if {$size == 0} {
                 set badrange? 1
             }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        } elseif {[string match "end-*" $idx] && [string is entier -strict [string range $idx 4 end]]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        } elseif {[string match "end-*" $idx] && [string is wideinteger -strict [string range $idx 4 end]]} {
</span>             set i [expr {$size - 1 - [string range $idx 4 end]}]
             if {$i < 0 || $i >= $size} {
                 set badrange? 1
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/reclaim.tcl b/src/macports1.0/reclaim.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 4a0e173..ec3c373 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/reclaim.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/reclaim.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -354,7 +354,7 @@ namespace eval reclaim {
</span> 
         set time [read_last_run_file]
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {![string is entier -strict $time]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {![string is wideinteger -strict $time]} {
</span>             return
         }
 
<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 a80b236..f8aa9a0 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 entier -strict $input])} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            if {($input <= [llength $ports] && [string is wideinteger -strict $input])} {
</span>                 return [expr {$input - 1}]
             } else {
                 puts "Please enter an index from the above list."
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -5545,7 +5545,7 @@ namespace eval portclient::questions {
</span> 
             set err_flag 1
             foreach num $input {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                if {[string is entier -strict $num] && $num <= [llength $ports] && $num > 0} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                if {[string is wideinteger -strict $num] && $num <= [llength $ports] && $num > 0} {
</span>                     lappend selected_opt [expr {$num -1}]
                 } elseif {[regexp {(\d+)-(\d+)} $input _ start end]
                           && $start <= [llength $ports]
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/portbuild.tcl b/src/port1.0/portbuild.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index cd92f8e..a286923 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/portbuild.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/portbuild.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -148,7 +148,7 @@ proc portbuild::build_getjobs {args} {
</span>             }
         } catch {*} {}
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![string is entier -strict $jobs] || $jobs <= 1} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![string is wideinteger -strict $jobs] || $jobs <= 1} {
</span>         set jobs 1
     }
     return $jobs
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -177,7 +177,7 @@ proc portbuild::build_getjobsarg {args} {
</span>         return ""
     }
     set jobs [option build.jobs]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![string is entier -strict $jobs] || $jobs <= 1} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![string is wideinteger -strict $jobs] || $jobs <= 1} {
</span>         return ""
     }
     return " -j$jobs"
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/portlint.tcl b/src/port1.0/portlint.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index ba671f2..f7ba968 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/portlint.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/portlint.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -426,11 +426,11 @@ proc portlint::lint_main {args} {
</span>         }
     }
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![string is entier -strict $epoch]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![string is wideinteger -strict $epoch]} {
</span>         ui_error "Port epoch is not numeric: $epoch"
         incr errors
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {![string is entier -strict $revision]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {![string is wideinteger -strict $revision]} {
</span>         ui_error "Port revision is not numeric: $revision"
         incr errors
     }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -635,7 +635,7 @@ proc portlint::lint_main {args} {
</span>                         # if the last character of license name is a number or plus sign
                         # then a hyphen is missing
                         set license_end [string index $subtest end]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                        if {"+" eq $license_end || [string is entier -strict $license_end]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        if {"+" eq $license_end || [string is wideinteger -strict $license_end]} {
</span>                             ui_error "invalid license '${test}': missing hyphen before version"
                             incr errors
                         }
</pre><pre style='margin:0'>

</pre>