diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2018-11-22 00:03:05 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2018-11-22 00:19:03 +0100 |
| commit | 37fe7f743f5dd9fd5557d5b99489c4a98e720e0d (patch) | |
| tree | 44118bf0c0be04ceaab6d3cb894108d3bbd801bb /tools/install-xml-file-list | |
| parent | 25242cf5146d105a09332a35c1ce24cdc914bb3a (diff) | |
| download | drakx-37fe7f743f5dd9fd5557d5b99489c4a98e720e0d.tar drakx-37fe7f743f5dd9fd5557d5b99489c4a98e720e0d.tar.gz drakx-37fe7f743f5dd9fd5557d5b99489c4a98e720e0d.tar.bz2 drakx-37fe7f743f5dd9fd5557d5b99489c4a98e720e0d.tar.xz drakx-37fe7f743f5dd9fd5557d5b99489c4a98e720e0d.zip | |
fix collecting needed perl files with glibc-2.26
basically the ouput of strace changed with glibc-2.26:
"Since version 2.26, the glibc wrapper function for open() employs the
openat() system call, rather than the kernel's open() system call".
so support both ways (in case it would be backported):
open("foobar...)
openat(AT_FDCWD, "foobar...)
Diffstat (limited to 'tools/install-xml-file-list')
| -rwxr-xr-x | tools/install-xml-file-list | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/install-xml-file-list b/tools/install-xml-file-list index 0fc8f7a76..64c70b9c6 100755 --- a/tools/install-xml-file-list +++ b/tools/install-xml-file-list @@ -160,7 +160,7 @@ sub collect_needed_perl_files { my (%local, %global); foreach my $script (@scripts) { foreach (`strace -efile perl -cw -I$local_rep $script 2>&1`) { - my ($f) = /^open\("(.*?)",.*\)\s*=\s*\d+$/ or next; + my ($f) = /^open(?:at\([^,]*, |)"(.*?)",.*\)\s*=\s*\d+$/ or next; if ($f =~ m!^\Q$local_rep\E/(.*)!) { $local{$1} = 1; } elsif (begins_with($f, '/dev/')) { |