diff options
Diffstat (limited to 'tools')
| -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/')) { |