Danny Milosavljevic <[email protected]> skribis: > * gnu/packages/patches/ghostscript-no-header-creationdate.patch: New file. > * gnu/local.mk (dist_patch_DATA): Add it. > * gnu/packages/ghostscript.scm (ghostscript): Use it. > --- > gnu/local.mk | 1 + > gnu/packages/ghostscript.scm | 10 ++-------- > .../patches/ghostscript-no-header-creationdate.patch | 16 > ++++++++++++++++ > 3 files changed, 19 insertions(+), 8 deletions(-) > create mode 100644 > gnu/packages/patches/ghostscript-no-header-creationdate.patch > > diff --git a/gnu/local.mk b/gnu/local.mk > index 9cf4648aa..0880de038 100644 > --- a/gnu/local.mk > +++ b/gnu/local.mk > @@ -621,6 +621,7 @@ dist_patch_DATA = > \ > %D%/packages/patches/ghostscript-CVE-2017-8291.patch \ > %D%/packages/patches/ghostscript-no-header-id.patch \ > %D%/packages/patches/ghostscript-no-header-uuid.patch \ > + %D%/packages/patches/ghostscript-no-header-creationdate.patch \ > %D%/packages/patches/ghostscript-runpath.patch \ > %D%/packages/patches/glib-networking-ssl-cert-file.patch \ > %D%/packages/patches/glib-tests-timer.patch \ > diff --git a/gnu/packages/ghostscript.scm b/gnu/packages/ghostscript.scm > index 3a84db3e4..b15b032a7 100644 > --- a/gnu/packages/ghostscript.scm > +++ b/gnu/packages/ghostscript.scm > @@ -144,6 +144,7 @@ printing, and psresize, for adjusting page sizes.") > "0lyhjcrkmd5fcmh8h56bs4xr9k4jasmikv5vsix1hd4ai0ad1q9b")) > (patches (search-patches "ghostscript-runpath.patch" > "ghostscript-CVE-2017-8291.patch" > + "ghostscript-no-header-creationdate.patch" > "ghostscript-no-header-id.patch" > "ghostscript-no-header-uuid.patch")) > (modules '((guix build utils))) > @@ -154,14 +155,7 @@ printing, and psresize, for adjusting page sizes.") > '(begin > (for-each delete-file-recursively '("freetype" "jbig2dec" "jpeg" > "lcms2" "libpng" > - "tiff" "zlib")) > - ;; Get rid of timestamps (remove /CreationDate and /ModDate). > - (substitute* "devices/vector/gdevpdf.c" > - ((", but we do the same") > - (string-append "*/ " > - "if (!getenv(\"GS_GENERATE_UUIDS\") || " > - "(strcmp(getenv(\"GS_GENERATE_UUIDS\"), \"0\") > != 0 && " > - "strcmp(getenv(\"GS_GENERATE_UUIDS\"), \"no\") > != 0)) /*"))))))) > + "tiff" "zlib"))))))
Hmm, what is this patch against? Was it generated against a previous WIP tree? Ludo’.
