stow: patch that removes warning for 2.2.0, closes #8513
This commit is contained in:
parent
8c4fcc87f8
commit
62921384e0
@ -10,6 +10,8 @@ stdenv.mkDerivation {
|
|||||||
|
|
||||||
buildInputs = [ perl perlPackages.TestOutput ];
|
buildInputs = [ perl perlPackages.TestOutput ];
|
||||||
|
|
||||||
|
patches = [ ./precedence-issue.patch ];
|
||||||
|
|
||||||
doCheck = true;
|
doCheck = true;
|
||||||
|
|
||||||
meta = {
|
meta = {
|
||||||
|
15
pkgs/tools/misc/stow/precedence-issue.patch
Normal file
15
pkgs/tools/misc/stow/precedence-issue.patch
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
diff --git a/lib/Stow.pm.in b/lib/Stow.pm.in
|
||||||
|
index 101a422..f80b1ac 100755
|
||||||
|
--- a/lib/Stow.pm.in
|
||||||
|
+++ b/lib/Stow.pm.in
|
||||||
|
@@ -1732,8 +1732,8 @@ sub read_a_link {
|
||||||
|
}
|
||||||
|
elsif (-l $path) {
|
||||||
|
debug(4, " read_a_link($path): real link");
|
||||||
|
- return readlink $path
|
||||||
|
- or error("Could not read link: $path");
|
||||||
|
+ my $target = readlink $path or error("Could not read link: $path ($!)");
|
||||||
|
+ return $target;
|
||||||
|
}
|
||||||
|
internal_error("read_a_link() passed a non link path: $path\n");
|
||||||
|
}
|
Loading…
x
Reference in New Issue
Block a user