libs/fix_install_paths.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6
   7 my ($filename, $basedir) = @ARGV;
   8 my ($libname) = $filename =~ m!/([^/]+)$!;
   9
  10 my %paths =
  11         map {m!/(lib\w+)\..*\.dylib!; $_ => "\@executable_path/../Frameworks/$1.dylib"}
  12         grep {/^$basedir/}
  13         map {/^\s+(.+)\s+\(compatibility/}
  14         grep {/^\s+/}
  15         `otool -L "$filename"`;
  16
  17 system('install_name_tool', '-change', $_, $paths{$_}, $filename) foreach (keys(%paths));
  18 system('install_name_tool', '-id', "\@executable_path/../Frameworks/$libname", $filename);
  19