<pre style='margin:0'>
Rainer Müller (raimue) pushed a commit to branch release-2.4
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/20c76156ab6bae19c24e6fe94b2c5d6b43ce5086">https://github.com/macports/macports-base/commit/20c76156ab6bae19c24e6fe94b2c5d6b43ce5086</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 20c76156ab6bae19c24e6fe94b2c5d6b43ce5086
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Tue Oct 31 04:05:24 2017 +1100

<span style='display:block; white-space:pre;color:#404040;'>    Don't allow non-integer epoch or revision
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Closes: #32
</span><span style='display:block; white-space:pre;color:#404040;'>    Closes: https://trac.macports.org/ticket/26486
</span><span style='display:block; white-space:pre;color:#404040;'>    (cherry picked from commit 387cd8ca7c7a54a38ea24fc1d698444720dfa8eb)
</span>---
 src/port1.0/portmain.tcl | 9 +++++++++
 1 file changed, 9 insertions(+)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/portmain.tcl b/src/port1.0/portmain.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 96f5202..f973c61 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/portmain.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/portmain.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -58,12 +58,21 @@ options prefix name version revision epoch categories maintainers \
</span>         compiler.cpath compiler.library_path \
         add_users
 
<span style='display:block; white-space:pre;background:#e0ffe0;'>+proc portmain::check_option_integer {option action args} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {$action eq "set" && ![string is wideinteger -strict $args]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        return -code error "$option must be an integer"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> # Order of option_proc and option_export matters. Filter before exporting.
 
 # Assign option procedure to default_variants
 option_proc default_variants handle_default_variants
 # Handle notes special for better formatting
 option_proc notes handle_option_string
<span style='display:block; white-space:pre;background:#e0ffe0;'>+# Ensure that revision and epoch are integers
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+option_proc epoch portmain::check_option_integer
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+option_proc revision portmain::check_option_integer
</span> 
 # Export options via PortInfo
 options_export name version revision epoch categories maintainers platforms description long_description notes homepage license provides conflicts replaced_by installs_libs license_noconflict patchfiles
</pre><pre style='margin:0'>

</pre>