X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=InstallShield%2Fdecyg.pl;fp=InstallShield%2Fdecyg.pl;h=7bcfd7e2850f364d1f78dd58e4e9ccbcfbc50826;hp=0000000000000000000000000000000000000000;hb=0065d5ab628975892cea1ec7303f968c3338cbe1;hpb=28a464a75e14cece5db40f2765a29348273ff2d2

diff --git a/InstallShield/decyg.pl b/InstallShield/decyg.pl
new file mode 100644
index 0000000..7bcfd7e
--- /dev/null
+++ b/InstallShield/decyg.pl
@@ -0,0 +1,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;
+}