ghc/InstallShield/fixdll.pl

   1 #!/usr/bin/perl -i.bak
   2 # Patch the cygwin dll to make a non-clashing version, for great justice
   3
   4 while (<>) {
   5   s/cygwin1/aybabtu/g;
   6   s/c\000y\000g\000w\000i\000n\0001/a\000y\000b\000a\000b\000t\000u/g;
   7   print;
   8 }