From 3ee7f9f6aaf518c5dd8b5817f0e9ea19d142622c Mon Sep 17 00:00:00 2001 From: Steve Purcell Date: Tue, 11 Dec 2012 11:01:05 +0000 Subject: [PATCH] Use string-equals to compare wiki content hashes, not eq --- package-build.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/package-build.el b/package-build.el index 6b750163..2f23b978 100644 --- a/package-build.el +++ b/package-build.el @@ -185,8 +185,10 @@ seconds; the server cuts off after 10 requests in 20 seconds.") ;; foo.el.stamp file containing ("SHA1" . "PARSED_TIME") (let* ((new-content-hash (secure-hash 'sha1 (pb/slurp-file filename))) (stamp-file (concat filename ".stamp")) - (stamp-info (pb/read-from-file stamp-file))) - (if (eq new-content-hash (car stamp-info)) + (stamp-info (pb/read-from-file stamp-file)) + (prev-content-hash (car stamp-info))) + (if (and prev-content-hash + (string-equal new-content-hash prev-content-hash)) ;; File has not changed, so return old timestamp (progn (message "%s is unchanged" filename)