Correctly determine last commit timestamp for a set of bzr files (see #79)

This commit is contained in:
Steve Purcell 2012-04-18 10:44:49 +01:00
parent c0f349295a
commit 05f920a494

View file

@ -272,7 +272,10 @@ seconds; the server cuts off after 10 requests in 20 seconds.")
(delete-directory dir t nil)) (delete-directory dir t nil))
(print "cloning repository") (print "cloning repository")
(pb/run-process nil "bzr" "branch" repo dir))) (pb/run-process nil "bzr" "branch" repo dir)))
(pb/run-process dir "bzr" "info" "-vv") (apply 'pb/run-process dir "bzr" "log" "-l1"
(pb/expand-file-list dir
(or (plist-get config :files)
(list "*.el"))))
(pb/find-parse-time (pb/find-parse-time
"\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\}\\)")))) "\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\}\\)"))))