blob: 7bcfd7e2850f364d1f78dd58e4e9ccbcfbc50826 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl
# Patch a DLL or EXE to change the name of the Cygwin DLL it uses or is, so that we can
# include our own Cygwin DLL that doesn't interfere with the rest of the system, for great justice
@ARGV = ('-') unless @ARGV;
@FILES = @ARGV;
while ($ARGV = shift) {
$out = $ARGV . ".new";
open(IN, $ARGV) or warn "Can't open $ARGV: $!\n";
open(OUT, ">$out") or warn "Can't open $out: $!\n";
binmode IN;
while (<IN>) {
s/cygwin1/aybabtu/g;
s/c\000y\000g\000w\000i\000n\0001/a\000y\000b\000a\000b\000t\000u/g;
print OUT;
}
close IN;
close OUT;
unlink $ARGV;
rename $out, $ARGV;
}
|
