[apple/dyld.git] / bin / set-alt-dyld

#!/usr/bin/perl -w

use strict;
undef $/;

if(@ARGV == 0)
{
    print "Usage: $0 <macho-executable> [<macho-executable> ...]\n";
    exit 1;
}

my $arg;
foreach $arg (@ARGV)
{
    open IN, "<$arg" or die $!;
    my $in = <IN>;
    close IN or die $!;

    if($in =~ s{/usr/lib/dyld}{/usr/local/dy})
    {
	open OUT, ">$arg" or die $!;
	print OUT $in;
	close OUT or die $!;
    }
    else
    {
	print STDERR "ERROR: $arg\n";
	exit 1;
    }
}
Commit	Line	Data
412ebb8e A	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	undef $/;
	5
	6	if(@ARGV == 0)
	7	{
	8	print "Usage: $0 <macho-executable> [<macho-executable> ...]\n";
	9	exit 1;
	10	}
	11
	12	my $arg;
	13	foreach $arg (@ARGV)
	14	{
	15	open IN, "<$arg" or die $!;
	16	my $in = <IN>;
	17	close IN or die $!;
	18
9f83892a	19	if($in =~ s{/usr/lib/dyld}{/usr/local/dy})
412ebb8e A	20	{
	21	open OUT, ">$arg" or die $!;
	22	print OUT $in;
	23	close OUT or die $!;
	24	}
	25	else
	26	{
	27	print STDERR "ERROR: $arg\n";
	28	exit 1;
	29	}
	30	}