From 16a2848ca54c479a6121d7864efb1f935761bbe8 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 1 Dec 2012 19:51:12 +0000
Subject: [PATCH] lib/func.tcl: Hack output of `openssl dgst -hex'.

Remove the gratuitous incompatibility from the front.
---
 lib/func.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/func.tcl b/lib/func.tcl
index 04bd206..1f73008 100644
--- a/lib/func.tcl
+++ b/lib/func.tcl
@@ -448,10 +448,10 @@ proc sync-profiles {} {
 proc req-key-hash {file} {
   ## Return the key hash from the certificate request in FILE.
 
-  return [exec \
+  return [lindex [exec \
 	      openssl req -in $file -noout -pubkey | \
 	      openssl rsa 2>/dev/null -pubin -outform der | \
-	      openssl dgst -sha256 -hex]
+	      openssl dgst -sha256 -hex] end]
 }
 
 proc req-dn {file} {
@@ -466,10 +466,10 @@ proc req-dn {file} {
 proc cert-key-hash {file} {
   ## Return the key hash from the certificate in FILE.
 
-  return [exec \
+  return [lindex [exec \
 	      openssl x509 -in $file -noout -pubkey | \
 	      openssl rsa 2>/dev/null -pubin -outform der | \
-	      openssl dgst -sha256 -hex]
+	      openssl dgst -sha256 -hex] end]
 }
 
 proc cert-dn {file} {
-- 
2.11.0