From 2ea5fa3631111b93ebc3e7b495dd03623d932542 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 10 Jun 2014 16:20:27 +0100 Subject: [PATCH] pkg/lib: create and unpack ".zip" files with timestamps as UTC --- racket/collects/pkg/lib.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/racket/collects/pkg/lib.rkt b/racket/collects/pkg/lib.rkt index 482cc6d584..d1d3d799e9 100644 --- a/racket/collects/pkg/lib.rkt +++ b/racket/collects/pkg/lib.rkt @@ -1294,7 +1294,8 @@ (remove-extra-directory-layer pkg-dir)] [#"zip" (unzip pkg-path (make-filesystem-entry-reader #:dest pkg-dir) - #:preserve-timestamps? #t) + #:preserve-timestamps? #t + #:utc-timestamps? #t) (remove-extra-directory-layer pkg-dir)] [#"plt" (make-directory* pkg-dir) @@ -2660,7 +2661,9 @@ (apply zip pkg/complete content #:path-prefix (and (add-directory-layer? content) pkg-name) - #:get-timestamp file-or-directory-timestamp)))] + #:get-timestamp file-or-directory-timestamp + #:utc-timestamps? #t + #:round-timestamps-down? #t)))] ['plt (define dest pkg/complete) (when (pkg-single-collection #:name pkg-name dir)