diff options
author | Alexander Kanavin <alex.kanavin@gmail.com> | 2019-12-05 16:43:44 +0100 |
---|---|---|
committer | Richard Purdie <richard.purdie@linuxfoundation.org> | 2019-12-09 12:00:42 +0000 |
commit | 79223afc724c52abf8d7722e1a6a55d7d42bff19 (patch) | |
tree | ae59d9e7b37ad188d9f3aef8a1f117bbe50fd4e0 /meta/recipes-devtools/perl/files | |
parent | 7c8a6cbf42271442189e463e9f8772521b4f263d (diff) | |
download | poky-79223afc724c52abf8d7722e1a6a55d7d42bff19.tar.gz |
perl: update to 5.30.1
Drop fix-setgroup.patch as the upstream has fixed the issue.
(From OE-Core rev: 45edc6d23e20f7634c50db71e419c7e3bb7f393e)
Signed-off-by: Alexander Kanavin <alex.kanavin@gmail.com>
Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
Diffstat (limited to 'meta/recipes-devtools/perl/files')
-rw-r--r-- | meta/recipes-devtools/perl/files/fix-setgroup.patch | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/meta/recipes-devtools/perl/files/fix-setgroup.patch b/meta/recipes-devtools/perl/files/fix-setgroup.patch deleted file mode 100644 index 2b490e6067..0000000000 --- a/meta/recipes-devtools/perl/files/fix-setgroup.patch +++ /dev/null | |||
@@ -1,49 +0,0 @@ | |||
1 | Test script to reproduce the problem: | ||
2 | |||
3 | #!/usr/bin/env perl | ||
4 | $) = "2 2"; | ||
5 | print $!; | ||
6 | |||
7 | Result from perl 5.28 under strace: | ||
8 | |||
9 | setgroups(1, [2]) = 0 | ||
10 | setresgid(-1, 2, -1) = 0 | ||
11 | |||
12 | Result from perl 5.30 under strace: | ||
13 | |||
14 | setgroups(1, [-1]) = -1 EINVAL (Invalid argument) | ||
15 | setresgid(-1, 2, -1) = 0 | ||
16 | |||
17 | Patch which broke this upstream: | ||
18 | https://perl5.git.perl.org/perl.git/commitdiff/5d4a52b5c68a11bfc97c2e24806993b84a61eade | ||
19 | |||
20 | Issue is that the new function changes the endptr to the end of the | ||
21 | scanned number and needs to be reset to the end of the string for | ||
22 | each iteration of the loop. | ||
23 | |||
24 | [YOCTO #13391] | ||
25 | |||
26 | RP | ||
27 | 2019/6/14 | ||
28 | Upstream-Status: Pending | ||
29 | |||
30 | Index: perl-5.30.0/mg.c | ||
31 | =================================================================== | ||
32 | --- perl-5.30.0.orig/mg.c | ||
33 | +++ perl-5.30.0/mg.c | ||
34 | @@ -3179,6 +3256,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) | ||
35 | const char *p = SvPV_const(sv, len); | ||
36 | Groups_t *gary = NULL; | ||
37 | const char* endptr = p + len; | ||
38 | + const char* realend = p + len; | ||
39 | UV uv; | ||
40 | #ifdef _SC_NGROUPS_MAX | ||
41 | int maxgrp = sysconf(_SC_NGROUPS_MAX); | ||
42 | @@ -3209,6 +3287,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) | ||
43 | Newx(gary, i + 1, Groups_t); | ||
44 | else | ||
45 | Renew(gary, i + 1, Groups_t); | ||
46 | + endptr = realend; | ||
47 | if (grok_atoUV(p, &uv, &endptr)) | ||
48 | gary[i] = (Groups_t)uv; | ||
49 | else { | ||