view release on metacpan or  search on metacpan

pp/macos/reloc.pl  view on Meta::CPAN

my $prefix = $ENV{HOME} . "/lib/citrusperl";

my $srcpat = qr;($prefix.*?)/([-\w.]+\.(?:dylib|bundle));;
my $dst = '@executable_path';

if ( @ARGV && $ARGV[0] =~ /^--?q(?:iet)?$/ ) {
    $verbose = 0;
    shift;
}

relocate($_) for @ARGV;

################ Subroutines ################

sub relocate {
    my ( $lib ) = @_;

    die("$lib: $!") unless -w $lib;

    my $odata = `otool -L "$lib"`;

    while ( $odata =~ m/$srcpat/g ) {
	my $orig = $1;
	my $name = $2;
	my $oname = $name;