diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-04-15 07:48:41 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2019-04-15 11:00:13 +0200 |
| commit | eea75c435ab7d7b4f44b1aa4e900e2abf5ba430f (patch) | |
| tree | f58f6ce0155716d5f5a71af59271a8fcd1e0df5b | |
| parent | d2f477ba82923301e4a7a65c7cc77d8c41a98b90 (diff) | |
gnu: quilt: Update to 0.66.
* gnu/packages/patchutils.scm (quilt): Update to 0.66.
[source]: Remove all patches.
* gnu/packages/patches/quilt-test-fix-regex.patch,
gnu/packages/patches/quilt-getopt-nondigit-param.patch,
gnu/packages/patches/quilt-getopt-second-separator.patch: Delete files.
* gnu/local.mk (dist_patch_DATA): Remove them.
| -rw-r--r-- | gnu/local.mk | 3 | ||||
| -rw-r--r-- | gnu/packages/patches/quilt-getopt-nondigit-param.patch | 45 | ||||
| -rw-r--r-- | gnu/packages/patches/quilt-getopt-second-separator.patch | 58 | ||||
| -rw-r--r-- | gnu/packages/patches/quilt-test-fix-regex.patch | 41 | ||||
| -rw-r--r-- | gnu/packages/patchutils.scm | 16 |
5 files changed, 6 insertions, 157 deletions
diff --git a/gnu/local.mk b/gnu/local.mk index 70ad61af5b9..df96b98f072 100644 --- a/gnu/local.mk +++ b/gnu/local.mk | |||
| @@ -1220,9 +1220,6 @@ dist_patch_DATA = \ | |||
| 1220 | %D%/packages/patches/qtscript-disable-tests.patch \ | 1220 | %D%/packages/patches/qtscript-disable-tests.patch \ |
| 1221 | %D%/packages/patches/quagga-reproducible-build.patch \ | 1221 | %D%/packages/patches/quagga-reproducible-build.patch \ |
| 1222 | %D%/packages/patches/quickswitch-fix-dmenu-check.patch \ | 1222 | %D%/packages/patches/quickswitch-fix-dmenu-check.patch \ |
| 1223 | %D%/packages/patches/quilt-test-fix-regex.patch \ | ||
| 1224 | %D%/packages/patches/quilt-getopt-nondigit-param.patch \ | ||
| 1225 | %D%/packages/patches/quilt-getopt-second-separator.patch \ | ||
| 1226 | %D%/packages/patches/qtwebkit-pbutils-include.patch \ | 1223 | %D%/packages/patches/qtwebkit-pbutils-include.patch \ |
| 1227 | %D%/packages/patches/randomjungle-disable-static-build.patch \ | 1224 | %D%/packages/patches/randomjungle-disable-static-build.patch \ |
| 1228 | %D%/packages/patches/rapicorn-isnan.patch \ | 1225 | %D%/packages/patches/rapicorn-isnan.patch \ |
diff --git a/gnu/packages/patches/quilt-getopt-nondigit-param.patch b/gnu/packages/patches/quilt-getopt-nondigit-param.patch deleted file mode 100644 index 6bbec67e75f..00000000000 --- a/gnu/packages/patches/quilt-getopt-nondigit-param.patch +++ /dev/null | |||
| @@ -1,45 +0,0 @@ | |||
| 1 | From: Jean Delvare <jdelvare@suse.de> | ||
| 2 | Subject: compat/getopt: Allow non-digit parameter embedded in short option | ||
| 3 | |||
| 4 | The compatibility getopt script allows only digit parameters to be | ||
| 5 | embedded in short options. Util-linux's getopt implementation does | ||
| 6 | not have such a restriction and allows any parameter to be embedded | ||
| 7 | in short options. As a consequence, using the compatibility getopt | ||
| 8 | script would choke for example on "-pab", which is a legal option | ||
| 9 | of the "quilt refresh" command. | ||
| 10 | |||
| 11 | Remove the limitation on digits so that the compatibility getopt | ||
| 12 | script allows what util-linux allows. This fixes the second half | ||
| 13 | of bug #54772: | ||
| 14 | https://savannah.nongnu.org/bugs/index.php?54772 | ||
| 15 | |||
| 16 | As a side note, this feature of the compatibility script was broken | ||
| 17 | anyway, as it would output the digits in reverse order. | ||
| 18 | |||
| 19 | Signed-off-by: Jean Delvare <jdelvare@suse.de> | ||
| 20 | --- | ||
| 21 | compat/getopt.in | 13 ++++--------- | ||
| 22 | 1 file changed, 4 insertions(+), 9 deletions(-) | ||
| 23 | |||
| 24 | --- quilt.orig/compat/getopt.in 2018-10-03 16:05:56.818667040 +0200 | ||
| 25 | +++ quilt/compat/getopt.in 2018-10-03 16:12:17.624841732 +0200 | ||
| 26 | @@ -108,15 +108,10 @@ foreach my $word (@words) { | ||
| 27 | if (scalar(@letters) == 0) { | ||
| 28 | $need_param = $letter; | ||
| 29 | } else { | ||
| 30 | - # short options can have numerical args | ||
| 31 | - # embedded in the short option list: -UO | ||
| 32 | - die "unexpected character after option $letter" | ||
| 33 | - if ($letters[$#letters] !~ /[0-9]/); | ||
| 34 | - my @digits; | ||
| 35 | - while (scalar(@letters) && ($letters[$#letters] =~ /[0-9]/)) { | ||
| 36 | - push @digits, pop @letters; | ||
| 37 | - } | ||
| 38 | - push @options, quote_word(join('', reverse @digits)); | ||
| 39 | + # short options can have args | ||
| 40 | + # embedded in the short option list | ||
| 41 | + push @options, quote_word(join('', reverse @letters)); | ||
| 42 | + @letters = (); | ||
| 43 | } | ||
| 44 | } | ||
| 45 | } | ||
diff --git a/gnu/packages/patches/quilt-getopt-second-separator.patch b/gnu/packages/patches/quilt-getopt-second-separator.patch deleted file mode 100644 index cde2c8d41c7..00000000000 --- a/gnu/packages/patches/quilt-getopt-second-separator.patch +++ /dev/null | |||
| @@ -1,58 +0,0 @@ | |||
| 1 | From: Jean Delvare <jdelvare@suse.de> | ||
| 2 | Subject: compat/getopt: Handle a second separator | ||
| 3 | |||
| 4 | getopt can be passed 2 '--' separators. The first one tells that | ||
| 5 | getopt options are over and target program options start. The second | ||
| 6 | one tells that the target program's options are over and following | ||
| 7 | arguments should be treated as non-options even if they look like | ||
| 8 | options. | ||
| 9 | |||
| 10 | This second separator was not handled, causing the compatibility | ||
| 11 | getopt script to treat the following arguments as options, eventually | ||
| 12 | failing one way or another. | ||
| 13 | |||
| 14 | Properly detect and handle the second separator. This fixes the first | ||
| 15 | half of bug #54772: | ||
| 16 | https://savannah.nongnu.org/bugs/index.php?54772 | ||
| 17 | |||
| 18 | Signed-off-by: Jean Delvare <jdelvare@suse.de> | ||
| 19 | --- | ||
| 20 | compat/getopt.in | 13 ++++++++++--- | ||
| 21 | 1 file changed, 10 insertions(+), 3 deletions(-) | ||
| 22 | |||
| 23 | --- quilt.orig/compat/getopt.in 2018-10-03 15:23:21.147620172 +0200 | ||
| 24 | +++ quilt/compat/getopt.in 2018-10-03 16:05:56.818667040 +0200 | ||
| 25 | @@ -8,12 +8,12 @@ | ||
| 26 | |||
| 27 | use strict; | ||
| 28 | |||
| 29 | -my $opts; | ||
| 30 | +my $opts = ''; | ||
| 31 | my @words; | ||
| 32 | my $found_sep = 0; | ||
| 33 | |||
| 34 | foreach my $arg (@ARGV) { | ||
| 35 | - if ($arg eq '--') { | ||
| 36 | + if (!$found_sep && $arg eq '--') { | ||
| 37 | $found_sep = 1; | ||
| 38 | } | ||
| 39 | else { | ||
| 40 | @@ -62,10 +62,17 @@ sub quote_word | ||
| 41 | return "'$word'"; | ||
| 42 | } | ||
| 43 | |||
| 44 | +# there can be a second separator, to inhibit processing following arguments | ||
| 45 | +# as options | ||
| 46 | +$found_sep = 0; | ||
| 47 | foreach my $word (@words) { | ||
| 48 | + if ($word eq '--') { | ||
| 49 | + $found_sep = 1; | ||
| 50 | + next; | ||
| 51 | + } | ||
| 52 | |||
| 53 | # allow '-' to be an option value | ||
| 54 | - if (!$need_param && $word !~ /^-./) { | ||
| 55 | + if ($found_sep || (!$need_param && $word !~ /^-./)) { | ||
| 56 | push @barewords, quote_word($word); | ||
| 57 | next; | ||
| 58 | } | ||
diff --git a/gnu/packages/patches/quilt-test-fix-regex.patch b/gnu/packages/patches/quilt-test-fix-regex.patch deleted file mode 100644 index 2e249ac55b2..00000000000 --- a/gnu/packages/patches/quilt-test-fix-regex.patch +++ /dev/null | |||
| @@ -1,41 +0,0 @@ | |||
| 1 | From 5193b137b5a9034ce79946edd40760df2f63a82a Mon Sep 17 00:00:00 2001 | ||
| 2 | From: Jean Delvare <jdelvare@suse.de> | ||
| 3 | Date: Tue, 25 Apr 2017 15:17:53 +0200 | ||
| 4 | Subject: test: Escape curly braces in regex | ||
| 5 | |||
| 6 | Curly braces in perl regex are supposed to be escaped, recent | ||
| 7 | versions of perl complain when they aren't: | ||
| 8 | |||
| 9 | Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/%{ <-- HERE (\w+)}/ at ./run line 114. | ||
| 10 | Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/%{ <-- HERE \?}/ at ./run line 290. | ||
| 11 | |||
| 12 | Signed-off-by: Jean Delvare <jdelvare@suse.de> | ||
| 13 | --- | ||
| 14 | test/run | 4 ++-- | ||
| 15 | 1 file changed, 2 insertions(+), 2 deletions(-) | ||
| 16 | |||
| 17 | diff --git a/test/run b/test/run | ||
| 18 | index 942014e..03afc7a 100755 | ||
| 19 | --- a/test/run | ||
| 20 | +++ b/test/run | ||
| 21 | @@ -112,7 +112,7 @@ sub flush_output() | ||
| 22 | sub substitute_vars($) | ||
| 23 | { | ||
| 24 | my ($line) = @_; | ||
| 25 | - $line =~ s[%{(\w+)}][defined $ENV{$1} ? $ENV{$1} : ""]eg; | ||
| 26 | + $line =~ s[%\{(\w+)\}][defined $ENV{$1} ? $ENV{$1} : ""]eg; | ||
| 27 | return $line; | ||
| 28 | } | ||
| 29 | |||
| 30 | @@ -288,7 +288,7 @@ while (defined(my $line = <SOURCE>)) { | ||
| 31 | # Parse the next command | ||
| 32 | if ($line =~ s/^\s*\$ ?//) { | ||
| 33 | # Substitute %{?} with the last command's status | ||
| 34 | - $line =~ s[%{\?}][$last_status]eg; | ||
| 35 | + $line =~ s[%\{\?\}][$last_status]eg; | ||
| 36 | |||
| 37 | chomp($prog = substitute_vars($line)); | ||
| 38 | $prog_line = $lineno; | ||
| 39 | -- | ||
| 40 | cgit v1.0-41-gc330 | ||
| 41 | |||
diff --git a/gnu/packages/patchutils.scm b/gnu/packages/patchutils.scm index 8859030129c..f6197b98eea 100644 --- a/gnu/packages/patchutils.scm +++ b/gnu/packages/patchutils.scm | |||
| @@ -98,18 +98,14 @@ listing the files modified by a patch.") | |||
| 98 | (define-public quilt | 98 | (define-public quilt |
| 99 | (package | 99 | (package |
| 100 | (name "quilt") | 100 | (name "quilt") |
| 101 | (version "0.65") | 101 | (version "0.66") |
| 102 | (source | 102 | (source |
| 103 | (origin | 103 | (origin |
| 104 | (method url-fetch) | 104 | (method url-fetch) |
| 105 | (uri (string-append "mirror://savannah/quilt/" | 105 | (uri (string-append "mirror://savannah/quilt/" |
| 106 | "quilt-" version ".tar.gz")) | 106 | "quilt-" version ".tar.gz")) |
| 107 | (sha256 | 107 | (sha256 |
| 108 | (base32 | 108 | (base32 "01vfvk4pqigahx82fhaaffg921ivd3k7rylz1yfvy4zbdyd32jri")))) |
| 109 | "06b816m2gz9jfif7k9v2hrm7fz76zjg5pavf7hd3ifybwn4cgjzn")) | ||
| 110 | (patches (search-patches "quilt-test-fix-regex.patch" | ||
| 111 | "quilt-getopt-second-separator.patch" | ||
| 112 | "quilt-getopt-nondigit-param.patch")))) | ||
| 113 | (build-system gnu-build-system) | 109 | (build-system gnu-build-system) |
| 114 | (native-inputs | 110 | (native-inputs |
| 115 | `(("gettext" ,gnu-gettext))) | 111 | `(("gettext" ,gnu-gettext))) |
