diff options
| author | 宋文武 <iyzsong@member.fsf.org> | 2024-06-18 19:12:31 +0800 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-08-31 10:45:12 +0200 |
| commit | 33d92fd4c7838d0cade2a1ecb15c7b760854d524 (patch) | |
| tree | be791104ce37f1285d219eb8b69d105a44cb6d42 /gnu/packages | |
| parent | f79b1fdaede469f078d552d745c073a789d2e839 (diff) | |
| download | guix-33d92fd4c7838d0cade2a1ecb15c7b760854d524.tar.gz guix-33d92fd4c7838d0cade2a1ecb15c7b760854d524.zip | |
gnu: cppawk: Fix build.
* gnu/packages/gawk.scm (cppawk)[arguments]: Don't refer to nonexistent
'build' phase. Fix "/bin/sh" and "/usr/bin/awk" paths in test fails.
Change-Id: Id86a78378558592c41f19f15e4c5e4890f995a6c
Diffstat (limited to 'gnu/packages')
| -rw-r--r-- | gnu/packages/gawk.scm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/gnu/packages/gawk.scm b/gnu/packages/gawk.scm index aadf3d5180..1497030043 100644 --- a/gnu/packages/gawk.scm +++ b/gnu/packages/gawk.scm @@ -183,6 +183,7 @@ of fewer features and extensions.") (add-after 'unpack 'fix-paths (lambda _ (substitute* "bin/cppawk" + (("/bin/sh") (which "sh")) (("/bin/bash") (which "bash")) (("dirname") (which "dirname")) (("mktemp") (which "mktemp")) @@ -190,13 +191,20 @@ of fewer features and extensions.") (("printf ") (string-append (which "printf") " ")) (("rm -f") (string-append (which "rm") " -f")) (("prepro=cpp") (string-append "prepro=" (which "cpp"))) - (("sed -e") (string-append (which "sed") " -e"))))) + (("sed -e") (string-append (which "sed") " -e"))) + (substitute* '("runtests" + "testdir/testawk" + "testdir/testcpp" + "testdir/testdel") + (("/bin/sh") (which "sh"))) + (substitute* "testsuite.awk" + (("/usr/bin/awk") (which "awk"))))) (add-after 'fix-paths 'fix-awk-paths (lambda _ (substitute* "bin/cppawk" (("awk=gawk") (string-append "awk=" (which "gawk"))) (("awk '") (string-append (which "gawk") " '"))))) - (add-after 'build 'check + (add-after 'fix-awk-paths 'check (lambda _ (invoke "./runtests")))))) (native-inputs |