Changeset 79088

Timestamp:

06/01/11 20:18:50 (4 years ago)

Author:

jmr@…

Message:

move invariant out of loop

File:

• trunk/base/src/package1.0/portarchivefetch.tcl (modified) (1 diff)

trunk/base/src/package1.0/portarchivefetch.tcl

@@ -219 +219 @@
                     return -code error "Failed to fetch signature for archive: $result"
                 }
+                set openssl [findBinary openssl $portutil::autoconf::openssl_path]
                 set verified 0
                 foreach pubkey [option archivefetch.pubkeys] {
-                    set openssl [findBinary openssl $portutil::autoconf::openssl_path]
                     if {![catch {exec $openssl dgst -ripemd160 -verify $pubkey -signature $signature "${incoming_path}/${archive}.TMP"} result]} {
                         set verified 1