[123831] trunk/base/src/macports1.0/macports.tcl

[larryv at macports.org]

Revision: 123831
          https://trac.macports.org/changeset/123831
Author:   larryv at macports.org
Date:     2014-08-14 21:58:29 -0700 (Thu, 14 Aug 2014)
Log Message:
-----------
macports.tcl: Convert some flags to booleans.

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

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2014-08-15 02:57:27 UTC (rev 123830)
+++ trunk/base/src/macports1.0/macports.tcl	2014-08-15 04:58:29 UTC (rev 123831)
@@ -2301,7 +2301,7 @@
             ui_debug "Skipping $source"
             continue
         }
-        set needs_portindex 0
+        set needs_portindex false
         ui_info "Synchronizing local ports tree from $source"
         switch -regexp -- [macports::getprotocol $source] {
             {^file$} {
@@ -2373,7 +2373,7 @@
                         continue
                     }
                 }
-                set needs_portindex 1
+                set needs_portindex true
             }
             {^rsync$} {
                 # Where to, boss?
@@ -2456,7 +2456,7 @@
                     file delete -force ${destdir}/tmp
                 }
 
-                set needs_portindex 1
+                set needs_portindex true
                 # now sync the index if the local file is missing or older than a day
                 if {![file isfile $indexfile] || [clock seconds] - [file mtime $indexfile] > 86400
                       || [info exists options(no_reindex)]} {
@@ -2473,10 +2473,10 @@
                         ui_debug "Synchronization of the PortIndex failed doing rsync"
                     } else {
                         set ok 1
-                        set needs_portindex 0
+                        set needs_portindex false
                         if {$is_tarball} {
                             set ok 0
-                            set needs_portindex 1
+                            set needs_portindex true
                             # verify signature for PortIndex
                             set rsync_commandline "$macports::autoconf::rsync_path $rsync_options ${remote_indexfile}.rmd160 $destdir"
                             ui_debug $rsync_commandline
@@ -2484,7 +2484,7 @@
                                 foreach pubkey $macports::archivefetch_pubkeys {
                                     if {![catch {exec $openssl dgst -ripemd160 -verify $pubkey -signature ${destdir}/PortIndex.rmd160 ${destdir}/PortIndex} result]} {
                                         set ok 1
-                                        set needs_portindex 0
+                                        set needs_portindex false
                                         ui_debug "successful verification with key $pubkey"
                                         break
                                     } else {
@@ -2598,7 +2598,7 @@
         }
 
         if {$needs_portindex} {
-            set any_needed_portindex 1
+            set any_needed_portindex true
             if {![info exists options(no_reindex)]} {
                 global macports::prefix
                 set indexdir [file dirname [macports::getindex $source]]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140814/06c8f318/attachment-0001.html>