Fix bug in Linux standalone build's shimming that broke git-annex-shell.
This commit is contained in:
parent
e199240ab8
commit
02df4f529b
3 changed files with 15 additions and 0 deletions
|
@ -36,6 +36,7 @@ main = getArgs >>= go
|
||||||
mklibs :: FilePath -> IO ()
|
mklibs :: FilePath -> IO ()
|
||||||
mklibs top = do
|
mklibs top = do
|
||||||
fs <- dirContentsRecursive top
|
fs <- dirContentsRecursive top
|
||||||
|
mapM_ symToHardLink fs
|
||||||
exes <- filterM checkExe fs
|
exes <- filterM checkExe fs
|
||||||
libs <- parseLdd <$> readProcess "ldd" exes
|
libs <- parseLdd <$> readProcess "ldd" exes
|
||||||
glibclibs <- glibcLibs
|
glibclibs <- glibcLibs
|
||||||
|
@ -91,6 +92,15 @@ installLinkerShim top exe = do
|
||||||
shimdir = top </> "shimmed" </> base
|
shimdir = top </> "shimmed" </> base
|
||||||
exedest = shimdir </> base
|
exedest = shimdir </> base
|
||||||
|
|
||||||
|
{- Converting symlinks to hard links simplifies the binary shimming
|
||||||
|
- process. -}
|
||||||
|
symToHardLink :: FilePath -> IO ()
|
||||||
|
symToHardLink f = whenM (isSymbolicLink <$> getSymbolicLinkStatus f) $ do
|
||||||
|
l <- readSymbolicLink f
|
||||||
|
let absl = absPathFrom (parentDir f) l
|
||||||
|
nukeFile f
|
||||||
|
createLink absl f
|
||||||
|
|
||||||
installFile :: FilePath -> FilePath -> IO ()
|
installFile :: FilePath -> FilePath -> IO ()
|
||||||
installFile top f = do
|
installFile top f = do
|
||||||
createDirectoryIfMissing True destdir
|
createDirectoryIfMissing True destdir
|
||||||
|
|
1
debian/changelog
vendored
1
debian/changelog
vendored
|
@ -3,6 +3,7 @@ git-annex (5.20131222) UNRELEASED; urgency=medium
|
||||||
* Add tasty to build-depends, so that test suite builds again.
|
* Add tasty to build-depends, so that test suite builds again.
|
||||||
(tasty was stuck in incoming.)
|
(tasty was stuck in incoming.)
|
||||||
* Fix typo in test suite.
|
* Fix typo in test suite.
|
||||||
|
* Fix bug in Linux standalone build's shimming that broke git-annex-shell.
|
||||||
|
|
||||||
-- Joey Hess <joeyh@debian.org> Tue, 24 Dec 2013 13:54:32 -0400
|
-- Joey Hess <joeyh@debian.org> Tue, 24 Dec 2013 13:54:32 -0400
|
||||||
|
|
||||||
|
|
|
@ -26,3 +26,7 @@ linux standalone 5.20131213 and 5.20131221 are both able to `get` from linux sta
|
||||||
- Remote was set up by the Assistant
|
- Remote was set up by the Assistant
|
||||||
|
|
||||||
> [[clacke]]
|
> [[clacke]]
|
||||||
|
|
||||||
|
> Bug is in the shimming used for the linux standalone builds
|
||||||
|
> (not android), which causes git-annex-shell to run git-annex.
|
||||||
|
> [[fixed|done]] --[[Joey]]
|
||||||
|
|
Loading…
Reference in a new issue