BoomMicrophone/nixpkgs-suyu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

buildEnv: check pathsToLink before checking collisions

Browse source 
Fixes #32683
This commit is contained in:
Linus Heckemann 2019-09-16 18:00:30 +02:00
parent a95a53aadc
commit 3125ab3afe
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
pkgs/build-support/buildenv/builder.pl
View file

@ -26,6 +26,19 @@ sub isInPathsToLink {
return 0; return 0;
} }
# Returns whether a path in one of the linked packages may contain
# files in one of the elements of pathsToLink.
sub hasPathsToLink {
my $path = shift;
foreach my $elem (@pathsToLink) {
return 1 if
$path eq "" ||
(substr($elem, 0, length($path)) eq $path
&& (($path eq $elem) || (substr($elem, length($path), 1) eq "/")));
}
return 0;
}
# Similar to `lib.isStorePath` # Similar to `lib.isStorePath`
sub isStorePath { sub isStorePath {
my $path = shift; my $path = shift;
@ -103,7 +116,8 @@ sub findFiles {
$relName =~ /info\/dir/ || $relName =~ /info\/dir/ ||
( $relName =~ /^\/share\/mime\// && !( $relName =~ /^\/share\/mime\/packages/ ) ) || ( $relName =~ /^\/share\/mime\// && !( $relName =~ /^\/share\/mime\/packages/ ) ) ||
$baseName eq "perllocal.pod" || $baseName eq "perllocal.pod" ||
$baseName eq "log"; $baseName eq "log" ||
! (hasPathsToLink($relName) || isInPathsToLink($relName));
my ($oldTarget, $oldPriority) = @{$symlinks{$relName} // [undef, undef]}; my ($oldTarget, $oldPriority) = @{$symlinks{$relName} // [undef, undef]};