1#!/usr/bin/perl -w
2
3use strict;
4undef $/;
5
6if(@ARGV == 0)
7{
8    print "Usage: $0 <macho-executable> [<macho-executable> ...]\n";
9    exit 1;
10}
11
12my $arg;
13foreach $arg (@ARGV)
14{
15    open IN, "<$arg" or die $!;
16    my $in = <IN>;
17    close IN or die $!;
18
19    if($in =~ s{/usr/lib/dyld}{/usr/lib/dyle})
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}
31