04/05: gnu: openjdk: Disallow references to the JDK used for build.

[guix-commits]

civodul pushed a commit to branch version-1.3.0
in repository guix.

commit 78789cb6e26b59b3fb863854b7c8d99401dc7620
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Apr 21 12:53:54 2021 +0200

    gnu: openjdk: Disallow references to the JDK used for build.
    
    This ensures JDKs don't unintentionally keep references to the one used
    to build them, as reported at <https://issues.guix.gnu.org/31719#7> and
    fixed by 97a43db8b4416a1450aa61737edba9cf4126cf1c.
    
    * gnu/packages/java.scm (icedtea-8)[arguments]: Add #:disallowed-references.
    (openjdk9)[arguments]: Likewise.
    (openjdk10)[arguments]: Likewise.
    (openjdk11)[arguments]: Likewise.
---
 gnu/packages/java.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm
index 3cd9766..8a1ba5f 100644
--- a/gnu/packages/java.scm
+++ b/gnu/packages/java.scm
@@ -1749,6 +1749,9 @@ IcedTea build harness.")
          ((guix build ant-build-system)
           (guix build syscalls)
           ,@%gnu-build-system-modules)
+
+         #:disallowed-references ((,icedtea-7 "jdk"))
+
          ,@(substitute-keyword-arguments (package-arguments icedtea-7)
              ((#:modules modules)
               `((guix build utils)
@@ -1902,6 +1905,9 @@ new Date();"))
        #:imported-modules
        ((guix build syscalls)
         ,@%gnu-build-system-modules)
+
+       #:disallowed-references (,icedtea-8 (,icedtea-8 "jdk"))
+
        #:phases
        (modify-phases %standard-phases
          (add-after 'patch-source-shebangs 'fix-java-shebangs
@@ -2097,7 +2103,9 @@ new Date();"))
                        "--with-libjpeg=system"
                        "--with-native-debug-symbols=zipped"
                        (string-append "--prefix=" (assoc-ref outputs "out")))
-               #t))))))
+               #t))))
+       ((#:disallowed-references _ '())
+        `(,openjdk9 (,openjdk9 "jdk")))))
     (native-inputs
      `(("openjdk9" ,openjdk9)
        ("openjdk9:jdk" ,openjdk9 "jdk")
@@ -2127,6 +2135,9 @@ new Date();"))
     (arguments
      `(#:imported-modules ((guix build syscalls)
                            ,@%gnu-build-system-modules)
+
+       #:disallowed-references (,openjdk10 (,openjdk10 "jdk"))
+
        #:tests? #f; requires jtreg
        ;; TODO package jtreg
        #:configure-flags