gnu: hplip: Remove pre-built executable from the source.
* gnu/packages/cups.scm (hplip)[source](snippet): Remove all the files matching 'elf-file?', not just ".so" files. This includes the 'locatedriver' executable found in the upstream tarball.
This commit is contained in:
parent
11e1df56e2
commit
7a7d5f6641
|
@ -1,6 +1,6 @@
|
||||||
;;; GNU Guix --- Functional package management for GNU
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
|
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
|
||||||
;;; Copyright © 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
|
;;; Copyright © 2015, 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
|
||||||
;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
|
;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
|
||||||
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
|
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
|
||||||
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
|
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
|
||||||
|
@ -423,8 +423,12 @@ should only be used as part of the Guix cups-pk-helper service.")
|
||||||
(patches (search-patches "hplip-remove-imageprocessor.patch"))
|
(patches (search-patches "hplip-remove-imageprocessor.patch"))
|
||||||
(snippet
|
(snippet
|
||||||
'(begin
|
'(begin
|
||||||
;; Delete non-free blobs
|
;; Delete non-free blobs: .so files, pre-compiled
|
||||||
(for-each delete-file (find-files "." "\\.so$"))
|
;; 'locatedriver' executable, etc.
|
||||||
|
(for-each delete-file
|
||||||
|
(find-files "."
|
||||||
|
(lambda (file stat)
|
||||||
|
(elf-file? file))))
|
||||||
(delete-file "prnt/hpcups/ImageProcessor.h")
|
(delete-file "prnt/hpcups/ImageProcessor.h")
|
||||||
;; Fix type mismatch.
|
;; Fix type mismatch.
|
||||||
(substitute* "prnt/hpcups/genPCLm.cpp"
|
(substitute* "prnt/hpcups/genPCLm.cpp"
|
||||||
|
|
Loading…
Reference in New Issue