Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Use string-equals to compare wiki content hashes, not eq

  • Loading branch information...
commit 3ee7f9f6aaf518c5dd8b5817f0e9ea19d142622c 1 parent b1df01b
@purcell purcell authored
Showing with 4 additions and 2 deletions.
  1. +4 −2 package-build.el
View
6 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)
Please sign in to comment.
Something went wrong with that request. Please try again.