X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=scripts%2Fchange_dylib_path.pl;fp=scripts%2Fchange_dylib_path.pl;h=a615f98f9ef07288fe2fd07176ae14d5eb43a5ce;hb=3f99ddc1302d9c08a36417bb869a06442acca0cb;hp=0000000000000000000000000000000000000000;hpb=3f6be1036862ef97dd2ddb4ba4e1bc40803e51ec;p=dotfiles.git

diff --git a/scripts/change_dylib_path.pl b/scripts/change_dylib_path.pl
new file mode 100755
index 0000000..a615f98
--- /dev/null
+++ b/scripts/change_dylib_path.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl -w
+#
+use strict;
+use warnings;
+#use v5.10;
+
+my @cpve_libs = ( 'libpme.0.dylib', 'libpmexy.1.dylib', 'libpmpxy.1.dylib', 'libtaf.0.dylib', 'libtafxy.1.dylib','libsrtp.dylib' );
+
+my @lib_to_change = ( 'libxml2.2.dylib', 'libssl.dylib', 'libcrypto.dylib' );
+
+for my $ff (@cpve_libs){
+    !system '/usr/bin/install_name_tool -change @executable_path/../Frameworks/' . $_ . ' @executable_path/' . $_ . ' ./' . $ff or die "$!"     for @lib_to_change;
+}
+
+print  "==DONE==" . "\n";
+