gnu: xpdf: Update to 4.02.

* gnu/packages/pdf.scm (xpdf): Update to 4.02.

gnu/packages/pdf.scm

@@ -272,13 +272,14 @@ reading and editing of existing PDF files.")
 (define-public xpdf
   (package
    (name "xpdf")
-   (version "3.04")
+   (version "4.02")
-   (source (origin
+   (source
-            (method url-fetch)
+    (origin
-            (uri (string-append "ftp://ftp.foolabs.com/pub/xpdf/xpdf-"
+      (method url-fetch)
-                                version ".tar.gz"))
+      (uri (string-append "https://xpdfreader-dl.s3.amazonaws.com/xpdf-"
-            (sha256 (base32
+                          version "4.02.tar.gz"))
-                     "1rbp54mr3z2x3a3a1qmz8byzygzi223vckfam9ib5g1sfds0qf8i"))))
+      (sha256
+       (base32 "1rbp54mr3z2x3a3a1qmz8byzygzi223vckfam9ib5g1sfds0qf8i"))))
    (build-system gnu-build-system)
    (inputs `(("freetype" ,freetype)
              ("gs-fonts" ,gs-fonts)
@@ -292,8 +293,8 @@ reading and editing of existing PDF files.")
              ("libpng" ,libpng)
              ("zlib" ,zlib)))
    (arguments
-    `(#:tests? #f ; there is no check target
+    `(#:tests? #f                     ; there is no check target
-      #:parallel-build? #f ; build fails randomly on 8-way machines
+      #:parallel-build? #f            ; build fails randomly on 8-way machines
       #:configure-flags
         (list (string-append "--with-freetype2-includes="
                              (assoc-ref %build-inputs "freetype")
@@ -315,7 +316,7 @@ reading and editing of existing PDF files.")
    (synopsis "Viewer for PDF files based on the Motif toolkit")
    (description
     "Xpdf is a viewer for Portable Document Format (PDF) files.")
-   (license license:gpl3) ; or gpl2, but not gpl2+
+   (license license:gpl3)             ; or gpl2, but not gpl2+
    (home-page "https://www.xpdfreader.com/")))
 
 (define-public zathura-cb