aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Bavier <bavier@cray.com>2018-10-02 13:53:13 -0500
committerEric Bavier <bavier@member.fsf.org>2018-10-02 22:34:39 -0500
commit68faa20e2d4511b43062f8279cc407aee735b275 (patch)
tree6fac0e63203f0af9440b191199743666f8097b62
parent000b540791f082b8a8398dc2ed51fd1526d8357d (diff)
downloadguix-68faa20e2d4511b43062f8279cc407aee735b275.tar
guix-68faa20e2d4511b43062f8279cc407aee735b275.tar.gz
quilt: Upgrade to 0.65.
* gnu/packages/patches/quilt-test-fix-regex.patch: New file. * gnu/local.mk (dist_patch_DATA): Add it. * gnu/packages/patchutils.scm (quilt)[version]: Upgrade to 0.65. [source]: Use patch. [arguments]: Adjust 'patch-tests' phase for new tests. Re-enable "mail" test.
-rw-r--r--gnu/local.mk1
-rw-r--r--gnu/packages/patches/quilt-test-fix-regex.patch41
-rw-r--r--gnu/packages/patchutils.scm19
3 files changed, 56 insertions, 5 deletions
diff --git a/gnu/local.mk b/gnu/local.mk
index 244c79d221..b2fda4ac69 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -1101,6 +1101,7 @@ dist_patch_DATA = \
%D%/packages/patches/qtscript-disable-tests.patch \
%D%/packages/patches/quagga-reproducible-build.patch \
%D%/packages/patches/quickswitch-fix-dmenu-check.patch \
+ %D%/packages/patches/quilt-test-fix-regex.patch \
%D%/packages/patches/qtwebkit-pbutils-include.patch \
%D%/packages/patches/rapicorn-isnan.patch \
%D%/packages/patches/raptor2-heap-overflow.patch \
diff --git a/gnu/packages/patches/quilt-test-fix-regex.patch b/gnu/packages/patches/quilt-test-fix-regex.patch
new file mode 100644
index 0000000000..2e249ac55b
--- /dev/null
+++ b/gnu/packages/patches/quilt-test-fix-regex.patch
@@ -0,0 +1,41 @@
+From 5193b137b5a9034ce79946edd40760df2f63a82a Mon Sep 17 00:00:00 2001
+From: Jean Delvare <jdelvare@suse.de>
+Date: Tue, 25 Apr 2017 15:17:53 +0200
+Subject: test: Escape curly braces in regex
+
+Curly braces in perl regex are supposed to be escaped, recent
+versions of perl complain when they aren't:
+
+Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/%{ <-- HERE (\w+)}/ at ./run line 114.
+Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/%{ <-- HERE \?}/ at ./run line 290.
+
+Signed-off-by: Jean Delvare <jdelvare@suse.de>
+---
+ test/run | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/test/run b/test/run
+index 942014e..03afc7a 100755
+--- a/test/run
++++ b/test/run
+@@ -112,7 +112,7 @@ sub flush_output()
+ sub substitute_vars($)
+ {
+ my ($line) = @_;
+- $line =~ s[%{(\w+)}][defined $ENV{$1} ? $ENV{$1} : ""]eg;
++ $line =~ s[%\{(\w+)\}][defined $ENV{$1} ? $ENV{$1} : ""]eg;
+ return $line;
+ }
+
+@@ -288,7 +288,7 @@ while (defined(my $line = <SOURCE>)) {
+ # Parse the next command
+ if ($line =~ s/^\s*\$ ?//) {
+ # Substitute %{?} with the last command's status
+- $line =~ s[%{\?}][$last_status]eg;
++ $line =~ s[%\{\?\}][$last_status]eg;
+
+ chomp($prog = substitute_vars($line));
+ $prog_line = $lineno;
+--
+cgit v1.0-41-gc330
+
diff --git a/gnu/packages/patchutils.scm b/gnu/packages/patchutils.scm
index a68e369912..0cf111ac47 100644
--- a/gnu/packages/patchutils.scm
+++ b/gnu/packages/patchutils.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
+;;; Copyright © 2014, 2018 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2015, 2018 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
@@ -92,7 +92,7 @@ listing the files modified by a patch.")
(define-public quilt
(package
(name "quilt")
- (version "0.61")
+ (version "0.65")
(source
(origin
(method url-fetch)
@@ -100,7 +100,8 @@ listing the files modified by a patch.")
name "-" version ".tar.gz"))
(sha256
(base32
- "1hwz58djkq9cv46sjwxbp2v5m8yjr41kd0nm1zm1xm6418khmv0y"))))
+ "06b816m2gz9jfif7k9v2hrm7fz76zjg5pavf7hd3ifybwn4cgjzn"))
+ (patches (search-patches "quilt-test-fix-regex.patch"))))
(build-system gnu-build-system)
(inputs `(("perl" ,perl)
("less" ,less)
@@ -116,8 +117,16 @@ listing the files modified by a patch.")
'("test/run"
"test/edit.test")
(("/bin/sh") (which "sh")))
- ;; TODO: Run the mail tests once the mail feature can be supported.
- (delete-file "test/mail.test")
+ (substitute* "test/create-delete.test"
+ ;; We'd rather use quilt's compat/getopt than declare a
+ ;; dependency on util-linux, but this test fails because of
+ ;; compat/getopt's handling of "---" in this test, so remove it
+ ;; for now.
+ ((" ---") ""))
+ (substitute* '("test/empty-files.test" "test/faildiff.test")
+ ;; compat/getopt seems not to handle splitting of short opts
+ ;; from its arguments.
+ (("-pab") "-p ab"))
#t))
(add-after 'install 'wrap-program
;; quilt's configure checks for the absolute path to the utilities it