assume @RPATH libs are present

Previous change caused them to be skipped. Probably when @RPATH is
included in the path, it's a path to a file that actually exists.

Sponsored-by: Dartmouth College's Datalad project
This commit is contained in:
Joey Hess 2022-01-03 15:05:15 -04:00
parent 7e2f5edd68
commit 77048906a4
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -106,12 +106,14 @@ otool appbase installedbins replacement_libs libmap = do
-- _inflateValidate symbol. So, avoid bundling libz unless
-- this incompatability is resolved.
&& not ("libz." `isInfixOf` s)
lib_present s = ifM (isJust <$> catchMaybeIO (getSymbolicLinkStatus s))
( return True
, do
hPutStrLn stderr $ "note: skipping library that is not present on disk: " ++ s
return False
)
lib_present s
| "@rpath" `isInfixOf` s = return True
| otherwise = ifM (isJust <$> catchMaybeIO (getSymbolicLinkStatus s))
( return True
, do
hPutStrLn stderr $ "note: skipping library that is not present on disk: " ++ s
return False
)
process c [] rls m = return (nub $ concat c, rls, m)
process c (file:rest) rls m = do
_ <- boolSystem "chmod" [Param "755", File file]